用R中的条形图有条件地绘制pch

试图在R中的

条形图中指定
pch
，绘制不同符号时遇到问题：

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

set.seed（7）
（x我们可以用奇数或偶数分割向量，然后用不同的
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)

set.seed（7）
（x这是有帮助的，但我把我的reprex做得太简单了。我实际上希望将
pch
建立在不同的值向量上，而不仅仅是它们的x值……我可以编辑我的问题来反映这一点。@Ekontz如果可能，请提出一个新问题，并提供真实的可复制示例和清晰的描述。您可以拆分为一个list，然后使用
Map
如果有许多组
lst 0.5）+1）；不可见（Map（条带图，lst，add=c（FALSE，TRUE），method=“jitter”，pch=list（17,16），xlim=list（c（0,1））；>abline（v=0.5，lty=2）
@akrun对于我的实际数据，每个点都将基于一个单独的值而不是它在绘图中的实际位置来绘制——我编辑了我的问题以反映这一点<代码>地图
可能会有所帮助though@eKoontz您是否尝试过
Map
方法
lst