R 将图例添加到条形图ggplot

我和R一起工作，用ggplot制作come图表。然而，我试图通过下面的代码将图例添加到我的条形图中，但没有成功

library(ggplot2)
library(dplyr)

data<- data.frame(years = c(2009:2018),

                      values <- c(-9400, -8792, -10914, -17996, -25543, -27814, -33335, -38872, -38243, -37034))


my_barplot <- data %>%
  ggplot(aes(x=years, y=values))+
  xlab('name x axis') + ylab('name y axis') +
  geom_col(aes(fill="bla bla"))+
  scale_x_continuous(breaks = seq(2009, 2018, by = 2))+
  labs(title="title", 
       subtitle="Subtitle", 
       caption="Source")+
  geom_text(aes(label=paste0((values))),
            position=position_stack(vjust=0.5),size=3)+
  # scale_color_manual('', labels = 'label', values = 'red') +
  stat_smooth(color = "#FC4E07", fill = "#FC4E07",
    method = "loess",formula = y ~ x, size = 1, se= FALSE)+
  scale_colour_manual(name = 'Legend', 
                      guide = 'legend',
                      values = c('MA50' = 'blue',
                                 'MA200' = 'red'), 
                      labels = c('SMA(50)',
                                 'SMA(200)'))+
  theme_minimal()

库（ggplot2）
图书馆（dplyr）
数据试试这个。顺便说一句，我还删除了一些不必要的代码：

库（ggplot2）
图书馆（dplyr）
首先，请提供一些数据来运行代码。其次，要获得图例，请使用颜色和填充美学，例如
geom\u col（aes（fill=“steelblue”）
而不是
geom\u col（fill=“steelblue”）
。然后可以通过scale_xxx_手动调整生成的图例，以提供正确的颜色。也。不要在aes（）中给出颜色名称或代码，而是使用scale_xxx_手册中使用的值，例如aes（color=“MA50”）。这是否回答了您的问题@stefan我已经更新了代码，你能看一下吗？现在我有一个错误：错误：美学必须是长度1或与数据（10）相同：标签。。。顺便说一句，我想要条形图“钢蓝”颜色/类似的蓝色和“黄土”red@DaniB. 看看答案。希望能有帮助。