在R中用条带图有条件地绘制pch

Question

我很难用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的话，我会更喜欢它。

Answer 1

我们可以将向量除以奇数或偶数，然后用不同的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)

​

​