R 在同一列上有两个值的条形图

我有以下图表：

但我需要这样：

我的代码是：

n_papers<-c(6,4,5,1,6,2,1)
paper_ui<-c(3,2,4,0,1,1,0)
methods<-c("AR","ARMA",'ARIMA',"SARIMA","Loess \n decomposition","Classical \n decomposition","Exponential \n smoothing")
df <- data.frame(n_papers,paper_ui,methods)

ggplot(df) +
  aes(x = methods, y = n_papers,fill=paper_ui) +
  geom_bar(show.legend = FALSE,stat="identity",position = "dodge")+
  labs(x=NULL, y = "Number of papers") +
  theme_bw()+
  theme(panel.border = element_blank(), panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(), axis.line = element_line(colour = "black"))

---

n\u文件您可以添加第二个
geom\u条
或
geom\u列
，如下所示：


图书馆（GG2）
ggplot（df）+
aes（x=方法）+
geom_col（aes（y=n_论文，fill=“total”））+
geom_col（aes（y=纸张，fill=“ui”））+
实验室（x=NULL，y=论文数量）+
刻度填充手动（数值=c（total=“grey”，ui=“dodgerblue4”））+
主题_bw（）+
主题（panel.border=element\u blank（），panel.grid.major=element\u blank（），
panel.grid.minor=element_blank（），axis.line=element_line（color=“black”））

谢谢，它成功了！