# 格里森评分数据处理

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12

    f_TCGA_gleason_grade <- function(primary_gleason_grade, secondary_gleason_grade){
        primary_gleason_grade <- as.numeric(unlist(data.frame(strsplit(primary_gleason_grade, ' '))[2,]))
        secondary_gleason_grade <- as.numeric(unlist(data.frame(strsplit(secondary_gleason_grade, ' '))[2,]))
        primary_gleason_grade + secondary_gleason_grade
    }
    clinical <- readRDS('../../../zl_liu_new/Bulk/tcga/PRAD/clinical.rds')
    tmp <- clinical[c('psa', 'age_at_initial_pathologic_diagnosis', 'ajcc_pathologic_t', 'ajcc_pathologic_n', 'ajcc_clinical_m')]
    names(tmp) <- c('PSA', 'Age', 'T', 'N', 'M')
    tmp$GS <- f_TCGA_gleason_grade(clinical$primary_gleason_grade, clinical$secondary_gleason_grade)
    tmp$T <- factor(tmp$T, ordered = T)
    tmp$N <- factor(tmp$N, ordered = T)
    tmp$M <- factor(tmp$M, ordered = T)

数据库
格里森评分数据处理
https://occdn.limour.top/2206.html
Author
Limour
Posted on
August 10, 2022
Licensed under
LASSO回归：使用L1正则化控制过拟合 Previous
ggcorrplot绘制相关性热图 Next

#### Search

Keyword