📅  最后修改于: 2022-03-11 14:59:32.042000             🧑  作者: Mango
> df$time <- c(rep("0h", 4), rep("1h", 4), rep("4h", 4), rep("8h", 4))
> ggplot(df, aes(x = time, y = mean_count, fill = cond)) + geom_bar(stat = "identity", position = position_dodge())