ggplot fillが機能しない - エラーなし[MRE]

Question

以下のggplot分析は、日付による調査回答の表示回数を示すものです。私はに色をつけたいと思っています.3つの調査管理（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")