错误：美学必须是长度为1或与数据长度相同

Question

我希望只显示jitterplot图层的数据子集。

这是一些伪造的代码，它将演示我正在尝试的内容，其中jitterplot是所用数据的子集。

data <- data
data2 <- data[x > 500, ]

ggplot(data, aes(factor(col1), data[, col2] )) + 
stat_sum("median_hilow",conf.int=0.50, linetype='solid') + 
geom_jitter(data = data2, aes(color=col1, size=col2))

我得到的错误是：

  

错误：美学必须是长度为1或与数据相同的长度