ggplot不能组合吧

Question

谁能告诉我为什么ggplot不能给我分组？

ggplot(df, aes(x = factor(labels), y = srednia, dodge=factor(group))) + 
    labs(title = gen, size=3)+ ylab("Fold change")+ xlab("Linnia komórkowa") +
    geom_bar(aes(fill=factor(group)),stat="identity",position ="dodge") + 
    geom_errorbar(aes(ymin=minus, ymax=plus))

Grouped bars我的意思是这样的（绘画艺术）：

提前谢谢！

Answer 1

我想你可以通过改变x轴的比例来实现这一点。这是一个可重复的示例和可能的解决方案。

# packages
require(plyr)
require(ggplot2)
# generate data
set.seed(123)
df <- data.frame(labels=LETTERS[1:6], 
                 group=rep(1:3, each=2),
                 srednia=runif(6))
# limits for x axis
mylims <- head(unlist(dlply(df, .(group), function(x) c(levels(factor(x$labels)), "space"))), -1)
# additional space between groups
ggplot(df, aes(x = factor(labels), y = srednia, dodge=factor(group))) + 
  geom_bar(aes(fill=factor(group)),stat="identity") + 
  scale_x_discrete(limits=mylims, breaks=levels(factor(df$labels)))
# removing space within group
ggplot(df, aes(x = factor(labels), y = srednia, dodge=factor(group))) + 
  geom_bar(aes(fill=factor(group)),stat="identity", width=1) + 
  scale_x_discrete(limits=mylims, breaks=levels(factor(df$labels)))