R 仅针对某些箱线图绘制抖动点

我有五个文件，其中包含矩阵形式的数据，我正在使用geom\u boxplot进行绘制。每个箱线图对应一个文件

我想实现的是，对于某些文件，比如这里的div1、div3、div5我想用数据点覆盖在箱线图上绘制箱线图。我可以使用geom_jitter添加数据点，但我必须将带有数据点的图与仅有的箱线图分开

由于我想保留打印文件的顺序。。即div0，div1。。等等。我无法仅为某些箱线图绘制数据点

如何仅为某些箱线图而不是所有箱线图添加覆盖数据点

files <- c(div0,div1,div2,div3,div4,div5)

p1 <- ggplot(moltenNew,aes(x=L1,y=value,colour=L1))+ ylim(0.3,0.8) +
       geom_boxplot() + facet_wrap(~variable,nrow=1) + scale_x_discrete(limits = basename(files) ,labels = basename(files))


 ![enter image description here][1] 

---

文件您可以使用
子集
：

set.seed(1)
moltenNew <- rbind(
  data.frame(value = rnorm(20, 50, 20), L1 = gl(2, 10), variable = 1),
  data.frame(value = rnorm(20, 100, 100), L1 = gl(2, 10), variable = 2),
  data.frame(value = rnorm(20, 75, 10), L1 = gl(2, 10), variable = 3) 
)
moltenNew
library(ggplot2)
ggplot(moltenNew,aes(x=L1,y=value,colour=L1)) + 
  geom_boxplot() + 
  facet_wrap(~variable,nrow=1, scale = "free_y") + 
  geom_point(subset = .(variable == 2), position = position_jitter(width = .2))

set.seed（1）
moltenNew为什么会出现以下错误：do.call（“layer”，list（mapping=mapping，data=data，stat=stat，：找不到函数）中的错误。oops，
必须从plyr包中导入。因此，您可以在之前添加
库（plyr）
（假设您安装了该包）或使用
plyr:：。（变量==2）
。或者。
几何点（数据=子集（moltenNew，变量==2），位置=位置抖动（宽度=.2））
也应该起作用。