多重geom_sf颜色美学（离散连续）

Question

我正在尝试使用 ggplot2 中的 sf 和 geom_sf 制作地图，其中一组点数据使用连续比例（-1 到 1）着色，一组线数据使用离散比例（a，b，c，d）着色。但是，当我在同一张地图中同时使用离散和连续美学时，我遇到了麻烦。这里发布了一个类似的问题，但它没有涉及映射美学。

下面是一个简化的示例：

#Libraries
library(sf)
library(tidyverse)

#Make point data
N <- 1000
pointdat <- data.frame(x=runif(N,-1,1),y=runif(N,-1,1),z=rnorm(N)) %>% 
  st_as_sf(coords=c('x','y'))

ggplot(pointdat)+geom_sf(aes(col=z)) #Plot point data - this works

#Make line data
linedat <- rbind(c(1,1),c(1,-1),c(-1,-1),c(-1,1),c(1,1))*1.1
linedat <- lapply(1:(nrow(linedat)-1),function(x) st_linestring(linedat[c(x,x+1),]))
linedat <- st_sf(geometry=st_sfc(linedat)) %>% mutate(type=factor(letters[1:4]))

ggplot(linedat)+geom_sf(aes(col=type)) #Plot line data - this works

#When I try to plot point and line data together, it throws an error
ggplot()+
  geom_sf(data=linedat,aes(col=type))+
  geom_sf(data=pointdat,aes(col=z))

#Error: Continuous value supplied to discrete scale

很明显，连续（点数据）和离散（线数据）美学之间存在冲突，但我如何每次调用geom_sf为每个数据集使用不同的颜色美学？使用＜code＞inherit。aes=FALSE不会更改任何内容。如果使用不同的美学（例如fillvscol），这似乎不是问题。

Answer 1

实现所需结果或更普遍地拥有多个色阶的一种选择是使用 ggnewscale 包，如下所示：

# Libraries
library(sf)
#> Linking to GEOS 3.8.1, GDAL 3.2.1, PROJ 7.2.1
library(tidyverse)
library(ggnewscale)

set.seed(42)
N <- 1000
pointdat <- data.frame(x = runif(N, -1, 1), y = runif(N, -1, 1), z = rnorm(N)) %>%
  st_as_sf(coords = c("x", "y"))

linedat <- rbind(c(1, 1), c(1, -1), c(-1, -1), c(-1, 1), c(1, 1)) * 1.1
linedat <- lapply(1:(nrow(linedat) - 1), function(x) st_linestring(linedat[c(x, x + 1), ]))
linedat <- st_sf(geometry = st_sfc(linedat)) %>% mutate(type = factor(letters[1:4]))

ggplot() +
  geom_sf(data = linedat, aes(col = type)) +
  new_scale_color() +
  geom_sf(data = pointdat, aes(col = z))