我有一个包含很多重叠点的数据集,并使用ggplot来创建气泡图以显示数据。我需要在我的图上为每个组的x轴添加小节(值可以是0,1或2)。我试图使用geom_errorbar,但一直没能使它与我的数据一起工作。任何帮助/建议将不胜感激。ggplot的气泡图上的每组平均值
以下是我的代码和脚本生成假数据是相似的:
y <- seq(from=0, to=3.5, by=0.5)
x <- seq(from=0, to=2, by=1)
xnew <- sample(x, 100, replace=T)
ynew <- sample(y, 100, replace=T)
data <- data.frame(xnew,ynew)
data2 <- aggregate(data$xnew, by=list(x=data$xnew, y=data$ynew), length)
names(data2)[3] <- "Count"
ggplot(data2, aes(x = x, y = y)) +
geom_point(aes(size=Count)) +
labs(x = "Copies", y = "Score") +
aes(ymax=..y.., ymin=..y..) +
scale_x_continuous(breaks = seq(0, 2, 1)) +
scale_y_continuous(breaks = seq(0, 3, 0.5)) +
theme(legend.position = "bottom", legend.direction = "horizontal",
axis.line = element_line(size=1, colour = "black"),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.border = element_blank(),
panel.background = element_blank(),
axis.text.x = element_text(colour="black", size = 10),
axis.text.y = element_text(colour="black", size = 10))
这正是我想要做的。我只需要添加计数对象创建的代码部分。谢谢! – Kimmy