R计数表中的多个饼图？

如果我的数据如下所示：

group <- c("A","B","C","D")
count1 <- c(1:4)
count2 <- c(2,2,3,4)
count3 <- c(4,3,2,1)
data <- cbind(group,count1,count2,count3)

---

group修复示例数据，使其为数字而非字符（使用
rbind
强制转换为矩阵。矩阵只能保存一种数据类型，在这些情况下，R始终使用最通用的数据类型，即字符）：


或者我们可以使用
facet\u grid
或
facet\u wrap

编辑：
如何显示各组的相对百分比（使用
ggplot2
、
tidyr
、
dplyr
和
比例
）：

组%
ggplot（aes（组、频率、填充=名称））+
几何坐标（位置=“道奇”）+
比例y连续（标签=比例：：百分比）+
扩展_极限（y=c（0,1））

示例数据显示为字符而不是数字。你确定这就是你想要的结构吗？你也试过什么？目前，你一次提出多项要求，但不清楚你在争取什么。。。通常，在大多数情况下，我们更喜欢条形图而不是饼图，因为从饼图中读取值的顺序更困难charts@dario下面的条形图解决方案有效！不过，我想要饼图的原因是，在我的数据中，组的大小非常不同，所以我想显示相对频率。我该怎么做？那很有效！不过，我想要饼图的原因是，在我的数据中，组的大小非常不同，所以我想显示相对频率。我该怎么做？什么的相对频率（百分比）？每组？是A、B、C、D中的相对计数1、计数2和计数3
group<-c("A","B","C","D")
count1<-c(1:4)
count2<-c(2,2,3,4)
count3<-c(4,3,2,1)
df <- data.frame(group,count1,count2,count3)

library(dplyr)
library(tidyr)
library(ggplot2)

df %>% 
  pivot_longer(cols=-group) %>% 
  ggplot(aes(group, value, fill=name)) +
  geom_col(position = "dodge")

group<-c("A","B","C","D")
count1<-c(1:4)
count2<-c(2,2,3,4)
count3<-c(4,3,2,1)
df <- data.frame(group, count1, count2, count3)


library(dplyr)
library(tidyr)
library(ggplot2)
library(scales)

df %>% 
  pivot_longer(cols=-group) %>% 
  group_by(group) %>% 
  mutate(relFreq = value / sum(value)) %>% 
  ungroup() %>% 
  ggplot(aes(group, relFreq, fill=name)) +
  geom_col(position = "dodge") +
  scale_y_continuous(labels = scales::percent) +
  expand_limits(y=c(0,1))