R如何基于摘要数据库添加线性趋势线 数据库图形代码

如何解决R如何基于摘要数据库添加线性趋势线 数据库图形代码

我正在尝试根据具有计算平均值和标准误差的摘要数据库制作线性趋势线。我的想法是，我希望在两个不同的研究地点（威基基和花沼湾）各有4个点，分别代表高低遮蔽模块。

数据库

data <- structure(list(Site_long = structure(c(1L,1L,2L,2L),.Label = c("Hanauma Bay","Waikiki"),class = "factor"),Shelter = c("High","Low","High","Low"),mean_urchin = c(408.408115828422,140.379098168879,13.52445484726,4.94269044271269),mean_algae = c(0.823598077528884,0.90810903848719,0.907753323551643,0.89177862643068),standard_error_urchin = c(72.3961797019843,27.120064093754,8.47543198370478,2.29511348616285),standard_error_algae = c(0.0242715527026854,0.0109737470337568,0.00941191528094468,0.0122105898310865),lower_urchin = c(336.011936126438,113.259034075125,5.04902286355523,2.64757695654983),upper_urchin = c(480.804295530406,167.499162262633,21.9998868309648,7.23780392887554),lower_algae = c(0.799326524826198,0.897135291453433,0.898341408270698,0.879568036599593),upper_algae = c(0.847869630231569,0.919082785520947,0.917165238832587,0.903989216261766)),row.names = c(NA,-4L),groups = structure(list(
    Site_long = structure(1:2,"Waikiki"
    ),.rows = structure(list(1:2,3:4),ptype = integer(0),class = c("vctrs_list_of","vctrs_vctr","list"))),row.names = 1:2,class = c("tbl_df","tbl","data.frame"),.drop = TRUE),class = c("grouped_df","tbl_df","data.frame"))

当我在绘图代码中添加geom_smooth（）时，它根本不会渲染趋势线。

图形代码

ggplot(data = data,aes(x = mean_urchin,y = mean_algae,fill = Shelter,shape = Site_long)) +
  geom_point(aes(size = 3)) +
  stat_smooth(method=lm) +
  scale_shape_manual(values = c(21,24)) +
  scale_fill_manual(values = c(NA,"black"),guide = guide_legend(override.aes = list(shape = 21))) +
  geom_errorbar(aes(ymin = lower_algae,ymax = upper_algae),position = position_dodge(.8),width = .1) +
  geom_errorbarh(aes(xmin = lower_urchin,xmax = upper_urchin),width = .1) +
  
  labs(x = "Mean urchin biomass (Kg) ± SEM",y = "Mean benthic algal cover ± SEM")

是否可以基于这样的摘要数据库来绘制趋势线，还是必须将其链接到原始数据库？我尝试使用原始数据生成趋势线，但最终得到了4条独立的趋势线，这不是我想要的。

任何见解或建议将不胜感激。预先感谢！