ggfittext是否支持自动选择文本旋转角度以适配容器尺寸？

功能现状 #

ggfittext本身没有内置根据矩形视觉尺寸自动判断文本横竖摆放的功能，你可以通过自定义逻辑实现该需求，无需引入其他额外包。

核心思路 #

不能直接使用数据空间的宽高比判断，要结合ggplot渲染后的面板坐标范围、当前图形设备的宽高比，计算每个矩形的实际视觉宽高比，再动态设置对应的旋转角度，就能保证优先以视觉维度选择最优的文本适配方案。

完整可运行代码 #

library(ggplot2)
library(ggfittext)

# 示例数据
df <- data.frame(
  xmin = c(1000, 4000), xmax = c(3000, 5000),
  ymin = c(1, 3), ymax = c(2, 5),
  label = "My Label"
)

# 构建基础矩形图层
p <- ggplot(df, aes(xmin = xmin, xmax = xmax,
                    ymin = ymin, ymax = ymax)) +
  geom_rect(fill = "grey60")

# 计算视觉维度参数
build <- ggplot_build(p)
# 获取面板x/y轴的数值范围
x_range <- build$layout$panel_params[[1]]$x.range
y_range <- build$layout$panel_params[[1]]$y.range
# 获取当前图形设备的宽高比
dev_ratio <- dev.size()[1] / dev.size()[2]

# 计算每个矩形的视觉宽高比
df$vis_width <- (df$xmax - df$xmin) / diff(x_range)
df$vis_height <- (df$ymax - df$ymin) / diff(y_range)
df$vis_ratio <- (df$vis_width / df$vis_height) * dev_ratio

# 动态生成旋转角度：视觉宽大于高时横放（0度），否则竖放（90度）
df$angle <- ifelse(df$vis_ratio > 1, 0, 90)

# 最终出图
p + geom_fit_text(aes(label = label, angle = angle), size = 40)

拓展说明 #

如果需要频繁使用该功能，可以把上述逻辑封装为自定义的ggplot2 geom层，调用时即可自动完成角度判断，无需每次手动计算。目前没有专门实现该功能的其他R包可供替代。

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