和上一篇处理线粒体是相关的，这个报错是因为有一个样品没有去除基因前面的名字就merge了，到降维的时候就报错。用下面的看看哪个样品有问题，修改或者直接去掉就好。
head(rownames(Covid_1), 10)
data_frames <- c("Covid_2", "Covid_3", "Covid_4", "Covid_5", "Covid_6", "Covid_7", "Covid_8", "Covid_9", "Covid_10",
"Covid_12", "Covid_14", "Covid_15", "Covid_16", "Covid_17", "Covid_18", "Covid_19", "Covid_20",
"Covid_21", "Covid_22", "Covid_23", "Covid_24", "Covid_25", "Covid_26", "Covid_28", "Covid_29", "Covid_30",
"Covid_31", "Covid_35", "Covid_36", "Covid_37", "Covid_38",
"Covid_44", "Covid_45", "Covid_46", "Covid_49",
"Covid_50", "Covid_51", "Covid_52", "Covid_53",
"Cov_H1", "Cov_H2", "Cov_H3", "Cov_H4",
"Covid_H7", "Covid_H8", "Covid_H9", "Covid_H10",
"Covid_H11", "Covid_H12", "Covid_H13", "Covid_H14", "Covid_H15", "Covid_H16", "Covid_H17",
"SCD_1", "SCD_2", "SCD_3", "SCD_4", "SCD_6", "SCD_7", "SCD_8", "SCD_9", "SCD_10",
"IPF_2", "IPF_3",
"COPD_1", "COPD_2", "COPD_3", "COPD_4", "COPD_5",
"emp_1", "emp_2", "emp_3",
"HC_1", "HC_2", "HC_3", "HC_4", "HC_5",
"HC_6", "HC_7", "HC_8", "HC_12", "HC_13", "HC_14")
# 使用循环遍历每个数据框并打印行名
for(df_name in data_frames) {
print(paste("Row names of", df_name, ":"))
print(head(rownames(get(df_name)), 10))
}
