如何在RStudio的Treemap中旋转标签？窄分组标签可读性问题求助

问题描述 #

使用treemap包绘制树形图时，部分狭窄分组的标签因尺寸过小难以阅读，且原生treemap不支持标签旋转，需要替代方案优化显示效果。

原代码：

treemap(data2C,
        #data
        index="label",
        vSize="Number",
        type="index",
                
        # Main
        title="",
        
        # Borders:
        border.col=c("white"),             
        border.lwds=1,                         
        
        # Labels
        fontsize.labels=10,
        fontcolor.labels="white",
        fontface.labels=1,
        overlap.labels=0.5,
        inflate.labels=T)

可行替代方案 #

1. 动态调整原生标签大小

根据区块面积设置字体大小，让大区块标签清晰、小区块标签不缩得过小：

treemap(data2C,
        index="label",
        vSize="Number",
        type="index",
        title="",
        border.col=c("white"),             
        border.lwds=1,
        # 字体大小随区块面积动态缩放，限制在8-12之间
        fontsize.labels=function(x) pmax(8, pmin(12, 10*sqrt(x$vSize/max(x$vSize)))),
        fontcolor.labels="white",
        fontface.labels=1,
        overlap.labels=0.5,
        inflate.labels=T)

也可以只显示面积超过阈值的标签，隐藏过小区块的标签：

# 筛选出面积大于20%分位数的分组显示标签
label_size <- ifelse(data2C$Number > quantile(data2C$Number, 0.2), 10, 0)

treemap(data2C,
        index="label",
        vSize="Number",
        type="index",
        title="",
        border.col=c("white"),             
        border.lwds=1,
        fontsize.labels=label_size,
        fontcolor.labels="white",
        fontface.labels=1,
        overlap.labels=0.5,
        inflate.labels=T)

2. 用treemapify+ggplot2实现标签旋转

treemapify支持更灵活的标签自定义，直接设置垂直旋转解决窄区块标签问题：

library(ggplot2)
library(treemapify)

ggplot(data2C, aes(area = Number, fill = label, label = label)) +
  geom_treemap(color = "white", size = 1) +
  geom_treemap_text(
    color = "white",
    size = 10,
    angle = 90,  # 设置标签垂直旋转
    place = "middle"
  ) +
  theme_void() +
  guides(fill = "none")

3. 合并过小分组

将面积极小的分组合并为「其他」类别，从根源避免窄区块：

# 合并占比小于2%的分组
threshold <- sum(data2C$Number) * 0.02
data2C$label_grouped <- ifelse(data2C$Number < threshold, "其他", data2C$label)

# 用合并后的分组绘图
treemap(data2C,
        index="label_grouped",
        vSize="Number",
        type="index",
        title="",
        border.col=c("white"),             
        border.lwds=1,
        fontsize.labels=10,
        fontcolor.labels="white",
        fontface.labels=1,
        overlap.labels=0.5,
        inflate.labels=T)

4. 制作交互式树形图

用plotly生成交互式图表，鼠标悬停即可查看完整标签：

library(plotly)

# 先生成treemap结构数据
tm_data <- treemap(data2C,
                   index="label",
                   vSize="Number",
                   type="index",
                   title="",
                   border.col=c("white"),             
                   border.lwds=1,
                   fontsize.labels=0)  # 隐藏静态标签

# 转换为交互式图表
plot_ly(
  type="treemap",
  labels=tm_data$tm$label,
  parents=rep("", nrow(tm_data$tm)),
  values=tm_data$tm$vSize,
  text=tm_data$tm$label,
  hoverinfo="text",
  marker=list(line=list(color="white", width=1))
) %>% layout(title="")

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