Dramatically slow map plotting

I found a partial solution, I tried with X11(type=?cairo?) and reduced substantially the time plotting

ptm <- proc.time()
spplot(map[1]); proc.time() - ptm

user  system elapsed 
  2.166   0.510   3.604