基于文本宽度拟合log曲线检测knee point的R绘图方法咨询

• 现有逻辑仅对计算出的文本宽度做排序后调用基础plot()绘图，没有绑定原始title字段，也未做对数拟合、坐标轴自定义映射，无法实现X轴显示宽度数值、Y轴显示主题名称的效果。
• 基础绘图默认将排序后的值的索引作为Y轴刻度，不会展示对应的文本内容，且没有传入字体、字号参数，计算出的文本宽度和实际渲染结果存在偏差。

1. 数据预处理 #

计算文本宽度时必须传入你实际渲染文本使用的字体、字号参数，否则宽度值不具备参考性，处理后按宽度排序生成Y轴位置映射：

library(textshaping)
library(dplyr)
library(ggplot2)

df_width <- df %>%
  # 替换family、size为你实际使用的字体、字号参数
  mutate(width_txt = text_width(
    text = title,
    family = "sans",
    size = 12
  )) %>%
  # 按宽度升序排列，固定Y轴文本顺序
  arrange(width_txt) %>%
  mutate(y_pos = row_number())

2. 对数曲线拟合 #

基于排序后的位置和文本宽度拟合对数模型，生成曲线绘制所需的预测值：

# 拟合对数关系模型
log_model <- lm(y_pos ~ log(width_txt), data = df_width)
# 生成拟合值
df_width$fit_val <- predict(log_model, newdata = df_width)

3. 目标效果绘图 #

实现X轴展示宽度数值、Y轴展示主题名称，叠加拟合的对数曲线：

ggplot(df_width, aes(x = width_txt, y = reorder(title, width_txt))) +
  # 绘制单条文本对应的宽度散点
  geom_point(color = "#2c3e50", size = 2) +
  # 绘制对数拟合曲线
  geom_line(aes(x = width_txt, y = fit_val), color = "#e74c3c", linewidth = 1) +
  # 坐标轴与标题设置
  labs(
    x = "文本渲染宽度（像素）",
    y = "主题名称",
    title = "文本宽度分布对数拟合图"
  ) +
  # 调整Y轴文本大小避免截断
  theme(axis.text.y = element_text(size = 9))

如果需要自动识别曲线拐点获取精准宽度阈值，可以用分段回归自动计算，不需要肉眼判断：

library(segmented)
# 构建分段回归模型自动识别拐点
seg_model <- segmented(
  lm(width_txt ~ y_pos, data = df_width),
  seg.Z = ~y_pos
)
# 提取拐点对应的宽度值，可直接作为文本尺寸、截断规则的设定阈值
knee_threshold <- seg_model$psi[2]

注意：如果后续更换了渲染字体、字号、字重，必须重新计算文本宽度和拐点阈值，否则适配规则会失效。

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