FGSEA data table로 저장하기

 

fgsea file의 경우, list로 구성되어 있기 때문에 vector 구조로 변환 해야 함.

library(tidyr)

GESA_output_df <- as.data.frame(GESA_output)

GESA_output_df <- unnest(GESA_output_df, everything())

write.table(GESA_output_df, file = "이름.txt", row.names = F, quote = F, sep = "\t")

혹시 error가 생성될 경우 (S4 클래스를 벡터로 강제형변화하는 방법은 없습니다)

library(tidyr)
library(dplyr)

# gsea_results를 데이터프레임으로 변환하는 방법
GESA_output_df <- as_tibble(gsea_results)  # as.data.frame 대신 as_tibble 사용

# 데이터 구조를 펼치는 방법 (필요에 따라 조정)
GESA_output_df <- GESA_output_df %>%
  unnest(cols = everything())

# 파일로 저장
write.table(GESA_output_df, file = "HCT116_H.txt", row.names = FALSE, sep = "\t")