每行的ggplot条形图（R）

Question

我有一个如下所示的数据集：

    a  b  a_total b_total 
dog 3  5  10      8
cat 6  2  12      13
pig 9  3  15      9

我正在尝试使用 ggplot 制作一个堆叠的条形图，让每个动物的底部有“a_total”，顶部有“a”。我试过了，但没有用。

ggplot(df, aes(x = "", y = c("a", "a_total")) + geom_bar(stat= "identity") 

我该怎么办？

Answer 1

我们从行名 (rownames_to_column)、select 'a' 列以及新列中创建一列，重塑为“长”格式 (pivot_longer) 并进行绘图

library(dplyr)
library(tidyr)
library(ggplot2)
df %>%
    rownames_to_column('animal') %>% 
    select(animal, a, a_total) %>% 
    pivot_longer(cols = -animal) %>% 
    ggplot(aes(x = animal, y = value, fill = name)) + 
        geom_bar(stat = 'identity') +
        theme_bw()

-输出

---

此外，facet_wrap 中的“a”和“b”都可以这样做

df %>%
     rownames_to_column('animal') %>%
     pivot_longer(cols = -animal) %>%
     mutate(abgrp = substr(name, 1, 1)) %>% 
     ggplot(aes(x = animal, y = value, fill = name)) + 
       geom_bar(stat = 'identity') + 
       theme_bw() + 
       facet_wrap(~ abgrp)

---

在base R，我们可以使用barplot

barplot(t(df[c('a', 'a_total')]), col = c('red', 'blue'), legend = TRUE)

数据

df <- structure(list(a = c(3L, 6L, 9L), b = c(5L, 2L, 3L), a_total = c(10L, 
12L, 15L), b_total = c(8L, 13L, 9L)), class = "data.frame", row.names = c("dog", 
"cat", "pig"))