添加布局以显示 corr 值时，用回归线缩小；为什么？

如何解决添加布局以显示 corr 值时，用回归线缩小；为什么？

我正在向我的绘图相关图中添加一条回归线，但是当我添加一个布局以将 COR_text 包含在图形中时，它会缩小；我知道这是因为如果我将 COR 绘制到图形本身上，它看起来像一条垂直锯齿状线，跨越原始范围的 x10，从而使其看起来缩小。我很好奇为什么会发生这种情况。我已经研究过类似的问题，在这里可以看到我遇到的一个优雅的解决方案 R plotly(): Adding regression line to a correlation scatter plot 尽管预测函数没有为我的数据生成列表。下面是我的代码，其中我制作了一个包含两列的数据框，其中包含我想要关联的值“Fe”和“SRP”：

SRP_Fe <- data.frame(as.numeric(Fe_S$Value),as.numeric(SRP_F$Value))
names(SRP_Fe) <- c("Fe","SRP")

lm_zero=lm(SRP_Fe$SRP ~ SRP_Fe$Fe,data=SRP_Fe)

COR = cor.test(SRP_Fe$Fe,SRP_Fe$SRP)[c("estimate","p.value")]
COR_text = paste(c("R=","p="),signif(as.numeric(COR,3),collapse=" ")

plot_ly(data= SRP_Fe,x= ~Fe,y= ~SRP,type="scatter",mode="markers",name="SRP Fe") %>%
    add_lines(x =~Fe,y =predict(lm_zero))%>% 
  layout(annotations = list(text = COR_text,showarrow =FALSE))

https://i.stack.imgur.com/xvEbQ.png 没有足够的声誉来举办这个节目：/

正如我所提到的，当我尝试整合优雅解决方案中使用的操作时，我发现我做了以下操作，但由于预测变量不是列表，我无法继续。当然，我稍微修改了解决方案以更好地适应我的数据，并且相信我已经对其进行了足够的了解以了解正在发生的事情但遗漏了一些东西。预先感谢您的任何澄清和帮助。