Lattice spplot не может создать цветовой ключ или создает вертикальный, когда требуется горизонтальный

Question

library(lattice)
Data <- data.frame(Long=abs(rnorm(20,100,2)), Lat=abs(rnorm(20,40,2)), X=rnorm(20,20,2))
pd  <- subset(Data,select=c('Lat','Long'))
pd2 <- subset(Data,select=names(Data)[!names(Data)%in%c('Lat','Long')])
coordinates(pd) <- ~ Long + Lat
pd <- SpatialPoints(pd)
pd <- SpatialPointsDataFrame(pd, data = pd2)
cols <- brewer.pal(11, 'RdYlBu')

когда я использую эту команду:

spplot(pd, zcol = 'X', col.regions = cols, colorkey = list(space = 'top', col = cols))

ИЛИ ЖЕ

spplot(pd, zcol = 'X', col.regions = cols, colorkey = draw.colorkey(key=list(at=seq(-20,20,1),col=cols)))

Это не создает график, и я получаю эту ошибку:

Error in legend[[i]]$fun : $ operator is invalid for atomic vectors

Когда я использую "срезы" и меняю цветовой ключ на "ИСТИНА", он рисует цветовой ключ, но у меня нет достаточного контроля над его деталями, и самое главное, я не могу изменить направление цветового ключа на горизонтальное.

spplot(pd, zcol = 'X', col.regions = cols, cuts=seq(min(Data$X),max(Data$X),1), colorkey = T, key.space='top')

Я хотел бы создать что-то вроде этого: