3

定义：

df <- data.frame(
        line1 = rep(seq(1,5,by=1),2), 
        line2 = rep(seq(2,6,by=1),2),
        index = rep(seq(1,5,by=1),2),
        factor=rep(c("a","b"),each=5))

其中line1和line2是两个变量，比如身高和体重。

这是我想要的每个面板的简单样式（我也想更改点标记的大小，但不使用方式）：

plot(df$line1[df$factor=="a"], type = "o", ylim=c(0,6))
lines(df$line2[df$factor=="a"], type = "o", lty=2, pch=0)

当我尝试这个时：

library(lattice)
xyplot(c(line1,line2)~index|factor,data=df,type="o")

该程序将所有点视为属于同一行。

此外，我不确定如何输入绘图样式的参数以获得所需的结果。

PS1。令人惊讶的是，我搜索了很多散点图（具有线性拟合、密度等）和格子图的直方图示例，但这不是我想做的简单事情之一。

PS2。我想标记这个问题trellis，但没有声誉点来创建标记。有志愿者吗？

4

2 回答 2

7

答案其实很简单。不用将 line1 和 line2 组合成一个向量，只需使用 xyplot 的扩展公式接口：

xyplot(line1+line2~index|factor,data=df,type="o")

给出：

在此处输入图像描述

检查还?xyplot阅读大量文本并使用那里的示例进行一些操作。您将了解如何使用标题、图例等自定义它。

正如您也标记ggplot2的那样，这是使用该软件包完成它的一种可能性：

require(ggplot2)
require(reshape)
df2 <- melt(df,id=c("index","factor"))

qplot(index,value,variable,facets = .~factor ,
          data=df2,geom="line",colour=variable)

给出：

在此处输入图像描述

于 2011-07-28T12:35:33.023 回答
2

或者，您可以融化数据并使用group：

library(reshape)
df2 <- melt(df,id.var=3:4)
xyplot(value~index|factor,data=df2,type="o",group=variable)
于 2011-07-28T12:38:28.533 回答