r - 如何在格 bwplot 中向 x 轴添加第三个因子

Question

我对绘制数据非常陌生，我正在尝试在我的 bwplot 中添加第三个因素。

我的因素是：

• 站点有 6 个级别（C0、C1、C2、C3、C4、C5）
• 具有 2 个级别（高、低）的季节性流量
• 2 级土地利用（城市、农村）

我可以使用以下脚本轻松绘制站点和季节性流：

C <- read.csv('Collie 3.csv')

图书馆（格）

bwplot(TN.TP~ Site| Seasonal.Flow,data=C,main="Collie River TN:TP",ylab="ratio",xlab="Site + Flow regime", horizontal=FALSE)

数据链：https ://www.dropbox.com/s/6q8b1svld61pqsr/Collie%203.csv

我的问题是我还想在 x 轴上包括土地利用，其中站点 C0 和 C1 是农村，站点 C2、C3、C4、C5 是城市。我看过ggplot，但还没有弄清楚。即使只是对 C0 和 C1 进行不同的着色也会有所帮助。

Answer 1

这是一个lattice解决方案：

library("lattice")
C <- read.csv('Collie 3.csv')

bwplot(TN.TP~ Site| Seasonal.Flow,data=C,main="Collie River TN:TP",
   ylab="ratio",xlab="Site + Flow regime", horizontal=FALSE, 
   groups = Land.Use, auto.key=TRUE,
   panel = panel.superpose,
   panel.groups = panel.bwplot)

Usinglayout()允许您指定列数和行数：

bwplot(TN.TP~ Site| Seasonal.Flow,data=C,main="Collie River TN:TP",
   ylab="ratio",xlab="Site + Flow regime", horizontal=FALSE, 
   groups = Land.Use, auto.key=TRUE,
   panel = panel.superpose,
   panel.groups = panel.bwplot,
   layout = c(1,2))  # same layout as ggplot2 graph

或者，如果您想将它们真正分开，请尝试以下操作：（看第三个因素已添加到“公式”中）

bwplot(TN.TP~ Site| Seasonal.Flow * Land.Use ,data=C,
main="Collie River TN:TP", ylab="ratio",xlab="Site + Flow regime",
horizontal=FALSE)

Answer 2

这是一个解决方案ggplot2。

library(ggplot2)
ggplot(data = C, aes(x = Site, y = TN.TP, colour = Land.Use)) +
  facet_wrap( ~ Seasonal.Flow, ncol = 1) +
  geom_boxplot() +
  scale_colour_hue("Land use") +
  ggtitle("Collie River TN:TP") +
  ylab("ratio") +
  xlab("Site + Flow regime")