1

我已经用我的数据和库的bwplot功能做了一个条件箱线图lattice。 

    A1 <- bwplot(measure ~ month | plot , data = prueba,
              strip = strip.custom(bg = 'white'),   
              cex = .8, layout = c(2, 2),
              xlab = "Month", ylab = "Total",
              par.settings = list(
                box.rectangle = list(col = 1),
                box.umbrella  = list(col = 1),
                plot.symbol   = list(cex = .8, col = 1)),
              scales = list(x = list(relation = "same"),
                            y = list(relation = "same")))

然后，我做了一个 xyplot，因为我想将降水数据添加到上一个图表中，也使用xyplotfrom latticelibrary。 

    B1 <- xyplot(precip ~ month | plot, data=prueba,
   type="b",
   ylab = '% precip',
   xlab = 'month',
   strip = function(bg = 'white', ...)
     strip.default(bg = 'white', ...),
   scales = list(alternating = F,
                 x=list(relation = 'same'),
                 y=list(relation = 'same')))

我尝试使用grid.arrange来自gridExtra库的同一图表上绘制它们：

    grid.arrange(A1,B1)

但是有了这个，我不重叠数据，但结果是这样的 箱线图和 xyplot

我怎样才能在由情节决定的箱线图“内部”绘制降水数据？

谢谢

4

2 回答 2

3

barley像 Andrie 一样使用数据，另一种方法是latticeExtra：

library(lattice)
library(latticeExtra)

bwplot(yield ~ year | variety , data = barley, fill = "grey") +
xyplot(yield ~ year | variety , data = barley, col = "red")

在此处输入图像描述

于 2014-08-04T09:28:54.810 回答
2

您需要创建自定义面板功能。我用内置barley数据演示：

想象一下，您想创建一个简单的bwplot并xyplot使用barley数据。您的代码可能如下所示：

library(lattice)

bwplot(yield ~ year | variety , data = barley)
xyplot(yield ~ year | variety , data = barley)

要组合绘图，您需要创建一个面板函数，该函数首先绘制默认值panel.bwplot，然后绘制panel.xyplot. 尝试这个：

bwplot(yield ~ year | variety , data = barley,
       panel = function(x, y, ...){
         panel.bwplot(x, y, fill="grey", ...)
         panel.xyplot(x, y, col="red", ...)
       }
)

在此处输入图像描述

在帮助中有一些关于这样做的信息?xyplot- 向下滚动到panel参数的详细信息。

于 2014-08-04T09:02:09.487 回答