Сначала я подумал, что мне нужно это вручную в 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 может быть произвольно сгенерировано (к демонстрационным примерам) или примерным рисункам в ссылках:
Interphase prophase, metaphase, anaphase, telophase
Edit:
Предложение @bapste