如何调用R DataFrame表头列并生成genes列以实现DEGs火山图标注？

先确认数据结构 #

先运行以下代码查看数据结构，明确基因名是作为行名还是列名存在：

head(df)
str(df)

两种常见场景的处理方法 #

场景1：基因名是数据框的行名 #

直接将行名转换为名为genes的新列：

# 基础R写法
df$genes <- rownames(df)

# 若使用dplyr包
library(dplyr)
df <- df %>% mutate(genes = rownames(.))

场景2：基因名被误设为数据框的列名 #

这种情况需要先转置数据，再重新整理列结构：

# 转置数据并转回数据框格式
df_t <- as.data.frame(t(df))
# 将原列名（基因名）转为`genes`列
df_t <- tibble::rownames_to_column(df_t, var = "genes")
# 根据你的实际指标重命名列（示例为logFC、校正后p值，可按需修改）
colnames(df_t) <- c("genes", "logFC", "p_val_adj")
# 替换为整理好的数据框
df <- df_t

运行基因标注代码 #

注意将原代码中的df$gene改为df$genes（对应新列名）：

df$delabel <- ifelse(df$genes %in% head(df[order(df$p_val_adj), "genes"], 30), 
                     df$genes, 
                     NA)

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