使用 ggplot2 标记 geom_jitter() 的特定点
Lable specific points of geom_jitter() by using ggplot2
使用此代码时:
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
我得到了结合抖动点的箱线图。我也可以标记兴趣点,但是:标记不在特定点旁边,而是在箱线图的垂直中间。
知道如何将文本放在对应点旁边吗?
非常感谢你们!
顺便问一下:你能给我推荐一门针对 ggplot2 初学者的课程或教程吗?
事先抖一下?
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
使用此代码时:
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
我得到了结合抖动点的箱线图。我也可以标记兴趣点,但是:标记不在特定点旁边,而是在箱线图的垂直中间。
知道如何将文本放在对应点旁边吗?
非常感谢你们!
顺便问一下:你能给我推荐一门针对 ggplot2 初学者的课程或教程吗?
事先抖一下?
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