Рисунок распределения средних показателей относительно месяца и года

[Hekpoxa]

Вот так, с помощью пакета rasterViz проще всего.

Вы мой спаситель, буду завтра пытаться с последним рисунком разобраться, хотя в графиках нету сетки со значениями ( с месяцами и годами разабраться можно, но вот по значениям без сложно)
Может вы знаете полную палитру цветов которую можно использовать в программе?? Чтото в таком духе.

Хотя начал пробовать и получается вот это:
> library(raster)
Загрузка требуемого пакета: sp
> library(rasterVis)
Загрузка требуемого пакета: lattice
Загрузка требуемого пакета: latticeExtra
Загрузка требуемого пакета: RColorBrewer
> df.in <- read.csv2(file.choose(), dec='.')
> df <- gather(df.in, month, aod, January:December)
Ошибка в gather(df.in, month, aod, January:December) :
не могу найти функцию "gather"

почему то, с передыдущими было все нормально а сейчас выдает вот.

[rhot]

Код: Выделить всё

library(tidyr)

[Hekpoxa]

> df$month <- as.numeric(df$month)coordinates(df) <- ~ year+month
Ошибка: неожиданный симфол in "df$month <- as.numeric(df$month)coordinates"

[rhot]

Код: Выделить всё

df$month <- as.numeric(df$month)
coordinates(df) <- ~ year+month