代码出现faceting variables must have at least one value问题，应该怎么解决呀，

orders <- orders %>% separate(col=market_area,into = c(‘market’,‘area’),sep = ‘-’)
sales_year_market <- orders %>% select(year,market,area,sales) %>% group_by(year,market,area)%>%
summarise(sum=sum(sales))%>%unite(market_area,market,area,sep="")

ggplot(sales_year_market,aes(x=market_area,y=sum, fill=year)) +
geom_bar(stat=“identity”,position=“fill”) +
geom_hline(yintercept = 0,size=1, colour="#333333")+
#scale_fill_manual(values = c("#1380A1","#D1E5F0",“92C5DE”))+
bbc_style()+
labs(title = “2011-2014年各区域销售额占比”,y=“销售额占比”,x=“区域”)+
theme(plot.title = element_text(size=16,face=“bold”,
hjust = 0.5),
plot.caption = element_text(size=14,face=“bold”),
axis.title = element_text(size = 8),
axis.text = element_text(size = 9),
axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.5),
legend.position = ‘right’,legend.title = element_blank(),
legend.text = element_text(size = 8))

#各区域每年销售额
sales_area_year <- orders %>% select(market,area,year,sales) %>% group_by(market,area,year)%>%
summarise(sum=sum(sales))

#画出各个地区销售额
ggplot(filter(sales_area_year,market==“拉丁美洲”),aes(x=year,y=sum,fill=year)) +
geom_bar(stat=“identity”,position=“dodge”) + facet_grid(.~area)+
geom_hline(yintercept = 0,size=1, colour="#333333")+
scale_fill_manual(values = c("#1380A1","#D1E5F0",“92C5DE”,"#1380B2"))+
bbc_style()+
labs(title = “2011-2014年拉丁美洲各区域销售额”,y=“销售额”,x=“年份”)+
theme(plot.title = element_text(size=16,face=“bold”,
hjust = 0.5),
plot.caption = element_text(size=14,face=“bold”),
axis.title = element_text(size = 8),
axis.text = element_text(size = 9),
axis.text.x = element_text(angle = 45, hjust = 0.5, vjust = 0.5),
legend.position = ‘right’,legend.title = element_blank(),
legend.text = element_text(size = 8))