r - 如何使带有 geom_jitter 的散点图可重现？

Question

我正在使用澳大利亚艾滋病生存数据。这次创建散点图。

为了显示不同报告传播类别 (T.categ) 的生存性别，我以这种方式绘制图表:

data <- read.csv("https://raw.githubusercontent.com/vincentarelbundock/Rdatasets/master/csv/MASS/Aids2.csv")

data %>%
  ggplot() +
  geom_jitter(aes(T.categ, sex, colour = status))

它显示了一个图表。但每次我运行代码时，似乎都会生成不同的图表。这是其中的 2 个放在一起的。

代码有问题吗？正常吗(每次运行不同的图表)？

Answer 1

如果您使用 geom_point 而不是 geom_jitter，则可以添加 position =position_jitter()，它接受种子参数:

library(ggplot2)
p <- ggplot(mtcars, aes(as.factor(cyl), disp)) 

p + geom_point(position = position_jitter(seed = 42))

p + geom_point(position = position_jitter(seed = 1))

返回“42”

p + geom_point(position = position_jitter(seed = 42))

^{由reprex package于2020年7月2日创建(v0.3.0)}