r - 重新排序因子后正确绘制 xyplot 线

Question

当我在重新排序因子之前使用线连接制作 xyplot 时，它为我提供了数据点之间良好的顺序连接:

library(lattice)
fin <- read.csv("http://dl.dropbox.com/u/2505196/unc_vall.csv", header=T)
xyplot(acceptability ~ character | motion, data=fin, col=1, 
       aspect="xy", layout=c(6,1), type="o", scales = list(x = list(rot = 90)))

然后我重新排序因子，一切都搞砸了:

fin$character <- factor(fin$character, levels = c("battle","klank","manny",
                        "skelly","zombie","loman","himan"))

重新排序因子的级别效果很好，值位于应有的位置，但不知何故，线路连接的顺序保持不变。我没有想到如何更改我的重新排序以使其正常工作。

编辑:我应该补充一点，该解决方案应该足够通用，可以适用于 Hmisc 包中的 xyplot 和 xYplot。

Answer 1

我认为，这些线条是按照它们在数据中出现的顺序绘制的。因此，如果您想获得正确的排序，您可以这样做:

xyplot(acceptability ~ character | motion, data=fin[order(fin$character),], col=1, 
aspect="xy", layout=c(6,1), type="o", scales = list(x = list(rot = 90)))

请注意，仅 data 参数发生了变化。