如何在ggpubr中生成错误条上下晶须？

我正在尝试使用GGR plot复制一个方框图。然而，我在添加错误条时遇到了困难，尤其是在添加上下水平线时。在我的图表中，抖动点分布不均匀。这是我的代码和输出

survey <- data.frame(sample=rep(c("sample1","sample1", "sample1", "sample1", "sample1", "sample1", "sample1", "sample1", "sample1", "sample1", "sample2", "sample2", "sample2", "sample2", "sample2", "sample2", "sample2", "sample2", "sample2", "sample2"),1),
                values=c(200, 100, 150, 175, 145, 50, 75, 60, 45, 56, 300, 200, 150, 100, 125,  25, 50, 75, 45, 35))             
survey
library(ggpubr)
p1 <- ggboxplot(survey, x = "sample", y = "values", color = "black", fill = "sample", 
            palette =c("grey", "darkgrey"),
            width = 0.3, add = c("mean_se", "jitter"),
            add.params = list(size = 0.9))
p1

---

调查这里是最终输出。感谢所有回答我问题的人

p1 <- ggboxplot(survey, x = "sample", y = "values", color = "black", fill = "", 
            palette =c("grey", "darkgrey"),
            width = 0.2, add = c("mean_se", "dotplot"),
            add.params = list(size = 0.6),
            bxp.errorbar = TRUE,
            bxp.errorbar.width = 0.2)
p1

p1这里是最终输出。感谢所有回答我问题的人

p1 <- ggboxplot(survey, x = "sample", y = "values", color = "black", fill = "", 
            palette =c("grey", "darkgrey"),
            width = 0.2, add = c("mean_se", "dotplot"),
            add.params = list(size = 0.6),
            bxp.errorbar = TRUE,
            bxp.errorbar.width = 0.2)
p1

p1在你的OP中，
add（c（“mean_se”）
在方框图中添加小条，我在下面的代码中删除了这个。如果这是你想要的，请加回去。我还使用了
ggpubr
来接近您的OP，尽管我觉得
ggplot2
可能更灵活

library(ggplot2)
library(ggpubr)
p1 <- ggboxplot(survey, x = "sample", y = "values", color = "black", fill = "sample", 
                palette =c("grey", "darkgrey"), 
                width = 0.15, add = c("jitter"),
                add.params = list(size = 0.9),
                bxp.errorbar = TRUE, bxp.errorbar.width = 0.15)
p1

库（ggplot2）
图书馆（ggpubr）
p1在你的OP中，
add（c（“mean_se”）
在方框图中添加小条，我在下面的代码中删除了这个。如果这是你想要的，请加回去。我还使用了
ggpubr
来接近您的OP，尽管我觉得
ggplot2
可能更灵活

library(ggplot2)
library(ggpubr)
p1 <- ggboxplot(survey, x = "sample", y = "values", color = "black", fill = "sample", 
                palette =c("grey", "darkgrey"), 
                width = 0.15, add = c("jitter"),
                add.params = list(size = 0.9),
                bxp.errorbar = TRUE, bxp.errorbar.width = 0.15)
p1

库（ggplot2）
图书馆（ggpubr）
p1
ggboxplot（）
不是来自
ggplot2
。您使用哪个软件包来实现该功能？只需使用常规的
ggplot
函数，您就可以做到：
ggplot（调查，aes（样本，值））+stat_箱线图（geom='errorbar'，width=.5）+geom_箱线图（）+geom_jitter（）
如果您想生成与第二个示例类似的点，请查看
ggbeeswarm
谢谢@MrFlick。我正在使用ggpubr。谢谢@flies。我会调查一下，这能回答你的问题吗
ggboxplot（）
不是来自
ggplot2
。您使用哪个软件包来实现该功能？只需使用常规的
ggplot
函数，您就可以做到：
ggplot（调查，aes（样本，值））+stat_箱线图（geom='errorbar'，width=.5）+geom_箱线图（）+geom_jitter（）
如果您想生成与第二个示例类似的点，请查看
ggbeeswarm
谢谢@MrFlick。我正在使用ggpubr。谢谢@flies。我会调查一下，这能回答你的问题吗？是的，正如你在回答中所做的那样。您还可以使用
geom\u point
而不是
geom\u jitter
。这不是
geom\u dotplot（）
的目的。我想您需要在这里使用
geom_point（）
ggpubr
接受
dotplot
参数，但实际上我认为在这种情况下是
geom_point（）
。我的答案中添加了更多内容。如果它回答了您关于OP的问题，如果您勾选答案将对其他人有所帮助。太好了，谢谢您让我知道。我猜改变颜色和形状之前也有人问过，也有人回答过。是的，正如你在回答中所做的那样。您还可以使用
geom\u point
而不是
geom\u jitter
。这不是
geom\u dotplot（）
的目的。我想您需要在这里使用
geom_point（）
ggpubr
接受
dotplot
参数，但实际上我认为在这种情况下是
geom_point（）
。我的答案中添加了更多内容。如果它回答了您关于OP的问题，如果您勾选答案将对其他人有所帮助。太好了，谢谢您让我知道。我猜改变颜色和形状之前也有人问过，也有人回答过。我不明白。您要求组合箱线图和数据，并将数据放在箱线图的一侧，但您的解决方案给出了箱线图中的数据。我不明白。您要求组合箱线图和数据，并将数据放在箱线图的一侧，但您的解决方案给出了箱线图内的数据。