R 如何标记给定ggplot对象中数据点的y值？

我试图在给定的ggplot对象中注释数据点的y值

为了得到一个可复制的示例，我将使用

lm（）

在

mtcars

数据上创建一个模型，并使用

sjPlot:：plot_model（）

进行绘图

库（magrittr）
图书馆（sjPlot）
给定对象%
lm（mpg~as.系数（档位），数据=）%>%
sjPlot:：plot_模型（，type=“pred”）

---

所以我的问题从这里开始：假设我得到了对象

给定的对象
。我执行它并获得绘图：

>给定的\u p\u对象


是否可以标记绘图上每个点的y值，而无需返回原始数据和导致绘图的过程（从而忽略
mtcars%%>%lm（）%%>%sjPlot:：plot_model（）
）？换句话说，如何从当前
给定的\u p\u对象中提取执行以下操作所需的信息？
这些值可以在以下位置找到：

given_p_object$gear$data$predicted
#[1] 16.1 24.5 21.4

一般的解决办法是：

get_predicted_value <- function(p) p[[1]]$data$predicted
get_predicted_value(given_p_object)
#[1] 16.1 24.5 21.4

获取预测值谢谢，这很有用。我可以概括一下吗，这样对于任何给定的ggplot对象
p
，我都可以得到数据点的y值？我这样问是因为这里我们需要指定
档位
。在提取y值时，我试图完全不了解绘图。更新了答案，以包含一个用于任何
p
对象的函数。如果这很烦人，很抱歉，但是从这一点上，我理解没有一种通用的方法来获取y值？考虑，例如，代码> G HMM..抱歉，我不知道一般的解决方案，它可以从任何情节返回Y值。您是否也希望从该绘图返回y值<代码>绘图（1:10，11:20）
否，因为它不是ggplot对象<代码>废话