R并排分组boxplot

Question

我有来自两种植物的气体排放的时间数据，这两种植物都经历了相同的处理。对于一些previous help得到这个代码放在一起[编辑]：

soilflux = read.csv("soil_fluxes.csv") 
library(ggplot2) 
soilflux$Treatment <- factor(soilflux$Treatment,levels=c("L-","C","L+")) 
soilplot = ggplot(soilflux, aes(factor(Week), Flux, fill=Species, alpha=Treatment)) + stat_boxplot(geom ='errorbar') + geom_boxplot() 
soilplot = soilplot + labs(x = "Week", y = "Flux (mg m-2 d-1)") + theme_bw(base_size = 12, base_family = "Helvetica") 
soilplot 

生产这种效果很好，但有其缺陷。

虽然它传达我需要它的所有信息，尽管谷歌拖网，从这里看我只是不能让传说的“治疗”部分显示，L-轻，L +最黑暗的。我也被告知，单色配色方案更容易区分，因此我试图获得类似this的图例，其中图例清晰。

Answer 1

正如你可以从species和treatment创建一个综合系数和手动指定填充颜色变通方法：

library(ggplot2) 
library(RColorBrewer) 
d <- expand.grid(week = factor(1:4), species = factor(c("Heisteria", "Simarouba")), 
       trt = factor(c("C", "L-", "L+"), levels = c("L-", "C", "L+"))) 

d <- d[rep(1:24, each = 30), ] 
d$flux <- runif(NROW(d)) 

# Create a combined factor for coding the color 
d$spec.trt <- interaction(d$species, d$trt, lex.order = TRUE, sep = " - ") 

ggplot(d, aes(x = week, y = flux, fill = spec.trt)) + 
    stat_boxplot(geom ='errorbar') + geom_boxplot() + 
    scale_fill_manual(values = c(brewer.pal(3, "Greens"), brewer.pal(3, "Reds")))