Как сдвинуть легенду для дискретных масштабов в ggplot?

Question

У меня есть фрейм данных, называемый df, с 4 столбцами и 43010 лингами. Столбцы X, Y, сезон, медиана. «X» и «Y» являются координатами местоположения lambert II во Франции, «сезон» может иметь 5 значений (годовой, весенний, летний, осенний и зимний), «медиана» - это число от -40 до 70 (в процентах от факт).

Я хочу составить карту Франции для каждого сезона, наполненного значением «медиана». Как я хочу отдельные классы, я преобразовал значение «средней колонки», как это:

vecP <- c(-40, -30, -20, -10, -5, 0, 5, 10, 20, 30, 70) 
labP <- c("-40 ; -30", "-30 ; -20", "-20 ; -10", "-10 ; -5", "-5 ; 0", "0 ; 5", "5 ; 10", "10 ; 20", "20 ; 30", "30 ; 70") 
df$sumBias <- cut(df$median, breaks=vecP, labels =labP) 

Так у меня есть пятая колонна с классами. Теперь, чтобы построить:

colorsP <- brewer.pal(length(labP), "RdBu") 

pdf(file=paste(graph_wd,"Bias.pdf",sep=""), width=4, height=9, paper = "special") 
p <- ggplot(data = df, aes(x=X, y=Y)) 
p <- (p  
     + theme_bw() 
     + facet_wrap(~ season, ncol=1) 
     + geom_tile(aes(fill= sumBias)) 
     + scale_fill_manual(name = "Bias (%)", values = setNames(colorsP, labP),breaks=rev(labP),labels=rev(labP),na.value="black") 
     + geom_path(data = polfrance, colour = 'black', 
       aes(x = long, y = lat, group = group))) 

p <- (p + scale_y_continuous(limits=c(1580000,2730000), 
          breaks=seq(1600000,2700000, 200000), 
          labels= seq(1600,2700,200), expand=c(0,0)) 
     + scale_x_continuous(limits=c(0,1250000), 
         breaks= seq(0,1250000, 400000), 
         labels= seq(0,1250, 400), expand=c(0,0)) 
     + theme(panel.grid.major = element_blank(), axis.text=element_blank(), axis.ticks=element_blank(), axis.title=element_blank()) 
     + coord_fixed(ratio=1)) 
print(p) 
dev.off() 

Это дает мне эту цифру:

Моя проблема легенда. Возможно ли иметь одно число между двумя классами? Например, «-30» между двумя последними красными классами. Или что-то подобное (легенда не соответствует, это просто чтобы показать, что я хочу):

Все, что я пытался всегда поставить одну метку рядом с одним классом цвета.

Спасибо!

EDIT

С user20650 ответ, я только модифицирована, в сюжете

 + scale_fill_manual(name = "Bias (%)", 
         values = setNames(colorsP, labP), 
         breaks=rev(labP), 
         labels=c("30", "20", "10", "5", "0", "-5", "-10", "-20", "-30", "-40"), 
         guide=guide_legend(label.vjust=-0.2), 
         na.value="black") 

И это дает мне это:

мне просто нужно добавить еще одну метку для «70» в верхней части шкалы, любая идея?

Answer 1

Немного грубого исправления и требуется некоторая ручная настройка, но его начало? Идея сохранить каждую вторую метку и использовать vjust в слегка переместить ярлыки (это необходимо немного настройки)

library(ggplot2) 
library(reshape2) 

# Reproducible data 
df <- melt(outer(1:3, 1:3), varnames = c("X1", "X2")) 

# plot 
p1 <- ggplot(df, aes(X1, X2)) + geom_tile(aes(fill = factor(value))) 

# labels - keep every second label and weave in empty strings  
l1 <- levels(factor(df$value))[c(F,T)] 
lbs <- c(rbind(rep("",length(l1)), l1)) 

p1 + scale_fill_discrete(labels=lbs, guide=guide_legend(label.vjust=1.1)) 

Который дает