在一个页面上有多个条形图？

Question

我尝试做同样的事情，在https://stats.stackexchange.com/questions/14118/drawing-multiple-barplots-on-a-graph-in-r这样的回答：https://stats.stackexchange.com/a/14126/24144

我的数据是这样的：

  q  r  t  s  p 
a  757279 1414469 579865 527819 5951 
b fa  4311006 5505875 10695932 5658172 63406 
c wad 6479734 8194529 1490696 3154758 48312 

而且我要在y在x轴的行和列-轴。我试着用

df_t <- t(df) 
df_t$id <- 1:nrow(df_t) 
# Warning message: 
#In distributions_t$id <- 1:nrow(distributions_t) : Coercing LHS to a list 
dat <- melt(df_t,id.vars = "id") 

ggplot(dat,aes(x=factor(id), y = value)) + 
    facet_wrap(~variable) + 
    geom_bar(aes(fill = factor(id))) 

但是这给了错误

Error in layout_base(data, vars, drop = drop) : 
    At least one layer must contain all variables used for facetting 

我如何得到这个答案https://stats.stackexchange.com/a/14126/24144的结果？

Answer 1

我认为你可以做如下（完整的脚本重复性）;

library(reshape) 
library(ggplot2) 
df <- data.frame(q=c(757279, 4311006, 6479734), 
       r=c(1414469, 5505875, 8194529), 
       t=c(579865, 10695932, 1490696), 
       s=c(527819, 5658172, 3154758), 
       p=c(5951, 63406, 48312), 
       row.names=c('a', 'b fa', 'c wad')) 
df_t <- as.data.frame(t(df)) 
df_t$id <- 1:nrow(df_t) 
dat <- melt(df_t,id.vars = "id") 

p <- ggplot(dat, aes(x=factor(id), y=value)) + 
    geom_bar(stat='identity') + 
    facet_wrap(~variable) 
p