Join Werte beim Erstellen Boxplot

Question

Ich habe eine Tabelle von 983 Obs. von 27 Variablen; können die Daten zur Verfügung gestellt werden, wenn es sein muss, aber ich glaube nicht, dass es ein Bedarf dafür ist, wie der folgende Kreuztisch es gut genug zusammenfassen soll:

Kjønn Antall <> e f g s ug 
Sex  Count  w d m s um 
k  282  2 26 5 41  208 
m  701  11 56 4 148 2 480 

Abkürzungen (mit Übersetzung):

e[nkemann], f[raskilt], g[ift], s[eparert], ug[ift] 
w[idow(er)], d[ivorced], m[arried], s[eparated], u[n]m[arried] 

Ich möchte einen Boxplot mit variabler Breite erstellen, der die Verteilung dieser Individuen zeigt, aber wie aus der Tabelle ersichtlich ist, wären die NAs, die Geschiedenen und die Separierten so klein, dass sie kaum lesbar (und sinnlos) wären Wie kann ich diesen Gruppen beitreten und einen Boxplot erstellen, der e, f+s,anzeigtund ug?

Mein aktueller Code:

# The basis for the boxplot 
dBox_SexAge <- ggplot(data = tblHoved) + 
    geom_boxplot(
    mapping = aes(colour = KJONN, x = KJONN, y = 1875-FAAR), 
    notch = TRUE, 
    lwd = .5, fatten = .125, 
    varwidth = TRUE 
) 

# Create the final boxplot 
dBox_SexAgeMStat <- dBox_SexAge + 
    facet_grid(SIVST ~ .) + 
    coord_flip() 

# Run it 
dBox_SexAgeMStat 

Aktuelle Grundstück, von dem Ich mag würde zu einer Gruppe f und s:

Answer 1

Erstellen Sie eine Beispieldatenrahmen

tblHoved <- data.frame(FAAR = rnorm(10), 
         SIVST = rep(c("e", "f", "g", "s", "ug"),2), 
         stringsAsFactors = FALSE) 
tblHoved 
#   FAAR SIVST 
# 1 0.22499630  e 
# 2 1.10236362  f 
# 3 0.02220001  g 
# 4 0.19062022  s 
# 5 0.05103136 ug 
# 6 0.09280887  e 
# 7 -0.70574835  f 
# 8 0.39331232  g 
# 9 0.24817094  s 
# 10 0.66631994 ug 

Merge f und s

tblHoved$SIVST[tblHoved$SIVST %in% c("f","s")] <- "f+s" 
tblHoved 
#   FAAR SIVST 
# 1 0.22499630  e 
# 2 1.10236362 f+s 
# 3 0.02220001  g 
# 4 0.19062022 f+s 
# 5 0.05103136 ug 
# 6 0.09280887  e 
# 7 -0.70574835 f+s 
# 8 0.39331232  g 
# 9 0.24817094 f+s 
# 10 0.66631994 ug