Непрерывная легенда для тепловой карты в R с использованием mapCountryData
У меня проблемы с поиском способа, чтобы у моего графика была непрерывная легенда, предпочтительно горизонтальная полоса внизу.
Данные, которые я отображаю, представляют собой процентное изменение, которое принимает значения от -200 до 200, в основном от -50 до 50 с несколькими выбросами.
Вот мой код:
malDF <- data.frame(country = df$Code, m = df$change_pct )
malMap <- joinCountryData2Map(malDF, joinCode = "ISO3", nameJoinColumn = "country", verbose = FALSE)
mapCountryData(malMap, nameColumnToPlot="m", missingCountryCol = gray(.8), colourPalette = brewer.pal(25,'RdPu'), mapTitle="Percent Change From 1990 to 2015", addLegend = T)
Это работает, но у него всего пять разных цветов, хотя я думаю, что указал 25. Я предполагаю, что это происходит, потому что данные кластеризуются близко к 0. Как я могу обойти это? Для меня действительно важно проводить различие между положительными и отрицательными числами. Кроме того, я хотел бы, чтобы на легенде было 0.
Спасибо