可以將中斷向量傳遞給geom_contour_filled的breaks參數(shù)。 讓我們首先創(chuàng)建一個值為0到500的光柵 library(raster)r <- raster(t((volcano[,ncol(volcano):1] - 94) * 4.95))range(r[])#> [1] 0.00 499.95df <- as.data.frame(as(r, "SpatialPixelsDataFrame"))colnames(df) <- c("value", "x", "y") 現(xiàn)在我們把情節(jié)稱為: centile90 <- quantile(r[], 0.9)# Define breaks vectormybreaks <- seq(0, 500, 50)ggplot(df, aes(x, y, z = value)) + geom_contour_filled(breaks = mybreaks) + geom_contour(breaks = centile90, colour = "orange", size = 0.5) + scale_fill_manual(values = hcl.colors(length(mybreaks) - 1, "YlGnBu", rev = TRUE)) + scale_x_continuou