ggplot填充不起作用 - 没有错误[MRE]

Question

下面的ggplot分析旨在显示按日期的调查回复数。我想通过三个调查管理部门（Admini变量）为条形图着色。虽然没有抛出任何错误，但条形图不会着色。

有人能指出我的酒吧是如何/为什么没有颜色编码的？谢谢！

library(ggplot2)
library(dplyr)
library(RCurl)
OSTadminDates2<-getURL("https://raw.githubusercontent.com/bac3917/Cauldron/master/OSTadminDates.csv")
OSTadminDates<-read.csv(text=OSTadminDates2)

ndate1<-as.Date(OSTadminDates$Date,"%m/%d/%y");ndate1
SurvAdmin<-as.factor(OSTadminDates$Admini)

R<-ggplot(data=OSTadminDates,aes(x=ndate1),fill=Admini,group=1) + 
    geom_bar(stat = "count",width = .5 )

R

Answer 1

以下是您可以使用的解决方法：

library(ggplot2)
library(dplyr)
library(RCurl)
OSTadminDates2<-getURL("https://raw.githubusercontent.com/bac3917/Cauldron/master/OSTadminDates.csv")
OSTadminDates<-read.csv(text=OSTadminDates2)

OSTadminDates$Date<-as.Date(OSTadminDates$Date,"%m/%d/%y")
OSTadminDates$Admini <- factor(OSTadminDates$Admini)

df <- OSTadminDates %>%
  group_by(Date, Admini) %>%
  summarise(n = n())

ggplot(data = df) + 
  geom_bar(aes(x = Date, y = n, fill = Admini), stat = "identity")