p <- ggplot(dati, aes(E, N))
p + stat_contour(data = dem, aes(x, y, z = z)) +
geom_point(aes(colour = CURVA), size = 4) +
geom_point(colour="grey90", aes(shape = STAZIONE)) +
scale_colour_brewer(palette="Set1")
Thanks for the help,
Alfredo
2011/3/29 Brandon Hurr <brando...@gmail.com>: