Ниже приведен пример, над которым я работаю.
require(lattice)
data(barley)
xyplot(yield ~ year | site, data = barley)
Я хочу поместить другой цвет полосы для разных капель, а цвет шрифта также отличается оптимизированным с цветом backgroud. Например:
strip background colors = c("black", "green4", "blue", "red", "purple", "yellow")
font color = c("white", "yellow", "white", "white", "green", "red")
Представлен грубый эскиз первого:
Как я могу это достичь?
Здесь доступно простое и легко настраиваемое решение.
myStripStyle(), функция, которая передается в аргумент strip= xyplot(), использует переменную счетчика which.panel для выбора цветов, а также значение factor.levels для панели, которая в настоящее время отображается.
Если вы хотите поиграть с настройками, просто положите browser() где-нибудь внутри определения myStripStyle() и получите его!
bgColors <- c("black", "green4", "blue", "red", "purple", "yellow")
txtColors <- c("white", "yellow", "white", "white", "green", "red")
# Create a function to be passed to "strip=" argument of xyplot
myStripStyle <- function(which.panel, factor.levels, ...) {
panel.rect(0, 0, 1, 1,
col = bgColors[which.panel],
border = 1)
panel.text(x = 0.5, y = 0.5,
font=2,
lab = factor.levels[which.panel],
col = txtColors[which.panel])
}
xyplot(yield ~ year | site, data = barley, strip=myStripStyle)
Возможно, было бы неразумно ссылаться на переменные за пределами области действия.
Вы можете использовать par.strip.text для передачи дополнительных аргументов функции полосы. par.strip.text может быть задан на уровне графика и обычно используется для настройки свойств отображения текста, но из списка вы можете использовать его для переноса ваших переменных в функцию полосы.
bgColors <- c("black", "green4", "blue", "red", "purple", "yellow")
txtColors <- c("white", "yellow", "white", "white", "green", "red")
# Create a function to be passes to "strip=" argument of xyplot
myStripStyle <- function(which.panel, factor.levels, par.strip.text,
custBgCol=par.strip.text$custBgCol,
custTxtCol=par.strip.text$custTxtCol,...) {
panel.rect(0, 0, 1, 1,
col = custBgCol[which.panel],
border = 1)
panel.text(x = 0.5, y = 0.5,
font=2,
lab = factor.levels[which.panel],
col = custTxtCol[which.panel])
}
xyplot(yield ~ year | site, data = barley,
par.strip.text=list(custBgCol=bgColors,
custTxtCol=txtColors),
strip=myStripStyle)