这个问题在这里已有答案:
下面的R脚本给出了散点图。然而,该数据集中的9个观察结果恰好在80岁左右的时候有age
。
我想将这9个点改为红色圆圈。我该怎么做?
library(ISwR)
age <- juul[ ,1]
igf1 <- juul[ ,4]
plot(age, igf1, pch = 15, col = "blue")
正如lebastnok建议的那样,你可以使用ifelse
向量为每个点选择一种不同的颜色/形状。
x <- rnorm(50)
y <- rnorm(50)
plot(x, y,
col=ifelse(x<0, 'blue', 'red'),
pch=ifelse(y<0, 15, 21))
在你的情况下,我想:
library(ISwR)
age <- juul[ ,1]
igf1 <- juul[ ,4]
plot(age, igf1, pch=15, col=ifelse(age < 80, "blue", "red"))
应该做的伎俩。