散点图点子集颜色形状 ifelse

Question

我想做一个散点图，其中一些值，在一个子集中，以不同的颜色和形状绘制。 我已经解决了以下代码，但我没有设法使它正确。 非常感谢任何帮助！

# 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))

Answer 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") - 最后缺少逗号。