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")