R 单独数据框中的配色方案

我可以使用scale_color_手册指定绘图中的颜色，如下所示：

library(tidyverse)
mpg %>% 
filter(class=="2seater"|class=="minivan")%>%
ggplot(aes(displ, hwy,colour=class)) + 
  geom_point()+
  scale_color_manual(values=c(
    "2seater"="green",
    "minivan"="red"))

class<-c("2seater","minivan")
color<-c("green","red")
colorscheme<-data.frame(class,color,stringsAsFactors = FALSE)

但如果我有一个单独的数据帧，如下所示：

library(tidyverse)
mpg %>% 
filter(class=="2seater"|class=="minivan")%>%
ggplot(aes(displ, hwy,colour=class)) + 
  geom_point()+
  scale_color_manual(values=c(
    "2seater"="green",
    "minivan"="red"))

class<-c("2seater","minivan")
color<-c("green","red")
colorscheme<-data.frame(class,color,stringsAsFactors = FALSE)

如何使用此选项指定ggplot中的颜色？

mpg%>% %c2座小型货车%>% GGPLOTAESDREP，高速公路，颜色=等级+ 几何点+ 比例\颜色\手动值=颜色方案$color， labels=colorscheme$class mpg%>% %c2座小型货车%>% GGPLOTAESDREP，高速公路，颜色=等级+ 几何点+ 比例\颜色\手动值=颜色方案$color， labels=colorscheme$class 另一个选项是加入后缩放颜色标识：

library(tidyverse)
#Code
mpg%>%filter(class=="2seater"|class=="minivan")%>%
  left_join(colorscheme) %>%
  ggplot(aes(displ, hwy,colour=color)) + 
  geom_point()+
  scale_color_identity(guide = "legend",
                       labels=c("2seater","minivan"),name='class')

输出：

另一个选项是加入后缩放颜色标识：

library(tidyverse)
#Code
mpg%>%filter(class=="2seater"|class=="minivan")%>%
  left_join(colorscheme) %>%
  ggplot(aes(displ, hwy,colour=color)) + 
  geom_point()+
  scale_color_identity(guide = "legend",
                       labels=c("2seater","minivan"),name='class')

输出：