R 不同阈值下的多重几何平滑

我想为不同的阈值绘制一个具有多条geom_smooth（method=“黄土”）线的绘图，但我遇到了一些问题

具体来说，我想要一条geom_smooth（）线，用于所有大于1标准偏差（SD）或小于-1标准偏差（包括-/+2SD）的点，一条用于2SD，另一条用于所有点。但是，我遇到了一个问题，它只对每个类别中的数据进行平滑处理（即大于1 SD但小于2 SD）

我在这里做了一些玩具数据：

#test data
a <- c(rnorm(10000, mean=0, sd = 1))
b <- c(rnorm(10000, mean=0, sd = 1))

test <- as.data.frame(cbind(a,b))

test3$Thresholds <- cut(test$a, breaks = c(-Inf,-2*sd(test$a),-sd(test$a),0,sd(test$a), 2*sd(test$a), Inf),
                                 labels = c("2_SD+", "1_SD", "0_SD","0_SD", "1_SD", "2_SD+"))

plot <- ggplot(test3, aes(x=b, y=a, color=Thresholds, alpha = 0.25, legend = F)) + geom_point() + geom_smooth(method="loess") 

测试数据

---

a如果要对不同数量的x和y进行平滑，则必须操作数据组件

库（ggplot2）
图书馆（dplyr）
#测试数据
a`geom_smooth（）`使用公式'y~x'
#>`geom_smooth（）`使用公式'y~x'

---

如果要对不同数量的x和y进行平滑处理，必须操作数据组件

库（ggplot2）
图书馆（dplyr）
#测试数据
a`geom_smooth（）`使用公式'y~x'
#>`geom_smooth（）`使用公式'y~x'