条形图（ggplot，R）中的美学错误

debugcn 发表于 Dev

乳杆菌属

我正在尝试绘制从黄色到红色的渐变条形图。但是，我不断收到“错误：美学的长度必须为1或与数据（10）相同：y and fill”。

这段代码几乎可以在几乎相同的数据帧中正常工作，所以我不明白我在做什么错。在另一个网站上，他们建议手动选择每个条形的填充，即fill = c（“ red”，“ ...”，）等，但这与使用渐变的想法背道而驰。

这是代码，如果有帮助，您可以在下面找到数据帧的dput：

码：

plot <- df %>% 
  mutate(name1 = "Average unemployment rate") %>% 
  ggplot(aes(x=Region, 
             y=Avg_Unemployment_rate, 
             fill=Avg_Unemployment_rate)) +
  geom_bar(stat='identity', show.legend=FALSE) +
  scale_fill_gradient(low="yellow", high = "red") + 
  labs(y = "Unemployment Rate (%)", x="") +
  theme(axis.text.x=element_text(angle =- 90, vjust = 0.5)) +
  facet_wrap(~name1) + 
  coord_cartesian(ylim=c(0,6), expand=0)

输出

structure(list(Region = structure(c(10L, 1L, 2L, 3L, 4L, 5L, 
6L, 7L, 8L, 9L), .Label = c("South East", "South West", "London", 
"East of England", "East Midlands", "West Midlands", "Yorkshire and The Humber", 
"North East", "North West", "England"), class = "factor"), Avg_Unemployment_rate = structure(c(4.05052633258656, 
3.21824018447441, 3.05119829228833, 4.7077689256265, 3.44297331188711, 
4.23448912295878, 4.67588411516106, 4.45220611226308, 5.69591652090698, 
4.06868093338517, 0.325604322866634, 0.36720756911479, 0.595564571651833, 
0.538576162975837, 0.467897513070492, 0.427419900308709, 0.378156613118954, 
0.469553277333867, 0.537080804732578, 0.33118433822167), .Dim = c(10L, 
2L), .Dimnames = list(NULL, c("mean", "sd"))), SD = c(0.325604322866634, 
0.36720756911479, 0.595564571651833, 0.538576162975837, 0.467897513070492, 
0.427419900308709, 0.378156613118954, 0.469553277333867, 0.537080804732578, 
0.33118433822167)), row.names = c(NA, -10L), class = "data.frame")

提前致谢！

编辑：鸭子的输出

鸭

尝试这个：

library(ggplot2)
#Data
df <- cbind(df[,c(1,3)],df$Avg_Unemployment_rate)
#Plot
df %>% 
  mutate(name1 = "Average unemployment rate") %>% 
  ggplot(aes(x=Region, 
             y=mean, 
             fill=mean)) +
  geom_bar(stat='identity', show.legend=FALSE) +
  scale_fill_gradient(low="yellow", high = "red") + 
  labs(y = "Unemployment Rate (%)", x="") +
  theme(axis.text.x=element_text(angle =- 90, vjust = 0.5)) +
  facet_wrap(~name1) + 
  coord_cartesian(ylim=c(0,6), expand=0)

输出：