R中图的着色点

Question

I'm trying to colour certain points of a scatter plot in R using logical arguments. My data is a function of sex( M/F ) and faculty (A/M/S/E). I want to colour each faculty, say green, red, blue, black, and then have the females showing as outline only, with a white center.

plot(year, logit.prop, type="n", xlab="Year of graduation", ylab="Logit proportion of survivors", ylim=c(-1,3))
points(year[faculty=="M"], logit.prop[faculty=="M"], pch=21, 
points(year[faculty=="A"], logit.prop[faculty=="A"], pch=21, bg="red", col="red")

This is a section of the code i'm currently using, is there a way to tell R to colour points where the x axis value (thats year here) is both female and A?

Answer 1

As the @mr.joshuagordon said, col and other arguments to points can take vectors. Since you didn't provide data, here's something:

df <- data.frame(x = rep(1:4, each = 2), y = rep(1:2, times = 4), faculty = rep(c("A", "M", "S", "E"), each = 2), gender = rep(c("M","F"), times = 4))
df
#   x y faculty gender
# 1 1 1       A      M
# 2 1 2       A      F
# 3 2 1       M      M
# 4 2 2       M      F
# 5 3 1       S      M
# 6 3 2       S      F
# 7 4 1       E      M
# 8 4 2       E      F
plot(y ~ x, data = df, pch = ifelse(gender == "M", 16, 21), col = factor(faculty))
text(y + 0.5 ~ x, data = df, labels = faculty)

In this case, factor(faculty) worked because factors are internally integers counting from 1 on up. You can see what colors are set for each number with:

palette()
# [1] "black"   "red"     "green3"  "blue"    "cyan"    "magenta" "yellow" 
# [8] "gray"   

If you want different colors, you can either use conditionals (such as ifelse ) on faculty itself, or you can just define the palette colors (see ?palette ).