r - 条形图的频率作为独立列表

Question

假设我有以下数据集

set.seed(85)
a <- data.frame(replicate(10,sample(0:3,5,rep=TRUE)))

我用以下方式绘制它:

library(ggplot2)
ggplot(stack(a), aes(x = values)) + 
  geom_bar()

从图中我可以看出数据集中出现的“3”略少于 1250 次，但是有没有办法将数据集中每个 x 轴值的频率作为独立列表输出(即不是作为数字条形图)？我正在寻找数据集中出现“3”的次数(以及值 0、1 和 2)的列表。

output:
0: 1249
1: 1200
2: ...
3: ...

任何帮助深表感谢

Answer 1

我们可以转换为“长”格式，然后执行 count

library(dplyr)
library(tidyr)
a %>%
   pivot_longer(everything()) %>% 
   count(value)

获取条形图

library(ggplot2)
a %>% 
    pivot_longer(everything()) %>%
    count(value) %>% 
    ggplot(aes(x = value, y = n)) + 
        geom_bar(stat = 'identity')

在 base R , unlist并获得 table

table(unlist(a))

或用于绘图

barplot(table(unlist(a)))