2

我正在尝试生成一些水平图的格子。现在我有2个问题。这是一些示例数据

library(lattice)
require(stats)
attach(environmental)
ozo.m <- loess((ozone^(1/3)) ~ wind * temperature * radiation,
    parametric = c("radiation", "wind"), span = 1, degree = 2)
w.marginal <- seq(min(wind), max(wind), length.out = 50)
t.marginal <- seq(min(temperature), max(temperature), length.out = 50)
r.marginal <- seq(min(radiation), max(radiation), length.out = 4)
wtr.marginal <- list(wind = w.marginal, temperature = t.marginal,
        radiation = r.marginal)
grid <- expand.grid(wtr.marginal)
grid[, "fit"] <- c(predict(ozo.m, grid))
levelplot(fit ~ wind * temperature | radiation, data = grid,
        cuts = 10, region = TRUE,
        xlab = "Wind Speed (mph)",
        ylab = "Temperature (F)",
        main = "Cube Root Ozone (cube root ppb)")

这将生成以下图。在此处输入图像描述

1）我希望每个情节的标题不是辐射，而是辐射的值（例如7,334，...）

2）我想将刻度从 x 和 y 轴更改为字母而不是当前数字。（而不是 5-10-15-20 我需要 EJOT）

你们能（再次）指出我正确的方向吗？

4

1 回答 1

5

使用

levelplot(fit ~ wind * temperature | as.factor(radiation), ... , scales= list(x=list(labels=c('','E','J','O','T'))))

将用辐射值标记您的地块。scales 参数可用于指定不同的标签。

于 2011-05-25T07:35:15.190 回答