制作一个图例，将数据中的信息分成两部分

Question

数据y和x分为女性和男性。我希望在图表中显示女性的传说“红色”和男性的“蓝色”。我尝试过以下代码，但我不知道蓝色或红色是男性= 1还是女性= 0？

 x          y        Gender       
32840   0,55516685     0
23640   0,58716721     0
30984   0,56230706     1
22960   0,59569562     1
27808   0,61195034     1
39104   0,57468795     1
20920   0,61508139     0
30496   0,58029317     0



mod1 = lm(y~x, data=data)
modsum = summary(mod1)

plot(data$x, data$y, col =c("red", "blue"), pch = 19, type = 'p', las =1, 
     xlab = expression(paste('RD')),
     ylab = 'FA') 
abline(mod1)

我该怎么办？

Answer 1

这样的东西？

data$col <- ifelse(data$Gender == 0 , "red", "blue") 
plot(data$x, data$y, col = data$col, pch = 19, type = 'p', las =1, 
     xlab = expression(paste('RD')),
     ylab = 'FA')
legend("topright", legend=c("male", "female"),col=c("blue", "red"), pch = c(19,19))
abline(mod1)

documentation