将点添加到基于另一变量的箱线

Question

我对R相当陌生，并且很感激一些输入。我为每个波形（1-5）创建了一个最多4个盒形图的情节。我现在想根据他们的ID在剧情上显示符号以供他人回复。例如，我想显示id = 202（id也在数据“mydata”中）的响应。我搜索了高和低，并不知道如何去做。有什么想法吗？这里是我的代码（似乎没有10声誉我不能发布我的形象）：

ggplot(aes(y=InnAttMeasure, x=interaction(IntType, wave)), data=mydata)+ 
geom_boxplot(aes(fill=factor(IntType)))+ 
stat_summary(fun.y="mean", geom="point", shape=23, size=3, fill="black") + 
scale_fill_brewer()+ 
xlab("Wave") + 
ylab("Innovation Attribute Measure (1-7)") + 
facet_grid(.~wave, scales="free", space="free") + 
coord_cartesian(ylim=c(0,7.5)) + 
scale_y_continuous(breaks=seq(0,7,1)) + 
scale_x_discrete(breaks=NULL) + 
theme(panel.grid.minor.y=element_blank(), 
panel.grid.major.y=element_blank()) 

Answer 1

这不是完全清楚你问什么，但也许你可以建造使用的一个例子内置数据集。举例来说，我认为这可能是你追求的：

# First look at the mtcars dataset 
mtcars 

library(ggplot2) 

# Let's make a dataframe of just the Mercedes cars; lots of ways to do this. 
mercedes <- mtcars[grep("Merc", row.names(mtcars)), ] 

# Now plot a boxplot of mpg by cylinder and then overlay points geom_point() 
# of just the Mercedes dataframe 
ggplot(data = mtcars, aes(y = mpg, x = factor(cyl))) + 
    geom_boxplot() + 
    geom_point(data = mercedes, color = "blue", position = "jitter", size = 4)