R绘制组间差异热图，横纵分别为分组和理化性质

在R语言中，绘制组间差异的热图通常用于可视化分类变量（如分组）与数值型变量（如理化性质）之间的关系，尤其当数据分布有趋势或者想要看出不同组之间变化模式时非常有用。你可以使用`ggplot2`包中的`geom_tile()`函数，配合`scale_fill_gradient2()`或`scale_color_gradient2()`调整颜色映射。下面是一个简单的步骤：

1. 首先，确保已经安装了`ggplot2`、`reshape2`（如果数据不是长格式，需要转换）和`viridis`或其它你喜欢的颜色方案包。

install.packages(c("ggplot2", "reshape2", "viridis"))
library(ggplot2)
library(reshape2)

2. 准备数据，将理化性质的数据框按照分组列进行整理，通常是把数据变成宽格式（每个观测值一行）。

# 假设df是包含分组和理化性质的数据框
if ("df" %in% names(globalenv())) {
  df_wide <- melt(df, id.vars = "group") # 如果df已经是宽格式，则无需这一步
} else {
  df_wide <- data.frame(group = unique(df$group), value = NA) # 填充一个空白的宽格式数据
  for (i in levels(df$group)) {
    group_data <- df[df$group == i, -c(1)] # 提取某组的理化性质数据
    df_wide <- rbind(df_wide, data.frame(group = i, value = group_data))
  }
}

3. 现在可以创建热图了。这里我们使用`ggplot()`函数，并设置x轴和y轴的标签。

p <- ggplot(df_wide, aes(x = variable, y = factor(group), fill = value)) +
  geom_tile() +
  theme_minimal() +
  scale_fill_viridis(option = "D", labels = function(value) round(value, 2)) + # 调整颜色映射和标签
  labs(title = "组间理化性质差异热图",
       x = "理化性质", y = "组别")

p