У меня есть растровая карта, которую я хочу построить, используя ggplot2, используя непрерывный масштаб и помеченные изолинии поверх этого.

Для этого я использую пакет directlabels и близок к тому, чтобы получить то, что хочу, но не могу получить и легенду, и маркированные изолинии на одной карте

Следующий код воспроизводит мою проблему:

install.packages(c('ggplot2', 'directlabels'))
library('ggplot2')
library('directlabels')
df <- expand.grid(x=1:100, y=1:100)
df$z <- df$x * df$y

# Plot 1: this plot is fine but without contours    
p <- ggplot(aes(x=x, y=y, z=z), data = df) + 
     geom_raster(data=df, aes(fill=z)) +
     scale_fill_gradient(limits=range(df$z), high = 'white', low = 'red')
p

# Plot 2: This plot adds the isolines but no labels and it also adds a second legend for level which I don't want
p <- p + geom_contour(aes(colour = ..level..), color='gray30', na.rm=T,     show.legend=T)
p

# Plot 3: This plot has the labeled isolines but it removes the z legend that I want to show
direct.label(p, list("bottom.pieces", colour='black'))

Участок 1

Участок 2

Участок 3

Я хотел бы иметь цветной растр на заднем плане, с его цветовой легендой сбоку и помеченными изолиниями сверху. Есть ли способ сделать это?

Также есть ли способ разместить метки в середине изолиний вместо нижней или верхней?

заранее спасибо

Pablo