答案 0 :(得分:0)
在这种情况下,ifelse
功能是你的朋友。
sample_data <- mtcars[,1:4]
colors <- ifelse(mtcars$am, "blue", "pink")
plot(sample_data, col = colors)
对于需要三种或更多颜色的情况,cases
包中的memisc
函数将执行类似的功能:
library(memisc)
sample_data <- mtcars[,c(1, 3, 5)]
colors <- cases(
mtcars$cyl == 4 -> "red",
mtcars$cyl == 6 -> "blue",
mtcars$cyl == 8 -> "green"
)
plot(sample_data, col = colors)
但是,您最强大,最灵活的工具是使用ggplot2
包。以下是使用ggplot2
:
library(ggplot2)
qplot(x = mpg, y = drat, col = factor(cyl), geom = "point", data = mtcars)
学习如何使用ggplot2
包将是一项宝贵的长期投资。