R 两组离散变量的条形图

我有一个数据框，列为“Y”或“N”，用于两个组，例如：

drug<-c("Y","Y","N","Y","Y","Y","N","N","N","N","N","Y","Y","Y","N","N")
   group<-c(0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1)                 
df<-data.frame(drug,group)

并尝试制作表格，并将其绘制为条形图

counts0<-df[which(df$group==0),]
counts1<-df[which(df$group==1),] 

grp0<-table(counts0$drug)
grp1<-table(counts1$drug)
s<- as.data.frame(t(rbind(grp0,grp1)))

barplot(s$grp0, s$grp1,beside=T)

---

counts0首先，不需要将向量创建为数据帧列，而且
df
不是一个很好的变量名（有一个同名函数）。一步创建数据帧，如下所示：

mydata <- data.frame(drug  = c("Y","Y","N","Y","Y","Y","N","N","N","N","N","Y","Y","Y","N","N"),
                     group = c(0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1))

现在我们可以按组计算是/否：

mydata %>% 
  count(group, drug)

# A tibble: 4 x 3
  group drug      n
  <dbl> <fct> <int>
1     0 N         3
2     0 Y         5
3     1 N         5
4     1 Y         3

首先，不需要将向量创建为数据帧列，而且
df
不是一个很好的变量名（有一个同名函数）。一步创建数据帧，如下所示：

mydata <- data.frame(drug  = c("Y","Y","N","Y","Y","Y","N","N","N","N","N","Y","Y","Y","N","N"),
                     group = c(0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1))

现在我们可以按组计算是/否：

mydata %>% 
  count(group, drug)

# A tibble: 4 x 3
  group drug      n
  <dbl> <fct> <int>
1     0 N         3
2     0 Y         5
3     1 N         5
4     1 Y         3

我的┱与什么匹配

？它在任何地方都没有定义。

my\u匹配的是什么？它在任何地方都没有定义。
mydata %>% 
  count(group, drug) %>% 
  mutate(group = factor(group)) %>% 
  ggplot(aes(group, n)) + 
  geom_col(aes(fill = drug))