我想做一个散点图,其中子集中的一些值以不同的颜色和形状绘制。 我已经解决了以下代码,但我无法使其正确。 非常感谢任何帮助!
# My data
iris
iris$Code <- 1:150
# A selection of my data I'd like to plot differently
subset <- subset(iris, iris$Sepal.Width<3.5)
sel <- as.character(subset$Code) # I think the problems start here :)
# Plotting doesn't work
plot(iris$Sepal.Length ~ iris$Sepal.Width,
col=ifelse(iris$Code==sel, "red", "black"),
pch=ifelse(iris$Code==sel, 17, 1))
最佳答案
试试这个:
#define subset
sel <- iris[iris$Sepal.Width<3.5,"Code"]
#plot
plot(iris$Sepal.Length ~ iris$Sepal.Width,
col=ifelse(iris$Code %in% sel, "red", "black"),
pch=ifelse(iris$Code %in% sel, 17, 1))
注意:在您的代码中存在一些明显的错误:
dd <- iris
- 为什么分配给dd
并且从不使用它?
iris$Sepal.Widith
- 拼写
... "black")
- 末尾缺少逗号。
关于r - 散点图点子集颜色形状 ifelse,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/23949927/