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

【问题标题】：ggplot fill does not work - no errors [MRE]ggplot 填充不起作用 - 没有错误 [MRE]
【发布时间】：2016-12-08 17:31:55
【问题描述】：

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

谁能指出我的条如何/为什么没有颜色编码？谢谢！

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

【问题讨论】：

fill = Admini 不在您的 aes() 通话范围内，对于初学者来说。
在 aes() 中移动了 fill=Admini 但这没有帮助
也许你的意思是 Admini 是一个因素？
(1) 您的管理变量不包含调查管理，而仅包含年份（我认为）。 (2) 使用 stat = "count"，计算观察次数并将其显示在 Y 轴上。

标签： r ggplot2 colors fill

【解决方案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")

【讨论】：