创建箱线图时连接值答案

【问题标题】：Join values when creating boxplot创建箱线图时连接值
【发布时间】：2017-04-16 03:15:53
【问题描述】：

我有一个 983 obs 的表。 27 个变量；如果需要，可以提供数据，但我认为没有必要，因为下面的交叉表应该可以很好地总结它：

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

缩写（附英文翻译）：

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

我想创建一个可变宽度的箱线图来显示这些人的分布，但从表格中可以看出，NA、离婚和分居的群体是如此之小，以至于难以辨认（并且毫无意义。我如何加入这些组，创建一个显示e、f+s、g 和ug 的箱线图？

我当前的代码：

# 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

当前情节，我想将f 和s 分组：

【问题讨论】：

R replace all particular values in a data frame的可能重复

标签： r ggplot2 grouping boxplot

【解决方案1】：

创建一个示例数据框

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

合并 f 和 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

【讨论】：