相关疑难解决方法(0)

首先我认为我需要在powerpoint中手动操作,然后我想如果有解决方案可以尝试使用R. 这是我的示例数据:

set.seed(123)
myd<- expand.grid('cat' = LETTERS[1:5], 'cond'= c(F,T), 'phase' = c("Interphase", "Prophase", "Metaphase", "Anaphase", "Telophase"))
myd$value <- floor((rnorm(nrow(myd)))*100)
myd$value[myd$value < 0] <- 0

require(ggplot2)
ggplot() +
  geom_bar(data=myd, aes(y = value, x = phase, fill = cat), stat="identity",position='dodge') +
  theme_bw()

这是输出应该是什么样子:

jpeg图像可以随机生成(演示示例)或链接上的示例图:

间期 前期,中期,后期,末期

编辑:

建议@bapste