Vamos para o seu desafio: Você deseja testar a satisfação com a democracia e as variáveis trstprl
, trstlgl
, stfeco
e agea
no contexto seguinte. Experimente usar ggpairs()
!
Experimente antes de olhar para as outras abas!
oneSolution <- ggpairs(
pss,
columns = c(
"stfdem",
"trstprl",
"trstlgl",
"stfeco"
),
lower = list(
continuous = wrap(
"points",
position = position_jitter(width = 0.5)
),
combo = wrap(
"facethist",
binwidth = 1
)
),
upper = list(
continuous = "cor",
combo = "box_no_facet"
),
diag = list(
continuous = wrap("densityDiag", bw = 1),
discrete = "barDiag"
)
)
oneSolution
library("psych")
pairs.panels(
pss[c(
"stfdem",
"trstprl",
"trstlgl",
"stfeco"
)
],
method = "pearson",
jiggle = TRUE, # für pseudometrische Daten
stars = TRUE # Konvention für Signifikanzen
)
cor <- corr.test(
pss[c(
"stfdem",
"trstprl",
"trstlgl",
"stfeco"
)
],
method = "pearson",
use = "complete.obs"
)
library("corrplot")
corrplot(
cor$r,
p.mat = cor$p, # Matrix mit p-Werten
insig = "blank", # nicht signifikante = leer
type = "upper", # auch lower möglich
method = "circle" # verschiedene Optionen möglich
)
Na próxima página, você pode conhecer uma alternativa de ggplot
para corrplot
ou pular essa parte e seguir para a representação das comparações de médias!