使用R Studio过滤以计算多个x截取

我有一个名为

alprazolam.df

的数据集，看起来像：

Sample.Name    Component.name  TCAmount  Ratio
1A-S0            Alprazolam      0.0      0.05
1A-S1            Alprazolam      1.5      0.07
1A-S2            Alprazolam      3.1      0.08
1A-S3            Alprazolam      6.25     0.10
2A-S0            Alprazolam      0.0      0.06
2A-S1            Alprazolam      1.5      0.08
2A-S2            Alprazolam      3.1      0.09
2A-S3            Alprazolam      6.25     0.10
1B-S0            Alprazolam      0.0      0.05
1B-S1            Alprazolam      1.5      0.08
1B-S2            Alprazolam      3.1      0.10
1B-S3            Alprazolam      6.25     0.11`

现在，我正在使用以下方法绘制数据：

library(ggplot2)
ggplot(alprazolam.df, aes(x=TCAmount, y=Ratio, shape=alprazolam.df$Sample.Name)) + 
  geom_point(aes(colour=alprazolam.df$Sample.Name), size=3) +
  scale_shape_manual(values=c(15:19)) + 
  geom_smooth(method=lm, level=0.95, se=FALSE,
    aes(colour=alprazolam.df$Sample.Name)) +
  theme_bw() +
  xlab("Amount (ng/mL)") +
  ylab("Response Ratio")

这使我能够在同一个图形上绘制多组数据，其中已通过

Sample.Name

进行过滤，这非常棒

现在，我需要为生成的每一行添加y=mx+b方程/R^2系数到图表（或打印在下面！）。最重要的是，我需要计算并在ggplot中显示每条直线的x截距（同样，如果它在图形上或下面，我也不挑剔）

在ggplot之外，您可以使用以下方法查看问题：

alprazolam.fit <- coef(lm(Ratio~TCAmount, data=alprazolam.fit))
eint <- alprazolam.fit[1] / alprazolam.fit[2]

---

alprazolam.fit您的样本数据中没有“Sample.Name”。此外，不要在aes调用中使用'df$variable'。它们是不必要的，在函数中使用时可能会导致意外问题。最后，在ggplot之外计算数据，然后使用geom_文本或类似文本通常更容易。我已经更新了示例。如果您能够回答我的问题，请命名您突出显示的问题。还有-你有没有办法建议如何避免使用df$变量？这样做的目的是根据Sample.Name对我的数据集进行颜色编码。避免使用df$变量的方法与分配
x
和
y
的方法相同。只需使用aes（颜色=变量）

。变量将在最初的ggplot调用中提供的data.frame中进行求值。谢谢。你有什么建议，可以按照赫罗卡所说的，在ggplot之外完成这个计算，然后把它搬进去？我如何创建我认为必须是一个循环来计算所有相关的x截获？在样本数据中没有“Sample.Name”。此外，不要在aes调用中使用'df$variable'。它们是不必要的，在函数中使用时可能会导致意外问题。最后，在ggplot之外计算数据，然后使用geom_文本或类似文本通常更容易。我已经更新了示例。如果您能够回答我的问题，请命名您突出显示的问题。还有-你有没有办法建议如何避免使用df$变量？这样做的目的是根据Sample.Name对我的数据集进行颜色编码。避免使用df$变量的方法与分配

x

和

y

的方法相同。只需使用aes（颜色=变量）。变量将在最初的ggplot调用中提供的data.frame中进行求值。谢谢。你有什么建议，可以按照赫罗卡所说的，在ggplot之外完成这个计算，然后把它搬进去？我如何创建一个我认为必须的循环来计算所有相关的x截获？