如何从R中获得整齐的P值的excel输出

# 安装并加载必要的包
if (!require("tidyverse")) install.packages("tidyverse")
if (!require("openxlsx")) install.packages("openxlsx")

library(tidyverse)
library(openxlsx)

# 假设你已经有了一个包含P值的数据框df
# df <- ...

# 使用tidyverse整理数据，确保P值整齐
tidied_df <- df %>%
  mutate(P_value = as.numeric(P_value)) %>% # 确保P值是数值类型
  arrange(P_value) %>% # 按P值排序
  mutate(Row = row_number()) # 添加行号

# 将整理后的数据写入Excel文件
write.xlsx(tidy_df, "P_values.xlsx", row.names = FALSE)

# 如果你需要将文件保存到特定的目录，可以指定完整路径
# write.xlsx(tidy_df, "C:/path/to/your/directory/P_values.xlsx", row.names = FALSE)