给某一类着色 图书馆GGPLOT2 ggplotmpg,AESDREPT,高速公路,颜色=等级+ 几何点

给某一类着色 图书馆GGPLOT2 ggplotmpg,AESDREPT,高速公路,颜色=等级+ 几何点,r,ggplot2,R,Ggplot2,如果我想给一个特殊的类别上色,比如说双座,代码中的修改是什么。您可以将逻辑条件直接包装在颜色元素中: 输出: 由于legend没有时尚标题,您可以使用labs来更改它,或者按照@r2evans的建议创建一个新列,使用dplyr存储逻辑条件的结果: 输出: 更新: 输出: 试试这个。您可以将逻辑条件直接包装在颜色元素中: 输出: 由于legend没有时尚标题,您可以使用labs来更改它,或者按照@r2evans的建议创建一个新列,使用dplyr存储逻辑条件的结果: 输出: 更新: 输出: 您也可以

如果我想给一个特殊的类别上色,比如说双座,代码中的修改是什么。您可以将逻辑条件直接包装在颜色元素中:

输出:

由于legend没有时尚标题,您可以使用labs来更改它,或者按照@r2evans的建议创建一个新列,使用dplyr存储逻辑条件的结果:

输出:

更新:

输出:


试试这个。您可以将逻辑条件直接包装在颜色元素中:

输出:

由于legend没有时尚标题,您可以使用labs来更改它,或者按照@r2evans的建议创建一个新列,使用dplyr存储逻辑条件的结果:

输出:

更新:

输出:


您也可以尝试以这种方式添加特定颜色:

ggplot(mpg, aes(displ, hwy, colour = class)) + 
  geom_point() +
scale_color_manual(values = c("2seater" = "#992399", "Other" = "#000000"))

您也可以尝试以这种方式添加特定颜色:

ggplot(mpg, aes(displ, hwy, colour = class)) + 
  geom_point() +
scale_color_manual(values = c("2seater" = "#992399", "Other" = "#000000"))

就在即将发布的时候,他更喜欢预先定义一个新的列,这样图例就更可读了。@r2evans这是一个很好的方法,亲爱的,你可以使用labs。我将在几秒钟内添加它!mpg%>%mutateColor=ifelseclass=='2seater','2seater','Other'>%GGPlotaesDispred,hwy,Color=Color+geom\u point+scale\u Color\u manualvalues=c2seater=992399,Other=000000我正在尝试添加一条适用于所有类别的趋势线,因为如果我添加一条趋势线geom\u smoothmethod=lm,它为两个座位分开画,我没有want@DipojjalSaha我已经为你想要的东西添加了一个更新,让我知道这是否适合你!就在即将发布的时候,他更喜欢预先定义一个新的列,这样图例就更可读了。@r2evans这是一个很好的方法,亲爱的,你可以使用labs。我将在几秒钟内添加它!mpg%>%mutateColor=ifelseclass=='2seater','2seater','Other'>%GGPlotaesDispred,hwy,Color=Color+geom\u point+scale\u Color\u manualvalues=c2seater=992399,Other=000000我正在尝试添加一条适用于所有类别的趋势线,因为如果我添加一条趋势线geom\u smoothmethod=lm,它为两个座位分开画,我没有want@DipojjalSaha我已经为你想要的东西添加了一个更新,让我知道这是否适合你!不适用于我,错误:手动刻度中的值不足。需要7个,但仅提供2个。。在绘制mpg$class之前是否更改了它?我假设您使用的是Duck的数据?您必须添加mpg%>%code的代码对我不起作用,错误:手动缩放中的值不足。需要7个,但仅提供2个。。在绘制mpg$class之前是否更改了它?我假设您使用的是Duck的数据?您必须使用mpg%>%代码添加代码
#Code2
mpg %>% mutate(Color=ifelse(class=='2seater','2seater','Other')) %>%
  ggplot(aes(displ, hwy, colour = Color)) +
  geom_point()+
  scale_color_manual(values = c("2seater" = "#992399", "Other" = "#000000"))+
  geom_smooth(method = 'lm',aes(group=1),show.legend = F)
ggplot(mpg, aes(displ, hwy, colour = class)) + 
  geom_point() +
scale_color_manual(values = c("2seater" = "#992399", "Other" = "#000000"))