R 如何更改具有3列的绘图中的颜色？

因此，我有一个包含3列的数据集（非填鸭式、小时数、总成绩） 我正在根据总成绩绘制小时数。 notCrammed只有0表示crammed，1表示notCrammed。 我正在策划并试图为那些死记硬背的人改变颜色。 例如，如果80人没有死记硬背，20人死记硬背。我想改变颜色，这样我可以看到80个绿点和20个红点。或任何颜色来区分它们

color <- 1
if(my.data$Studied<-1){
color <- 2
}
plot(my.data$Hours,my.data$Grade,xlab = "notCrammed",ylab = "Grade Scale",main = "Student Report",col =color)

---

color编辑2，上载新绘图，因为上一个绘图的par设置错误。
你可以这样做：

#Simulating some data
set.seed(10)
my.data = data.frame("Hours" = sample(1:50, 10, replace = T),
                  "total grade" = sample(c(0,2,4,7,10,12), 10, replace = T),
                  "notCrammed" = rbinom(10, 1, prob = 0.5))

#Creating the plot
plot(my.data$Hours, my.data$total.grade, xlab = "notCrammed",ylab = "Grade Scale",
     main = "Student Report", col = (my.data$notCrammed + 1))


在本例中，“not cramed”是零，颜色为黑色，而cramed是红色

编辑：或者如果您想要绿色和红色，则此选项应该有效：

plot(my.data$Hours, my.data$total.grade, xlab = "notCrammed",ylab = "Grade Scale", main = "Student Report",  
col = c("green", "red")[as.factor(my.data$notCrammed)]))

使用@Qwethm的基本数据集，您可以使用ggplot预设颜色。这也允许您使用简单的语言更改颜色

set.seed(10)
my.data = data.frame("Hours" = sample(1:50, 10, replace = T),
                     "total grade" = sample(c(0,2,4,7,10,12), 10, replace = T),
                     "notCrammed" = rbinom(10, 1, prob = 0.5))

library(ggplot2)
library(viridis)
my.data$notCrammed <- as.factor(my.data$notCrammed) #Change to a factor so it's discrete output

cols <- c("0" = "darkgreen","1"="red")

ggplot()+
  geom_point(data=my.data,aes(x=Hours,y=total.grade,colour=notCrammed))+
  scale_colour_manual(
    values = cols,
    aesthetics = c("colour", "fill")
  )+
  xlab("notCrammed")+
  ylab("Grade Scale")+
  ggtitle("Student Report")


set.seed（10）
my.data=data.frame（“小时数”=样本（1:50，10，替换=T），
“总品位”=样品（c（0,2,4,7,10,12），10，替换=T），
“notcramed”=rbinom（10,1，prob=0.5））
图书馆（GG2）
图书馆（绿色）
我的.data$notcramed