箱线图R仅选择具有非唯一值的数据

我有一个这样的数据框

head(data)

 n   OESST      wsB
 4  0.52924690   4
 8  0.04488144   6
 6  0.29909668   6
 0  1.42228888   6
 2  1.92228888   4
 4  1.85659560   6

我正在做一个

OESST

的方框图，作为不同

n

值的

wsB

函数

ggplot(na.omit(data), aes(x=factor(wsB), y=OESST, colour = factor(n))) + geom_boxplot(outlier.size=0,fill = "white",position="dodge",size=0.3,alpha=0.3) + stat_summary(fun.y=median, geom="line", aes(group=factor(n), colour = factor(n)),size=1)

我想做的是从绘图中删除唯一的

n-wsB

组合（仅显示为一条线，但实际上没有方框）

有什么帮助吗

---

谢谢

我认为最好的方法就是先过滤数据。使用

dplyr

library(dplyr)
data %>%
  group_by(n, wsB) %>%
  mutate(n.wsB.count = n()) %>%
  filter(n.wsB.count > 1) %>%
  na.omit() %>%
ggplot(aes(x=factor(wsB), y=OESST, colour = factor(n))) +
  geom_boxplot(outlier.size=0,fill = "white", position="dodge", size=0.3, alpha=0.3) + 
  stat_summary(fun.y=median, geom="line", aes(group=factor(n)), size=1)

---

未测试（@MrFlick指出）提供的数据对于该问题是不可复制的。我还取出了

统计摘要中多余的
颜色
美学

，那么您的样本数据中是否有绘制的线条？如果没有，请您做一个测试，以便我们可以尝试绘制数据，看看会发生什么。