我想在图表中添加stat_cor（ggpubr）文本旁边的样本。
我正在使用以下代码来生成图形：
dataset = mtcars
ggplot(dataset,aes(dataset$wt,dataset$disp)) +
geom_jitter() +
geom_smooth(level=0.95,method = "loess") +
stat_cor(method="spearman") +
theme_classic()
但是，如果我想在一个图形中绘制多个图形，并使用一个真实的数据集，其中不同的变量具有不同的缺失值，那么最好使用我的样本大小来绘制geom_jitter。
这有点棘手（并且受其限制），但是您可以使用label.sep参数在相关系数和p值之间插入样本大小（请注意，{{1 }}遇到ggpubr的错误……如果这不适合您，请尝试更新您的软件包）
label.sep 
如果您担心缺少值，则可能需要使用与ggplot(mtcars,aes(wt,disp)) +
geom_jitter() +
geom_smooth(level = 0.95,method = "loess") +
stat_cor(method = "spearman",label.sep = sprintf(",n = %s,",nrow(mtcars))) +
theme_classic()
不同的函数，但我将留给您使用。这也不适用于构面（您将在每个构面中获得相同的数字）。
对于完全灵活的解决方案，我认为您可以使用nrow，或者将geom_text与stat_summary一起使用？
Or go hardcore like this answer，如果没有其他作用
仅出于缺失值的完整性：
geom = "text"如示例所示，在完整的wt和disp情况下绘制N的值