如何用R中的ggplot2绘制平均值的误差条？
如何用R中的ggplot2绘制平均值的误差条？
提问于 2020-03-17 07:15:45
我将我的数据绘制为散点条形图，并使用不同颜色的点表示基准(Basemodel)和理论值(AASHTO)。我使用以下代码，我的图形如下所示：
library(ggplot2)
ggplot(data = plotshear, aes(x = Shear, y = LLDF)) + geom_jitter(aes(colour = Source))
# plotshear data:
Source Shear LLDF
# 1 Baseline EXT.Single 0.7627894
# 2 Samples EXT.Single 0.7130376
# 3 Baseline EXT.Multi 0.8521338
# 4 Samples EXT.Multi 0.7975502
# 5 Baseline INT.Single 0.5706947
# 6 Samples INT.Single 0.5462812
# 7 Baseline INT.Multi 0.7291602
# 8 Samples INT.Multi 0.7331171
# 9 AASHTO EXT.Multi 0.8250000
# 10 AASHTO INT.Single 0.7200000
# 11 AASHTO INT.Multi 0.8840000我实际上需要一个错误条来表示如下所示的均值：
当前图
所需的绘图
回答 1
Stack Overflow用户
回答已采纳
发布于 2020-03-17 08:24:22
这是一个从你的数据中重现“所需图”的解决方案：
library(ggplot2)
# plotshear data:
plotshear <- data.frame(Source = c(rep(c("Baseline", "Samples"), 4), rep("AASHTO", 3)),
Shear = c(rep("EXT.Single", 2), rep("EXT.Multi", 2), rep("INT.Single", 2),
rep("INT.Multi", 3), "INT.Single", "INT.Multi"),
LLDF = c(0.7627894, 0.7130376, 0.8521338, 0.7975502, 0.5706947,
0.5462812, 0.7291602, 0.7331171, 0.8250000, 0.7200000, 0.8840000))
#without error bars
ggplot(data = plotshear, aes(x = Shear, y = LLDF)) +
geom_boxplot() +
geom_jitter(aes(color = Source)) +
stat_summary(fun.y=mean, geom="point", shape=23, size=4) +
stat_summary(fun.y=mean, geom="line", aes(group=1))
#with error bars
ggplot(data = plotshear, aes(x = Shear, y = LLDF)) +
geom_boxplot() +
geom_jitter(aes(color = Source)) +
stat_summary(fun.y=mean, geom="point", shape=23, size=4) +
stat_summary(fun.y=mean, geom="line", aes(group=1)) +
stat_summary(fun.data = mean_se, geom = "errorbar")页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/60714382
复制相关文章
相似问题
腾讯云开发者
