Utilizando ggpairs()

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!