[英]label datapoints when using geom_jitter overlaying on a box plot
I'm overlaying data points on a box plot.我在箱线图上叠加数据点。 The problem I'm encountering is when trying to label the data points, the labels are not displayed over the data point.我遇到的问题是在尝试标记数据点时,标签未显示在数据点上。 Any help here is appreciated.任何帮助在这里表示赞赏。 Thanks谢谢
df <- data.frame(sno= c(1:10), A =sample(1:1000, 10), B=sample(1:100, 10), C=sample(1:300, 10))
df <- melt(df, id.vars = "sno")
library(ggplot2)
ggplot(df, aes(x="", y=value, label=sno)) +
facet_wrap(~variable, scales = "free") +
geom_boxplot()+
geom_jitter(position=position_jitter(0.2), col="blue") +
geom_text(aes(label=sno))
You can use jitter
from base
to make your own dataset and then use that in geom_point
.您可以使用来自base
jitter
来制作您自己的数据集,然后在geom_point
使用它。 Using this approach you can assign your x
for geom_label
so points and labels are aligned.使用这种方法,您可以为geom_label
分配x
,以便点和标签对齐。
df <- data.frame(sno= c(1:10), A =sample(1:1000, 10),
B=sample(1:100, 10), C=sample(1:300, 10))
df <- reshape2::melt(df, id.vars = "sno")
dfj <- df
dfj$xj <- jitter(as.numeric(factor(df$variable)))
library(ggplot2)
ggplot(df, aes(x=as.numeric(variable), y=value, group=NULL)) +
facet_wrap(~variable, scales = "free") +
geom_boxplot()+
geom_point(data = dfj, aes(x=xj), col="blue") +
geom_text(data = dfj, aes(x=xj,label=sno, hjust=2)) +
scale_x_continuous(breaks = as.numeric(df$variable))+
theme(axis.title.x=element_blank(),
axis.text.x=element_blank(),
axis.ticks.x=element_blank())
#> Warning: Continuous x aesthetic -- did you forget aes(group=...)?
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.