Обратное «тепло» в одной колонке тепловой карты()

Question

Я использую heatmap, чтобы нарисовать лидера для каждой из соответствующих категорий качки для некоторых бейсбольных данных. Моя проблема в том, что мне нужно отменить «тепло» только одного из столбцов, потому что лучшая ERA самая низкая, а не самая высокая. Вот код. mlb2010 - это данные, которые были импортированы из базы данных SQL через RSQLite.

mlb10 <- sapply(2:length(mlb2010), function(i) { 
    mlb2010[, i] <- as.numeric(mlb2010[, i]) 
    }) 

rc <- rainbow(nrow(mlb10), start = 0, end = .3) 
cc <- rainbow(ncol(mlb10), start = 0, end = .3) 

heatmap(mlb10, col = rev(heat.colors(256)), scale = "column", 
     Rowv = NULL, Colv = NA, RowSideColors = rc, ColSideColors = cc, 
     margins = c(5,10), labRow = c(mlb2010$team), labCol = names(al2010)[-1], 
     xlab = "Performance factors", ylab = "Team", 
     main = c("Relating Performance to Payroll", "2010 MLB Season")) 

Я попытался revC аргумент в heatmap без успеха. Это то, что я должен использовать? Или это переупорядочивает все столбцы, а не то, что находится внутри столбца? Я также попробовал sapply по цветам безрезультатно.

Любая помощь была бы принята с благодарностью.

Answer 1

По запросу от OP, размещая основы решения.

Просто сделайте ml10$ERA <- -ml10$ERA, чтобы отменить заказ, а затем заложить как в сообщении.