从一组数据中获取2个散点图和直方图

Question

所以我有以下数据集

> sleep
     extra group ID
1    0.7     1  1
2   -1.6     1  2
3   -0.2     1  3
4   -1.2     1  4
5   -0.1     1  5
6    3.4     1  6 
7    3.7     1  7
8    0.8     1  8
9    0.0     1  9
10   2.0     1 10
11   1.9     2  1
12   0.8     2  2
13   1.1     2  3
14   0.1     2  4
15  -0.1     2  5
16   4.4     2  6
17   5.5     2  7
18   1.6     2  8
19   4.6     2  9
20   3.4     2 10

我的任务是生成两个Scatterplot，显示药物1和2（组）的效果也是两个Histog，我一直在使用不同的东西，但严重不是线索，我不能使用ggplot作为我＆m;无法在我的计算机实验室安装任何东西！请帮忙！

Answer 1

像这样的东西，也许：

pdf("my_plots.pdf")
for (g in unique(sleep$group)) {
  with(sleep[sleep$group==g,], plot(ID, extra, main=paste0("Group = ",g)))
  hist(sleep$extra[sleep$group==g], main=paste0("Group = ",g))
}
dev.off()

根据@ rawr的评论，您可以在运行上述代码之前添加par(mfrow=c(1,2))或par(mfrow=c(2,2))，在一个页面上添加两个或四个图。