R 从两个藏品中选择一个；背景为等高线的散点图

我有两张桌子-

tbl1包含真实数据：X、Y和choice

tbl2是合成TIB，可用于计算预测选择P的轮廓

库（tidyverse）
#藏书1
也许是这个

库（ggplot2）
ggplot（tbl2，aes（X，Y））+
几何轮廓填充（aes（z=P，α=0.3）+
几何点（aes（颜色=因子（选择）），大小=5，数据=tbl1）+
辅助线（填充=辅助线_无（））+
实验室（color=“Choice”）

也许是这个

库（ggplot2）
ggplot（tbl2，aes（X，Y））+
几何轮廓填充（aes（z=P，α=0.3）+
几何点（aes（颜色=因子（选择）），大小=5，数据=tbl1）+
辅助线（填充=辅助线_无（））+
实验室（color=“Choice”）


library(tidyverse)

# tibble1
X <- c(1, 3, 5) 
Y <- c(1, 5, 3) 
choice <- c(0, 1, 1) 
tbl1 <- tibble(X,Y,choice)

# tibble2
X <- seq(0, 5, 0.1) 
Y <- seq(0, 5, 0.1) 
tbl2 <- crossing(X,Y)
tbl2 <- tbl2 %>%
mutate(V = (X + Y - 4)/2, 
       P = 1/(1+exp(-V)))