如何在一种 colored颜色 中设置数值变量的 colored颜色 和高于阈值的 colored颜色 点

图例可以通过scale_xxx_xxx控制.当你映射到color美学时，它是scale_color_xxx，而当你有一个连续变量时，它是scale_color_continuous.然而，如果你想要一个从红色到蓝色的渐变，最好切换到scale_color_gradient.

接下来，虽然您可以重新编码您的数据，但要使高于阈值的点具有相同的 colored颜色 ，一个选项是设置比例限制并使用oob = scales::oob_squish:

library(ggOceanMaps)
library(ggspatial)

basemap(c(-180, 180, -90, 90), bathymetry = TRUE) +
  ggspatial::geom_spatial_point(
    data = daten_neu, aes(
      x = as.numeric(Longitude),
      y = as.numeric(Latitude),
      color = as.numeric(Neogloboquadrina_pachyderma...35)
    )
  ) +
  scale_color_gradient(
    name = "Neogloboquadrina pachyderma",
    breaks = seq(0, 300, 100),
    labels = c(seq(0, 250, 100), "300 and more"),
    low = "darkblue", high = "darkred",
    limits = c(NA, 300),
    oob = scales::oob_squish
  )

DATA个

# run e.g. dput(head(date_neu, 10))
daten_neu <- structure(list(Latitude = c(
  8.983, 44.3498, 50.9332, 36.1333,
  35.7833, 37.65, 35.7667, 39.1332, 5.2833, 3.65
), Longitude = c(
  51.733,
  -30.267, -41.75, -68.9167, -68.9333, -72.95, -69.0833, -42.65,
  -17.0667, -18.3
), Neogloboquadrina_pachyderma...35 = c(
  1L, 8L,
  602L, 1L, 1L, 62L, 1L, 2L, 1L, 14L
)), class = "data.frame", row.names = c(
  "1",
  "2", "3", "4", "5", "6", "7", "8", "9", "10"
))