在散点图中使用ggplot2 position_nudge-意外警告

Question

我正在尝试针对两个单独的因素针对连续变量绘制离散变量。为了避免在我尝试使用的position_nudge的因素之间过度绘图。这似乎可以正常工作，但是会报告警告，暗示position_nudge的参数不应该被向量化。有没有办法在没有警告消息的情况下生成相同的图？我试图避免尽可能修改基础数据集。

使用内置diamonds数据集的示例：

library(ggplot2)
data("diamonds")

diamonds$split <- ifelse(diamonds$color %in% c("D","E","F"), 1, 2)

ggplot(diamonds, aes(x=cut, y=price, colour=factor(split))) + geom_point()

ggplot(diamonds, aes(x=cut, y=price, colour=factor(split))) + 
  geom_point(position=position_nudge(x=ifelse(diamonds$split==1, -0.1, 0.1)))

（对于我的真实数据，该图看起来更有用！）

Warning message:
In if (params$x != 0) { :
  the condition has length > 1 and only the first element will be used