search

adeverse / adegraphics

An S4 Lattice-Based Package for the Representation of Multivariate Data
https://adeverse.github.io/adegraphics/
9 stars 1 forks source link

Global adegpar in functions with default graphical parameters #9

Open aursiber opened 6 years ago

aursiber commented 6 years ago

Some functions which have default graphical parameters (see in prepare methods) don't take into account the parameters that were previously modified with the adegpar function.

library(ade4)
library(adegraphics)
data(rpjdl, package = "ade4")
fau.coa <- ade4::dudi.coa(rpjdl$fau, scan = FALSE, nf = 3)

s.value(fau.coa$li, fau.coa$li[,3], ppoints.cex = 0.5)
s.value(fau.coa$li, fau.coa$li[,3], ppoints.cex = 2)

op <- adegpar()
adegpar(ppoints.cex = 2)
s.value(fau.coa$li, fau.coa$li[,3])
adegpar(op)

s.value(fau.coa$li, fau.coa$li[,3], ppoints.cex = 2)