为什么在r ggplot2中添加构面时，堆叠条形图会发生变化

debugcn 发表于 Dev

耶西

我有几组数据，我想以多面堆积条形图显示它们。数据显示对调查问题的回答。当我在数据框中查看它们时，它们是有意义的；而当我绘制它们（不进行分面）时，它们是有意义的。

但是，数据多面化时似乎会发生变化。我以前从未遇到过这个问题。我能够用一些虚拟数据重新创建一个更改（不是完全相同的更改）。

myDF <- data.frame(rep(c('aa','ab','ac'), each = 9),
               rep(c('x','y','z'),times = 9),
               rep(c("yes", "no", "maybe"), each=3, times=3),
               sample(50:200, 27, replace=FALSE))
colnames(myDF) <- c('place','program','response','number')
library(dplyr)
myDF2 <- myDF %>%
    group_by(place,program) %>%
    mutate(pct=(100*number)/sum(number))

输入的数据myDF基本上是对问题的回答计数。在myDF2只创建与每个地点和程序中的任何特定响应的受访者的百分比。

library(ggplot2)
my.plot <-ggplot(myDF2, 
             aes(x=place, y=pct)) +
    geom_bar(aes(fill=myDF$response),stat="identity")

my.plot.facet <-ggplot(myDF2, 
                   aes(x=place, y=pct)) +
    geom_bar(aes(fill=myDF$response),stat="identity")+
    facet_wrap(~program)

我希望看到一个图，显示每个“程序”和“位置”中每个“响应”的正确“ pct”。但是，my.plot.facet每个位置仅显示一个“响应”。

my.plot和my.plot.facet的示例

数据不是那样的。例如，head(myDF2)显示在位置“ x”的程序“ aa”同时具有“是”和“否”。

> head(myDF2)
Source: local data frame [6 x 5]
Groups: place, program

  place program response number      pct
1    aa       x      yes     69 18.35106
2    aa       y      yes     95 25.81522
3    aa       z      yes    192 41.64859
4    aa       x       no    129 34.30851
5    aa       y       no    188 51.08696
6    aa       z       no    162 35.14100

耶西

事实证明，订购在这里很重要。myDF2不再是数据帧。这是一个dplyr对象。这意味着ggplot2确实很挣扎。

如果数据需要由程序处理，则需要先在程序中调用“程序” group_by()

请注意，这里是通过查看反图构面来实现的。

my.plot.facet2 <-ggplot(myDF2, 
                       aes(x=program, y=pct)) +
   geom_bar(aes(fill=myDF2$response),stat="identity")+
   facet_wrap(~place)

产生：

my.plot.facet2