R:ggplot2-条形图中的堆叠和回避

使用玩具数据集，使用

ggplot2

package:

library(ggplot2) 
library(reshape2) # to convert to long format 

databas<-read.csv(data=
                    "continent,apples,bananas
                  North America,30,20
                  South America,15,34.5
                  Europe,15,19
                  Africa,5,35")

databaslong<-melt(databas) 

# plotting as colored bars 
ggplot(databaslong, aes(x=variable, y=value, fill=variable))+
  geom_col()+
  facet_grid(.~continent)

库（ggplot2）
库（重塑2）#转换为长格式
数据库您已在美学映射中指定了
x=variable
，因此变量中的每个值（即苹果和香蕉）沿x轴都有自己的位置，并且没有任何可堆叠的内容

如果要为每个大陆堆放苹果和香蕉，可以指定
x=大陆
：

ggplot(databaslong, 
       aes(x = continent, y = value, fill = variable)) +
  geom_col()

您已在美学映射中指定了
x=variable
，因此变量中的每个值（即苹果和香蕉）沿x轴都有自己的位置，并且没有任何可堆叠的内容

如果要为每个大陆堆放苹果和香蕉，可以指定
x=大陆
：

ggplot(databaslong, 
       aes(x = continent, y = value, fill = variable)) +
  geom_col()