如何用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))

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

​

​

密码有什么问题吗？这是正常的(每个运行一个不同的图表)？

Answer 1

在绘图时尝试设置种子：

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

从手册?geom_jitter

它在每个点的位置上增加了少量的随机变化，是处理较小数据集中离散性引起的超标值的一种有效方法。

要使这种“随机变化”可复制，我们需要在绘图时设置set.seed。

Answer 2

如果我们想要做一些随机的，但对排列等可重复的东西，我们可以用样本来设置种子：

my.seed = sample(1:10000,1)
set.seed(my.seed)

然后，我们可以使用它来编写文件名，例如：

save(my_plot, paste0('plot', my.seed, '.rda')