如何在ggplot中移动分类型比例尺的图例？

Question

如何在ggplot中移动分类型比例尺的图例？

3

我有一个名为df的数据框，其中包含4列和43010行。这些列分别是X、Y、season和median。"X"和"Y"是法国位置的Lambert II坐标，"season"可以有5个值（年度、春季、夏季、秋季和冬季），"median"是-40到70之间的数字（实际上是百分数）。

我想绘制每个季节的法国地图，并填充值为"median"的颜色。由于我需要离散的类别，因此我将"median"列的值转换如下:

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”。或者类似于此（图例不匹配，这只是为了说明我想要的内容）： Fig2

我尝试的所有方法都会将一个标签放在一个颜色类旁边。

谢谢！编辑

使用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")

我得到了这个：

Fig3

我只需要在刻度尺的顶部再添加一个标签来表示“70”，你有什么想法吗？

- Chika

3

可能是使用ggplot2生成带有偏移标签的颜色图例的重复问题。 - AF7

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- user20650 · Accepted Answer

有点粗糙的修复方法，需要一些手动调整，但这是一个开始？想法是保留每个第二个标签，并使用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))

Which gives

enter image description here