将具有连续比例的krig图更改为离散

我正试图解决一个克里格/格格图问题。我目前使用以下方法绘制了显示连续比例的绘图：

但我想将颜色渐变改为离散，选择我自己的颜色、比例和包括轮廓，但我无法使其工作，请参见下面的示例图像和代码：

Zn\u DTPA\u NL.kriged%
as.data.frame（）%>%
ggplot（aes（x=x，y=y））+
geom_光栅（aes（fill=var1.pred），interpolate=TRUE）+
coord_equal（）+
比例\颜色\手册(
断裂=c（“550”、“650”、“750”、“850”），
标签=c（“550”、“650”、“750”、“850”），
值=c(
“#0000FF”、“#33CCFF”，
#99FF99“，#FFCC33“，#CC0000”
)
) +
刻度填充手册(
断裂=c（“550”、“650”、“750”、“850”），
标签=c（“550”、“650”、“750”、“850”），
值=c(
“#0000FF”、“#33CCFF”，
#99FF99“，#FFCC33“，#CC0000”
)
) +
比例x连续（标签=逗号）+
连续缩放（标签=逗号）+
主题_bw（）

---

任何建议都会很好

我从Facebook上的生态R组得到了答案

第一个选项是使用以下方式手动装箱：

dat <- data.frame(Zn_DTPA_NL.kriged)
# make a new column with discrete breaks
dat$brks <- cut(dat$var1.pred,
breaks=c(0, 550, 650, 750, 850, Inf),
labels = c("0-550", "550-650", "650-750", "750-850", ">850))

scale_fill_viridis_b()

使用geom_轮廓填充（）。这将使你达到80%

Cu_DTPA_NL.kriged %>%
  as.data.frame() %>%
  ggplot(aes(x = x, y = y)) +
  geom_contour_filled(aes(z = var1.pred)) +
  coord_equal() +
  scale_x_continuous(labels = comma) +
  scale_y_continuous(labels = comma) +
  theme_bw()

---

也许可以尝试先将这些值组合起来，然后用这些数据创建一个factor列。然后在ggplot中，您可以在新的因子列上使用scale_fill_manual（）。

scale_fill_viridis_b()

Cu_DTPA_NL.kriged %>%
  as.data.frame() %>%
  ggplot(aes(x = x, y = y)) +
  geom_contour_filled(aes(z = var1.pred)) +
  coord_equal() +
  scale_x_continuous(labels = comma) +
  scale_y_continuous(labels = comma) +
  theme_bw()