如何更改ggplot2 R栅格图例的标度颜色

Question

我想揭露我的问题，以便给我一些解决方法。 我的目标是在此程序中显示带有完整栅格的卡片：

library(raster) ; library(rgdal) ; library(sp);library(rgeos);library(ggplot2)

alti=raster("raster.tif")

hdf <- rasterToPoints(alti)

hdf <- data.frame(hdf)

colnames(hdf) <- c("Long","Lat","Altitude")

ggplot()+
  layer(geom="raster",data=hdf,mapping=aes(Long,Lat,fill=Altitude))+
      # draw boundaries
  geom_path(color="black", linestyle=0.2)+
    scale_fill_gradientn(name="A",colours=c("red","blue","green","grey","yellow","orange","black"), breaks=c(0,100,200,500,750,1000,2000))

最后，我无法使用我建议的值范围来调整图例的颜色。

我想要这个传说：

  red : 0-100.
  blue : 100-200.
  green : 200-500.
  grey : 500-750.
  yellow : 750-1000.
  orange : 1000-2000.
  black : upper 2000.

例如：通常在[1000-2000]范围内，它是orange ，但是在图例中，我的结果是grey ， yellow和orange 3种颜色。 我希望间隔的限制应与图例中颜色的值限制相对应。

Answer 1

如果您从“高度”列中创建一个因子变量并使用scale_fill_manual() ，则可以使其正常运行。 它还将自动为您的图例创建漂亮的标签：

library(raster) ; library(rgdal) ; library(sp);library(rgeos);library(ggplot2)

alti=raster("raster.tif")

hdf <- rasterToPoints(alti)

hdf <- data.frame(hdf)

colnames(hdf) <- c("Long","Lat","Altitude")

tmp <- hdf$Altitude
hdf$Altitude <- ifelse(tmp <= 100, "0-100", hdf$Altitude)
hdf$Altitude <- ifelse(tmp > 100 & tmp <= 200, "100-200", hdf$Altitude)
hdf$Altitude <- ifelse(tmp > 200 & tmp <= 500, "200-500", hdf$Altitude)
hdf$Altitude <- ifelse(tmp > 500 & tmp <= 750, "500-750", hdf$Altitude)
hdf$Altitude <- ifelse(tmp > 750 & tmp <= 1000, "750-1000", hdf$Altitude)
hdf$Altitude <- ifelse(tmp > 1000 & tmp <= 2000, "1000-2000", hdf$Altitude)
hdf$Altitude <- ifelse(tmp > 2000, "Upper 2000", hdf$Altitude)
hdf$Altitude <- factor(hdf$Altitude)

g <- ggplot()+
  layer(geom="raster",data=hdf,mapping=aes(Long,Lat,fill=Altitude))+
      # draw boundaries
  geom_path(color="black", linestyle=0.2)+
    scale_fill_manual(values = c("red","blue","green","grey","yellow","orange","black"))