我使用以下任一代码：
ggplot(f.df, aes(x = educ, y = CVD, fill = CURSMOKE)) + geom_bar(stat = "identity")
ggplot(f.df, aes(x = educ, y = CIGPDAY, fill = CVD)) + geom_bar(stat = "identity")
生产堆积的条形图。但是，stat = "identity"不会导致两种不同的颜色明显分开，而是将它们分散在整个横条上（它在视觉上更有意义）。
