定制化r蜂群

Question

我在R中使用beeswarm包，并且在定制单个数据点时遇到了一些问题。我正在使用下面的数据和代码。

 library(beeswarm)
 df <- data.frame(x = c(LETTERS), y = "1", 
 z = c(rnorm(26, 11, 4)))
 beeswarm(z ~ y, data = df,
     pwcol = c(1, rep(2, 25)), pwpch = c(1, rep(2, 25)), corral = "wrap", method = "center", 
     xlab = "", ylab = "variable", las=1
     )

我想改变这一点，以便：

1. 单独的黑色圆圈变成一个黑色钻石，红色填充。
2. 全红色三角形数据点变成暗灰色圆圈，没有填充(打开)。

有人能帮忙吗？谢谢。

Answer 1

你快到了，你只需要做几个小小的改变：

library(beeswarm)
df <- data.frame(x = c(LETTERS), y = "1", 
                 z = c(rnorm(26, 11, 4)))
beeswarm(z ~ y, data = df,
         pwcol = c("black", rep("grey15", 25)),
         pwpch = c(23, rep(1, 25)),
         pwbg = c("red", rep("transparent", 25)),
         corral = "wrap", method = "center", 
         xlab = "", ylab = "variable",
         las=1
)