我有以下数据,我想绘制两个时间点(t1,t2)上物种1和物种2的“值”。我想创建一个图,其中每个物种的原始值都使用geom_points (不同的颜色)可见。另外,我想使用相同颜色的较大尺寸来显示平均值。对于给定的物种,我希望将t1和t2的平均值(也称为反应规范)联系起来。因此,在这个例子中,物种1的直线应该向上倾斜,物种2的直线应该保持不变。
我已经尝试了基本的ggplot2,但我不知道如何添加行和显示较大尺寸的平均值。此外,由于某些原因,“填充”不会生成不同的颜色。
time <- c("t1","t1","t1","t1","t1","t1","t2","t2","t2","t2","t2","t2")
species <- c(1,1,1,2,2,2,1,1,1,2,2,2)
value <- c(1,2,3,11,12,13,4,5,6,11,12,13)
df <- data.frame(time, species,value)
df$time <- as.factor(df$time)
df$species <- as.factor(df$species)
ggplot(df,aes(x=time, y=value, fill = species)) +
theme_bw() +
geom_point() +
stat_summary(fun.y=mean, position = "dodge") +
stat_summary(geom="errorbar", fun.data= mean_cl_boot, width = 0.1, size = 0.2, col = "grey57") +
ylab("Fitness")
https://stackoverflow.com/questions/54817221
复制相似问题