在R中绘制热图：保留x轴顺序并映射y轴到参考序列

没问题！我来帮你搞定这个热图的轴排序需求，刚好能同时满足你两个核心要求：保留from.aa的原始顺序作为x轴，让y轴to.aa严格按照你定义的参考序列排列。

核心思路 #

ggplot默认会把字符型的轴变量按字母顺序排序，所以我们需要把from.aa和to.aa转成因子（factor），并手动指定levels参数来强制使用我们想要的顺序。

完整代码实现 #

首先先确认你的参考序列定义（和你给出的一致）：

Y_aa <- "ILVFMCAGPTSYWQNHEDKR*X"
yaxis_aa <- strsplit(Y_aa, "")[[1]]

然后处理数据集的因子转换，这是控制轴顺序的关键：

# 处理x轴：保留from.aa在数据集中的原始出现顺序
c_melt$from.aa <- factor(c_melt$from.aa, levels = unique(c_melt$from.aa))

# 处理y轴：按照参考序列yaxis_aa的顺序排列to.aa
c_melt$to.aa <- factor(c_melt$to.aa, levels = yaxis_aa)

最后绘制热图，还可以加一些优化让图更美观：

library(ggplot2)

ggplot(data = c_melt, aes(x = from.aa, y = to.aa, fill = value)) +
  geom_tile(color = "white") +  # 加白色边框区分每个热图块
  scale_fill_continuous(name = "Total Frequency") +  # 自定义填充色的图例标题
  labs(x = "From Amino Acid", y = "To Amino Acid") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))  # 旋转x轴标签避免重叠

关键细节解释 #

• x轴顺序：unique(c_melt$from.aa)会提取from.aa在数据中第一次出现的顺序，以此作为因子的levels，这样ggplot就会严格按照数据里的原始顺序渲染x轴。
• y轴顺序：直接用你定义的yaxis_aa作为to.aa因子的levels，就能让y轴完全匹配你的参考序列。如果数据里有to.aa的值不在参考序列中，这些值会默认排在轴的最末尾（如果想隐藏可以加drop=TRUE，不过你的参考序列已经包含了所有常见氨基酸包括*和X，应该不会有问题）。
• 额外加的color="white"是为了让每个热图块之间有明显的分隔，提升可读性；旋转x轴标签则是避免氨基酸缩写重叠。

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