在ggplot中，用于在绘图底部添加样本位置刻度标记的geom是什么？

在ggplot里，要复刻gratia包draw()函数中x轴显示样本位置刻度标记的效果，使用**geom_rug()**就可以实现。

geom_rug()的作用是在坐标轴边缘绘制短小的刻度线，精准对应原始数据点的位置，和gratia中展示的效果完全一致。

示例代码 #

基于你提供的数据和模型，可参考以下两种场景的实现：

1. 仅展示样本x轴刻度

library(ggplot2)
ggplot(df, aes(x = x)) +
  geom_rug(sides = "b") # 指定仅在底部x轴绘制刻度

2. 结合GAM拟合曲线展示

如果需要同时展示模型的拟合结果和样本位置：

# 提取模型拟合值
fit_df <- data.frame(x = df$x, fitted_val = predict(m))

ggplot() +
  geom_line(data = fit_df, aes(x = x, y = fitted_val), color = "blue") + # 绘制拟合曲线
  geom_rug(data = df, aes(x = x), sides = "b") # 添加x轴样本刻度

参数说明 #

• sides：控制刻度线的位置，可选值包括：
  • "b"：底部（x轴）
  • "l"：左侧（y轴）
  • "t"：顶部
  • "r"：右侧
    默认值为"bl"，即同时在底部和左侧绘制刻度。

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