【科研绘图系列】R语言绘制多种类型图形（heatmap boxplot linechart）

禁止商业或二改转载，仅供自学使用，侵权必究，如需截取部分内容请后台联系作者!

介绍

这幅图的故事从“日本儿童 RSV 肺炎”开始。RSV（呼吸道合胞病毒）是冬春时节把婴儿送进医院的头号元凶，病毒喜冷怕湿，流行高峰年年移动，但移动得有没有规律、是否随气候与人口漂移，一直缺少全国尺度的精细证据。作者把 2013–2024 年 47 个都道府县的每周病例、湿度、温度、人口、岛屿归属五类数据拼成一张“大拼图”，用四幅小图讲出四个层次的故事，合成一张 A3 大小的科研海报级主图，命名为图 A 是一张“热力年历”。纵轴按纬度把 47 个县排成一串，横轴是 2013–2024 年的 52 周，颜色深浅代表“相对病例强度”——把每个县自己的历史峰值当 1，超过 1 的染成亮黄，低于 0.3 的几乎看不见。一眼看去，RSV 像一条“发光蛇”：每年从第 40 周左右（深秋）在北海道亮起，随后 6–8 周滑到本州北端，再 4 周滑到关西，最后在第 4–6 周抵达九州—冲绳，完成一次南下的“接力跑”。2016 年那条红色箭头标记的是 2016/17 季节高峰整体提前 3 周的异常事件，被后续文献归因于当年夏季异常高温导致病毒提前适应。热力图左右各留一条白边，暗示“数据之外还有海洋”，也让读者视线自然向右侧的统计摘要移动。

图 B 与图 C 是两条“体检曲线”。B 把 2013–2019 每个流行季抽象成一个“重心周”——把 52 周当作天平，病例数当砝码，算出的平衡点越早说明流行季越早结束。箱线图显示，北海道重心最稳（平均第 11 周），九州—四国最晚（第 17 周），冲绳因终年温暖几乎无霜，RSV 全年散发，被单独剔除。C 换一把尺子，用“流行谷”代表夏季病例最低值除以各县人口，衡量“淡季病毒是否真正消失”。谷值越低，说明淡季越干净；谷值抬升，提示病毒在夏季也能找到易感婴儿。20