R 带误差条的分组图

R 带误差条的分组图,r,plot,ggplot2,errorbar,R,Plot,Ggplot2,Errorbar,我需要用ggplot2在R中复制这个图 有人知道怎么做吗? 谢谢。假设您正在使用误差条的平均值和标准偏差,您可以这样做(我创建了一个数据框,我认为可能与您的数据框类似): 库(tidyverse) df% 汇总(平均数=平均数(num),标准差=标准差(num)) ggplot(df1,aes(类别,平均值,颜色=cat))+ 几何点(位置=位置减淡(宽度=0.6))+ 几何误差条(aes(类别,ymin=(平均值-2*sd),ymax=(平均值+2*sd)), 位置=位置\减淡(宽度=0.6)

我需要用ggplot2在R中复制这个图

有人知道怎么做吗?
谢谢。

假设您正在使用误差条的平均值和标准偏差,您可以这样做(我创建了一个数据框,我认为可能与您的数据框类似):

库(tidyverse)
df%
汇总(平均数=平均数(num),标准差=标准差(num))
ggplot(df1,aes(类别,平均值,颜色=cat))+
几何点(位置=位置减淡(宽度=0.6))+
几何误差条(aes(类别,ymin=(平均值-2*sd),ymax=(平均值+2*sd)),
位置=位置\减淡(宽度=0.6))+
主题_bw()
这将为您提供以下图表:

library(tidyverse)
df <- data.frame(num = runif(160, min = 0, max = 1),
             class = c(rep(c(rep("t-logistic", 4), rep("NSC", 4), 
                             rep("Poisson", 4), rep("PCC", 4), rep("Sparse PCC", 4),
                             rep("Sup. PCC", 4), rep("Sparse PLS", 4), rep("SVM", 4)), 5)),
             cat = c(rep(c("A", "B", "C", "D"), 40)))


df1 <- df %>%
  group_by(class, cat) %>%
  summarize(mean = mean(num), sd = sd(num))


ggplot(df1, aes(class, mean, color = cat))+
  geom_point(position = position_dodge(width = 0.6))+
  geom_errorbar(aes(class, ymin = (mean - 2*sd), ymax = (mean + 2*sd)), 
                position = position_dodge(width = 0.6))+
  theme_bw()