R barplot 旁边和堆叠

Question

我尝试创建一个条形图，它同时使用和堆叠。我有一些类似于我想要的方面的东西:

tmp <- morley
tmp$loc <- paste("No", tmp$Run %/% 2, sep="")
tmp$group <- as.logical(tmp$Run %% 2)
tmp$year <- tmp$Expt + 2000
tmp$value <- tmp$Speed
tmp <- subset(tmp, loc %in% c("No1", "No2", "No3"))

ggplot(tmp, aes(x=loc, y=value, fill=group)) + 
  geom_bar(stat ='identity', position ='stack') + 
  facet_grid (~year)

我希望没有刻面和 2 个图例(绿色:No1，红色:No2，蓝色:No3 和 TRUE:0% 透明度，FALSE 40% 透明度)，x 轴上有年份，旁边的位置和组堆叠。还有一个有 6 个条目的图例 No1 true, No1 false, No2 true ... 没问题。

有没有办法做到这一点？

Answer 1

ggplot(tmp, aes(x=loc, y=value, fill=loc, alpha=group)) + 
  geom_bar(stat ='identity', position ='stack') +
  scale_alpha_manual(values=c('TRUE'=1, 'FALSE'=0.6)) +
  facet_grid(~year, switch='x') +
  theme(axis.title.x=element_blank(), strip.placement='outside')

然后适当调整主题和填充比例。