Обратный порядок цветов в calendarHeatMap

Question

Я хотел бы знать, как изменить цвет этого calendarHeatmap так, чтобы белый = 0, а самый синий - = 120

calendarHeat(myd$date1, myd$heatvar, varname="VAR name", ncolors=5,color="w2b" )

источник

st <- as.Date("2010-2-17")
en <- as.Date("2013-4-7")
datell <- seq(st, en, "1 day")
myd <- data.frame (date1 = datell, heatvar = rnorm (length (datell), 50, 20))


require(lattice)
require(chron)
require(grid)

calendarHeat(myd$date1, myd$heatvar, varname="VAR name", ncolors=5, color="w2b")

Answer 1

Как насчет того, чтобы скопировать исходный код функции calendarHeat и затем обратить вспять цветовую палитру w2b, что-то вроде:

require(lattice)
require(chron)
require(grid)

# Grab the source code
source("https://raw.githubusercontent.com/iascchen/VisHealth/master/R/calendarHeat.R")

# Create a copy of the heatmap function
calendarHeat2 <- calendarHeat

# Reverse the color palette for the copied function
body(calendarHeat2)[[23]] <- substitute(w2b <- rev(c("#045A8D", "#2B8CBE", "#74A9CF", "#BDC9E1", "#F1EEF6")))

# Plot!
calendarHeat2(myd$date1, myd$heatvar, varname="VAR name", ncolors=5, color="w2b")

Данные:

st <- as.Date("2010-2-17")
en <- as.Date("2013-4-7")
datell <- seq(st, en, "1 day")
myd <- data.frame (date1 = datell, heatvar = rnorm(length(datell), 50, 20))