Я пытаюсь создать решетку из нескольких графиков уровней. Теперь у меня есть 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 мне нужен E-J-O-T)
Можете ли вы, ребята, указать мне (еще раз) в правильном направлении?