如何用R的ggplot绘制值对应颜色的热图（0为白色）

首先，ggplot2绘制热图需要长格式数据，你当前的数据是宽格式，第一步要先转换格式，同时把行名（渔具类型）转为单独的列：

# 把行名转为列，再转换为长格式
df_long <- df %>%
  rownames_to_column(var = "Gear") %>%
  pivot_longer(cols = c(KP, PF), names_to = "Metric", values_to = "Value")

接下来用geom_tile绘制热图，注意几个关键参数：

• x：选分类变量（这里是Metric，也就是KP、PF）
• y：选另一组分类变量（这里是Gear，也就是行名对应的渔具类型）
• fill：用数值列（Value）控制填充色，不要用color，color是设置tile的边框颜色

然后设置颜色渐变，确保0对应白色，数值越大颜色越深：

ggplot(df_long, aes(x = Metric, y = Gear, fill = Value)) +
  geom_tile(color = "white") + # white是tile之间的边框色，和示例一致
  # 设置颜色渐变：0为白色，最大值用深灰色（可换成你想要的深色）
  scale_fill_gradient(low = "white", high = "#333333", limits = c(0, NA)) +
  # 调整坐标轴和标题，贴近示例
  labs(x = "", y = "", fill = "Score") +
  theme_minimal() +
  theme(panel.grid = element_blank()) # 去掉网格线

代码说明： #

• rownames_to_column：把原数据的行名提取成独立列，方便后续作为y轴分类
• pivot_longer：将宽格式数据转为长格式，这是ggplot2可视化的标准数据格式
• scale_fill_gradient：自定义颜色渐变，limits = c(0, NA)强制让0对应最低色值（白色），即使数据里没有0也会保留这个基准
• theme(panel.grid = element_blank())：去掉默认网格线，让热图更整洁

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