R语言自定义热力图主题及单元格显示异常问题求助

你的问题核心是分箱方式不合理导致大量空单元格挤压有效数据的展示空间，同时默认绘图主题未突出单元格边界。以下是修正方案：

1. 调整分箱逻辑 #

原始数据中mean_temp仅有4个唯一值，强行用cut_interval(n=10)会生成大量空区间，导致有效单元格被压缩。建议根据数据实际分布调整分箱：

方案A：直接用原始均值作为分组（最清晰） #

适合数据分组已明确的场景，每个均值对应独立分组：

dat2 <- df %>%
  mutate(
    mean_temp = factor(mean_temp),  # 将连续值转为分类变量
    total_count = cut_interval(total_count, n = 5)  # 合理缩减total_count的分箱数
  ) %>%
  group_by(mean_temp, total_count) %>%
  summarize(lwd_duration = mean(lwd_duration), .groups = "drop")  # 清除分组残留

方案B：手动指定分箱区间（更灵活） #

如果需要将相近温度合并为区间，可自定义分箱边界：

dat2 <- df %>%
  mutate(
    # 按温度范围手动分箱
    mean_temp = cut(mean_temp, breaks = c(17, 18, 19, 22), 
                    labels = c("[17,18)", "[18,19)", "[19,22]")),
    # 按病例数范围分箱
    total_count = cut(total_count, breaks = c(0, 20, 50, 100, 150),
                      labels = c("[0,20)", "[20,50)", "[50,100)", "[100,150]"))
  ) %>%
  group_by(mean_temp, total_count) %>%
  summarize(lwd_duration = mean(lwd_duration), .groups = "drop")

2. 优化绘图代码 #

添加单元格边界、调整文本大小和主题，确保每个组合的数值清晰展示：

ggplot(dat2, aes(mean_temp, total_count)) +
  geom_tile(aes(fill = lwd_duration), color = "white", linewidth = 0.5) +  # 白色边框区分单元格
  geom_text(aes(label = round(lwd_duration, 1)), size = 4) +  # 调整文本大小
  scale_fill_gradient(low = "#f7fbff", high = "#08306b") +  # 科研常用的蓝色渐变
  labs(
    x = "Mean Temperature",
    y = "Total Count",
    fill = "Mean Duration"
  ) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1),  # 旋转x轴标签避免重叠
    panel.grid = element_blank(),  # 去掉网格线，聚焦数据
    legend.position = "right"
  )

针对科研受众，推荐以下几种风格：

• 简约专业风：使用theme_minimal()或theme_bw()，搭配低饱和度的渐变配色（如蓝色、绿色系），避免鲜艳颜色，符合学术论文排版要求。
• 期刊定制风：如果目标是特定期刊，可使用ggthemes包的theme_pubclean()或theme_journal()，配色选择期刊官方推荐的色系。
• 信息聚焦风：保留单元格白色边框，去掉冗余网格线，调整文本大小确保数值可读性，让核心数据成为视觉焦点。

你提到的week与age组合的热力图属于二维交叉分组热力图，这类图广泛应用于科研场景，比如：

• 不同季节与地区的流行病发病率分布
• 不同药物剂量与给药时间的疗效对比
• 不同年龄组与疾病分型的治疗时长统计

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