我有一個包含很多重疊點的數據集,並使用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