箱线图和五个统计数据 - 绘制分位数 - R

Question

我想使用箱线图可视化我的数据。

我使用 follwonig 命令创建了一个箱线图和一个 stripchar：

  adjbox(nkv.murgang$NK, main = "NKV, Murgang - Skewness Adjusted", horizontal = T, axes = F,
           staplewex = 1, xlab = "Nutzen Kosten Verhältnis")

  stripchart(nkv.murgang$NK, main = "NKV, Murgang - Stripchart", horizontal = T, pch = 1,
             method = "jitter", xlab = "Nutzen Kosten Verhältnis")

但是我不知道如何将相应的五个数字统计数据合并到图表中（最小值、第 1 个 Qu.、平均值、第 3 个 Qu.、最大值）。我希望它们显示在胡须旁边。

在这种情况下，我的 y-axis 是什么？

此外，我还想用不同的颜色突出显示均值和中位数。像这样：

是否可以将这两者合二为一？

感谢您的任何意见。我知道这看起来很基本，但我被困在这里...

Answer 1

您可以使用 ggplot2 将箱线图与点图结合起来，如下所示

require(ggplot2)
ggplot(mtcars, aes(x = as.factor(gear), y = wt)) + 
  geom_boxplot() +
  geom_jitter(aes(col = (cyl == 4)), width = 0.1)

结果将是：

Answer 2

不使用 adjbox，而是使用 ggplot：

未知x轴有技巧：x = factor(0)。

  ggplot(nkv.murgang, aes(x = factor(0), nkv.murgang$NK)) +
    geom_boxplot(notch = F, outlier.color = "darkgrey", outlier.shape = 1,
                 color = "black", fill = "darkorange", varwidth = T) + 
    ggtitle("NKV Murgang - Einfamilienhaus") + 
    labs(x = "Murgang", y = "Nutzen / Konsten \n Verhälhniss") +
    stat_summary(geom = "text", fun.y = quantile,
                 aes(label=sprintf("%1.1f", ..y..)),
                 position=position_nudge(x=0.4), size=3.5)

这question说明了。

箱线图和五个统计数据 - 绘制分位数 - R

Boxplot and five statistics - plotting quantiles - R

r

boxplot