拉布勒特定點通過使用該代碼時使用GGPLOT2

Question

：

t1 <- ggplot(mtcars, aes(x=as.factor(cyl),y=mpg)) 
t2 <- geom_boxplot(outlier.shape=NA) 
t3 <- geom_jitter(width=0.3, size=1.5, aes(color = disp)) 
t4 <- scale_colour_gradient(low="blue",high="red") 
t5 <- geom_text(aes(label=ifelse(mpg > 30,as.character(mpg),''))) 

t1 + t2 + t3 + t4 + t5 

我得到結合抖動點的箱線圖。然而，我也可以標出興趣點，標籤不是在特定點旁邊，而是在箱形圖的垂直中間。

Here is the figure

任何想法，我怎麼能放在旁邊的文字對應的點？

非常感謝你們！

順便說一下：你可以推薦我ggplot2初學者的課程或教程？

Answer 1

事先抖動？

library(ggplot2) 
set.seed(1) 
t1 <- ggplot(transform(mtcars, xjit=jitter(as.numeric(as.factor(cyl)))), aes(x=as.factor(cyl),y=mpg)) 
t2 <- geom_boxplot(outlier.shape=NA) 
t3 <- geom_point(size=1.5, aes(x=xjit, color = disp)) 
t4 <- scale_colour_gradient(low="blue",high="red") 
t5 <- geom_text(aes(x=xjit, label=ifelse(mpg > 30,as.character(mpg),'')), vjust = 1) 

t1 + t2 + t3 + t4 + t5