R：美学必须是长度1或与数据相同

Question

我想使用R.创建分组堆叠条形图，并成功实现了我。但最后代码让我心碎。请任何人帮我解决我的问题。

这是预期的一个。如果数据集包含的数据较少，它可以正常工作。

我的R代码：

library(reshape2) # for melt
library(ggplot2)
d<-dataset
melted = melt(dataset)
ggplot(melted, aes(x =YYYY_MMM,y=d$BVM)) +
geom_col(aes(fill =ID),na.rm=TRUE,position ="stack") +
facet_grid( IN_OUT~. + TCODE ~.,switch="both") +
geom_text(aes( label = round(d$BVM,digits=2), group = ID),position =position_stack(vjust = .5)) +
guides(fill=guide_legend(title="D",ncol=25)) + 
theme(strip.placement = "outside") +
theme(legend.position="bottom")  +
theme(axis.title.y=element_blank()) +
theme(axis.title.x=element_blank()) +
theme(axis.text.x=element_text(angle=90, vjust=0.5))  +
theme(panel.background = element_rect(fill = 'white', colour = 'white'))

问题： 代码在运行样本数据集时提供所需的结果。一旦与原始数据一起移动它就会出错（＆＃34;美学必须是长度1或与数据相同（681）：x，y，fill，tooltip 执行停止＆＃34;