关于 fct_relevel 和 scale_fill_manual

如何解决关于 fct_relevel 和 scale_fill_manual

我正在尝试绘制一组表示产品 (x) 和消费者投诉数量 (y) 之间关系的图。我想知道如何使用 fct_relevel 来改变情节的顺序。它们现在按字母顺序排列，但我希望它们按日历年顺序排列。另外，我使用 scale_fill_manual 来更改绘图的颜色，但它似乎不起作用。任何帮助表示赞赏！

This is the output I have for now.

This is the output I am looking for.

library(tidyverse)
library(forcats)

cc <- read.csv('C:\\Users\\emma Ping\\Desktop\\STAT 405\\consumer_complaints.csv')
cc1 <- cc[cc$Year == "2015" & cc$submitted_via == "Web",]

cbPalette <- c("#CC79A7","#D55E00","#56B4E9","#F0E442","#009E73","#0072B2","#999999","#E69F00")

p4 <- ggplot(cc1,aes(reorder(product,-table(product)[product]))) + 
       geom_bar() + 
       ggtitle("Number of Monthly Web Consumer Complaints for the year 2015")+
       xlab("Data Products") + 
       ylab("Number of Consumer Web Complaints")+ 
       guides(fill = "none")+
       scale_fill_manual(values = cbPalette)+
       facet_wrap(~Month,ncol=4,scales="free_y")+
       theme(axis.text.x = element_text(angle = 90,hjust=1,size=12))
p4  

解决方法

有一些内置常量，month.name 就是其中之一。您的月份的拼写似乎相同，因此应该可以：

 cc1$Month <- factor(cc1$Month,levels=month.name)

请注意，它不是 months.names 或 month.names。