r - 在R中使用带状图有条件地绘制pch

我在尝试在R中的pch中指定stripchart时无法绘制不同的符号：

set.seed(7)
(x <- rpois(20, 5))
stripchart(x, method = "jitter", pch = ifelse(x %% 2 == 0, 16, 17))

我想要圆（pch = 16）是偶数，而三角形（pch = 17）是奇数点。应该很简单，但我无法使其正常工作-似乎仅是第一个价值。我也看不到stripchart的源代码。

有什么建议？如果我可以使用基本图形而不是ggplot，则更喜欢它。

最佳答案

我们可以将矢量除以奇数或偶数，然后用不同的pch值将点绘制两次。

set.seed(7)
(x <- rpois(20, 5))

x1 <- x[x %% 2 == 0]
x2 <- x[x %% 2 != 0]

stripchart(x1, method = "jitter", pch = 16, xlim = range(x))
stripchart(x2, method = "jitter", pch = 17, add = TRUE)