# #——包括= FALSE --------------------------------------------------------- knitr: opts_chunk美元集(崩溃= TRUE,发表评论 = "#>" ) ## ---- 消息= FALSE,警告= FALSE ---------------------------------------- 库(VectraPolarisData) spe_lung < - HumanLungCancerV3 spe_ovarian < - HumanOvarianCancerVP () () ## ---- eval = FALSE ------------------------------------------------------------ # 库(ExperimentHub) #呃< - ExperimentHub() #实例初始化中心# q < -查询(呃,“VectraPolarisData”)# # id检索“VectraPolarisData”记录< - q ah_id美元[1]#指定数据集id加载# spe < -呃[[id]] #加载指定数据集# #——回声= FALSE -------------------------------------------------------------- # 图像从Righelli et al . 2021 < url -“https://lmweber.org/OSTA-book/images/SPE.png " ## ---- 消息= FALSE --------------------------------------------------------- 库(dplyr) # #化验槽assays_slot < -化验(spe_ovarian intensities_df < -)Assays_slot $ intensities_rownames (intensities_df) <- paste0("total_"， rownames(intensities_df)) nucleus_intensities_df<- Assays_slot $ nucleus_intensities_df) rownames(nucleus_intensities_df) <- paste0("nucleus_"， rownames(nucleus_intensities_df))膜e_intensities_df<- Assays_slot $膜e_intensinames(膜e_intensities_df) <- paste0("膜_"，rownames(膜强度_df)) # colData and spatialData colData_df <- colData(spe_ovarian) spatialCoords_df <- spatialCoords(spe_ovarian) #临床数据patient_level_df <-元数据(spe_ovarian)$clinical_data cell_level_df <- as.data.frame(cbind(colData_df, spatialCoords_df, t(intensities_df)， t(nucleus_intensities_df)， t(膜强度_df))) ovarian_df <- full_join(patient_level_df, cell_level_df，=“sample_id ") ## ----------------------------------------------------------------------------- sessionInfo ()