如何在R中为不相等的组大小创建百分比堆叠图？

Question

我有两组样本大小不等的"A“和"B”。"A“的大小是19，"B”的大小是15，数据的总大小是34。他们有一个名为"Drug1“的分类变量来指示A组和B组有多少人服用该药物，因此"Drug1”变量的值是YES和NO。

如何创建百分比堆积图，其中我可以显示两个组以及每个组中使用药物和不使用药物的人数的百分比堆叠在一起？我还想在条形图中注释百分比值

以下是输入内容的示例：

dat1<- data.frame(id=1:n,
Group=sample(c("A", "B"), 6, replace = TRUE) , 
Drug1=sample(c("Yes", "No"), 6, replace = TRUE)) 

Answer 1

我想这就是你想要的：

library(ggplot2)

dataset <- data.frame(
  Groups = as.factor(sample(c("A", "B"), 30, replace = T)),
  Drug_1 = as.factor(sample(c("Yes", "No"), 30, replace = T))
)


df_tbl <- table(dataset)

df_tbl <- round(100 * prop.table(df_tbl, margin = 1), 2)

df_tbl <- as.data.frame(df_tbl)

ggplot(df_tbl, aes(fill = Drug_1, y = Freq, x = Groups)) +
  geom_bar(position = "stack", stat = "identity") + 
  labs(y = "Percent") +
  geom_text(aes(label = Freq), position = "stack", vjust = 2)

​

​

Answer 2

通过将两个变量转换为因子(例如df$Drug1 = as.factor(df$Drug1))并使用基本plot()函数将它们相互绘制，可以轻松获得百分比的堆叠柱状图：

plot(df$Group,df$Drug1,xlab="Group of Participand",ylab="Drug taken")