R以95％的置信区间绘制两个系列的均值

Question

我正在尝试绘制以下数据

factor <- as.factor(c(1,2,3))
V1_mean <- c(100,200,300)
V2_mean <- c(350,150,60)
V1_stderr <- c(5,9,3)
V2_stderr <- c(12,9,10)

plot <- data.frame(factor,V1_mean,V2_mean,V1_stderr,V2_stderr)

我想创建一个在x轴上具有因子，在y轴上具有值，以及V1和V2分别为线的图（因此，点是一条线上的V1_mean值和另一条线上的V2_mean值）。 我还想基于V1_stderr和V2_stderr为这些方法添加误差线

非常感谢

Answer 1

我不确定您想要的输出，但这是一个可能的解决方案。

首先，我不会调用您的数据plot因为这是R中常用的存储函数

其次重要的是，当你想在绘制两行ggplot你通常使用的功能，例如有潮汐数据melt （从reshape2封装）或gather （从tidyr包）。

这是一种可能的方法

library(ggplot2)
library(reshape2)

dat <- data.frame(factor, V1_mean, V2_mean, V1_stderr, V2_stderr)
mdat <- cbind(melt(dat[1:3], "factor"), melt(dat[c(1, 4:5)], "factor"))
names(mdat) <- make.names(names(mdat), unique = TRUE)

ggplot(mdat, aes(factor, value, color = variable)) +
  geom_point(aes(group = variable)) + # You can also add `geom_point(aes(group = variable)) + ` if you want to see the actual points
  geom_errorbar(aes(ymin = value - value.1, ymax = value + value.1))