ggplot2 (geom_col) 中的组变量

Question

我想将数据框中的变量绘制到不同的组中，但不知道如何做到这一点。

模拟数据框：

df<-data.frame(animal=c("cat1","cat2","mouse1","mouse2","dog1","dog2"),size=c(3,4,1,2,6,7))
plot<-ggplot(df)+geom_col(mapping=aes(x=animal,y=size))
plot 

我想要的输出应该是这样的：

Answer 1

我会建议下一个方法。您必须创建一个组，然后使用构面。我从@AllanCameron 学到的大部分技巧对于这种风格的问题都有很好的答案。接下来是可以做到这一点的代码：

library(tidyverse)
#Data
df<-data.frame(animal=c("cat1","cat2","mouse1","mouse2","dog1","dog2"),
               size=c(3,4,1,2,6,7),stringsAsFactors = F)
#Create group
df$Group <- gsub('\\d+','',df$animal)
#Now plot
ggplot(df,aes(x=animal,y=size))+
  geom_col()+
  facet_wrap(.~Group,scales = 'free', strip.position = "bottom")+
  theme(strip.placement  = "outside",
        panel.spacing    = unit(0, "points"),
        strip.background = element_blank(),
        strip.text       = element_text(face = "bold", size = 12),
        axis.text.x = element_blank(),
        axis.ticks.x = element_blank())

输出：

Answer 2

你需要告诉 ggplot 一个动物属于哪个组；那么您可以使用 x 轴上的 group 参数并使用 fill 参数来进一步区分不同的动物。 position = "dodge" 导致条形图彼此相邻。

library(ggplot2)
df <- data.frame(animal = c("cat1","cat2","mouse1","mouse2","dog1","dog2"),
                 size=c(3,4,1,2,6,7),
                 group = c("cat", "cat", "mouse", "mouse", "dog", "dog"))

ggplot(df, aes(x = group, y = size, fill = animal)) +
  geom_col(position = "dodge")

^{由reprex package (v0.3.0) 于 2020 年 8 月 23 日创建}