SJ's blog

  #내가 input하고 싶은 데이터의 폴더 한꺼번에 로딩 #이미 경로 설정 완료한 이후(setwd) 폴더 이름만을 변경

 Idents(seurat_combined1) <- seurat_combined1$seurat_clusters # 결과 저장용 리스트 초기화 comparison_markers <- list() comparison_pathways <- list() comparison_GO <- list() # 0부터 19까지 모든 클러스터에 대해 반복 작업 수행 for (cluster_id in 0:19) {      cat("Processing: Cluster", cluster_id, "vs others (Clusters excluding", cluster_id, ")\n")      # 기준 클러스터 (예: Cluster 0)와 나머지 클러스터를 "others"로 합침   reference_cluster <- as.character(cluster_id)      # 나머지 클러스터들을 "others"로 설정 (현재 클러스터 제외)   seurat_combined1$combined_cluster <- ifelse(seurat_combined1$seurat_clusters == reference_cluster, reference_cluster, "others")      # Idents를 combined_cluster로 설정하여 "others"와 특정 클러스터를 기준으로 분석   Idents(seurat_combined1) <- "combined_cluster"      # ==========================   # 마커 분석   # ==========================   markers <- FindMarkers(seurat_combined1, ident.1 = reference_cluster, ident.2 = "ot...