ggplot2技术问题：提取曲线上点的坐标数据

你遇到的问题很常见——ggplot_build()只返回geom_curve()的起止点，因为它存储的是图层的原始输入数据，而曲线的中间点是在绘图阶段（生成grob对象时）才实时计算出来的。下面给你两种可靠的方法来获取完整的曲线坐标：

方法1：从生成的绘图grob中提取点 #

ggplot最终会把图形转换为grid包的grob对象，我们可以直接从这个对象里拿到曲线的所有绘制点：

首先，先构造示例绘图（用你提供的代码框架）：

library(ggplot2)
# 构造示例数据
df <- data.frame(x = 1, y = 1, xend = 3, yend = 2)
# 创建带曲线的图
p <- ggplot(df, aes(x = x, y = y, xend = xend, yend = yend)) + 
  geom_curve(curvature = .4)

接下来提取曲线点：

# 把ggplot对象转换为grob
gp <- ggplotGrob(p)

# 定位到面板里的curve grob
panel_grob <- gp$grobs[[which(sapply(gp$grobs, \(x) x$name) == "panel")]]
curve_grobs <- panel_grob$children[grepl("curve", names(panel_grob$children))]

# 提取第一条曲线的坐标（如果有多条曲线，循环处理即可）
curve_coords <- data.frame(
  x_npc = curve_grobs[[1]]$x,
  y_npc = curve_grobs[[1]]$y
)

# 把npc单位转换回原始数据的坐标（关键步骤）
panel_params <- gp$layout$panel_params[[1]]
curve_coords$x_original <- panel_params$x$scale$trans$inverse(curve_coords$x_npc)
curve_coords$y_original <- panel_params$y$scale$trans$inverse(curve_coords$y_npc)

curve_coords里的x_original和y_original就是你要的原始数据坐标系下的所有曲线点，包括中间点。

方法2：手动用grid包生成曲线点 #

geom_curve()底层调用的是grid::curveGrob()来生成贝塞尔曲线，我们可以直接复用这个函数来生成完整的点集：

library(grid)
# 用curveGrob生成曲线，参数和geom_curve保持一致
cg <- curveGrob(
  x = unit(df$x, "native"), 
  y = unit(df$y, "native"),
  xend = unit(df$xend, "native"), 
  yend = unit(df$yend, "native"),
  curvature = .4
)

# 提取曲线的x、y坐标（直接是原始数据单位）
curve_df <- data.frame(
  x = as.numeric(cg$children[[1]]$x),
  y = as.numeric(cg$children[[1]]$y)
)

这个方法更直接，如果你只需要曲线点而不需要完整的ggplot对象，用这个更高效。

补充说明 #

• 如果你有多条曲线，只需要循环处理每个curve_grob即可；
• 两种方法得到的点都是贝塞尔曲线的采样点，数量由grid包的默认采样精度决定，如果你需要更多/更少的点，可以调整curveGrob()的ncp参数（默认是100，数值越高点越密集）。

内容的提问来源于stack exchange，提问作者jzadra