创建与第一个热图具有相同行顺序的第二个ggplot热图

install.packages("ggplot2")

library(ggplot2)

# 假设data是一个数据框，包含要绘制热图的数据
data <- ...

# 创建第一个热图
p1 <- ggplot(data, aes(x = ..., y = ..., fill = ...)) +
  geom_tile()

# 获取第一个热图的行顺序
row_order <- arrange(data, ...)  # 根据需要设置排序的变量

# 使用第一个热图的行顺序创建第二个热图
p2 <- ggplot(data, aes(x = ..., y = ..., fill = ...)) +
  geom_tile() +
  scale_x_discrete(limits = row_order$...)  # 根据需要设置行顺序的变量
  scale_y_discrete(limits = row_order$...)  # 根据需要设置列顺序的变量

# 根据需要进行其他自定义设置
p2 <- p2 +
  labs(title = "Second Heatmap",
       x = "X Label",
       y = "Y Label") +
  theme(plot.title = element_text(size = 14, face = "bold"),
        axis.title = element_text(size = 12),
        axis.text = element_text(size = 10),
        legend.title = element_blank(),
        legend.text = element_text(size = 10))

# 显示第二个热图
print(p2)