ggscatter-仅将reg.line添加到显示显着相关性的组

编程问答 2022-08-15

问题描述

我从两个地区的七个地点收集了一组数据。我正在绘制散点图并测试两个变量之间的关系，同时按区域将它们分开（即，在区域A或区域B中，变量1和2之间是否存在关系）。

我现在面临的问题是，我正在尝试找出是否有可能仅针对显示两个变量之间显着相关性的组（区域）显示回归线（reg.line）。我创建了一组示例数据。在此示例中，仅区域A显示了var 1和var 2之间的显着相关性。我的散点图显示了两条回归线。是否可以仅显示区域A的回归线？

    #Correlations example script
library("readr")
library("ggplot2")
library("ggpubr")
library("psych")
library("ggpubr")
    
    example<-structure(list(Site = c(1L,1L,2L,3L,4L,5L,6L,7L,7L),Var.1 = c(35,8,4,0.26,47.74,79,45,29.07,31.15,50.26,5.84,4.8,4.75,37.92,32.3,41.6,36.57,47.87,67.86),Var.2 = c(61L,40L,39L,54L,68L,44L,53L,56L,30L,8L,48L,26L,18L,25L,125L,137L,59L),Region = c("A","A","B","B")),class = "data.frame",row.names = c(NA,-21L))
    
    p1<-ggscatter(example,x = "Var.1",y = "Var.2",add = "reg.line",conf.int = FALSE,xlab = "Variable 1",ylab = "Variable 2",color = "Region",palette = c("#0072B2","#D55E00"),shape = "Region")
    p1 <-p1 + stat_cor(aes(color = Region),method = "spearman",label.x = 2) + xlim(0,100)
    
    p1
    
    # Region A exhibits significant correlation.

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

groupingrrregressionscatter-plot