data<- read.table("/Users/jihyun/Desktop/PRS_histo/summarize/SampleSummary.txt", comment="", header=TRUE)

data
##    TumoreType Samples SampleWithPRS
## 1        BLCA     391           282
## 2        BRCA     942           692
## 3        CESC     183           112
## 4        CHOL      34            27
## 5        ESCA     183           114
## 6         GBM     281           233
## 7        HNSC     497           385
## 8        KICH      64            53
## 9        KIRC     425           347
## 10       KIRP     282           186
## 11       LIHC     362           147
## 12       LUAD     530           409
## 13       LUSC     174           146
## 14       PAAD     121            90
## 15       PRAD     487           383
## 16       SARC     240             0
## 17       SKCM     279           265
## 18       TGCT     147           118
## 19       UCEC     229           158
## 20        UCS      54            40