如何在 R 中绘制偏相关（使用 Spearman 估计）？

Question

我正在运行 2 个连续 VAR 之间的部分相关性，我想使用从以下内容中提取的估计来可视化该关联：

library(ppcor)
pcor.test(Y~X, Z, data, method="spearman")

estimate      p.value statistic  n gp   Method
0.3997551 0.0007318872  3.543037 69  1 spearman

使用部分回归图进行可视化

Y_resid<-resid(lm(Y~Z,data))
X_resid<-resid(lm(X~Z,data))

library(ggplot2)
m<-ggplot(data, aes(x=X_resid, y=Y_resid)) +
geom_point() +
labs(x="X | Z", y = "Y | Z")+
scale_size_manual(values=c(15))+
theme_classic()
m +  geom_smooth(method=lm)

这

geom_smooth(method=lm, formula= y~x)

然而，选项显然与基于 Spearman 的 pcor 函数的估计不对应。

有没有办法制作 XY(resid) 图并使用 pcor.test 的估计值拟合一条线？

提前致谢