各位老师好 这是我前期的数据处理
tcga$ICD-O-3
<- factor(tcga$ICD-O-3
,labels = c("Chondrosarcoma, NOS"
,"Juxtacortical chondrosarcoma"
,"Chondroblastoma, malignant"
,"Myxoid chondrosarcoma"
,"Mesenchymal chondrosarcoma"
,"Clear cell chondrosarcoma"
,"Dedifferentiated chondrosarcoma"))
tcga$Grade <- factor(tcga$Grade
,labels = c("Unknown/blanks"
,"Well differentiated; Grade I"
,"Moderately differentiated; Grade II"
,"Poorly differentiated; Grade III"
,"Undifferentiated; anaplastic; Grade IV"))
tcga$Combined Summary Stage
<- factor(tcga$Combined Summary Stage
,labels = c("Blanks Unknown/unstaged/unspecified/DCO"
,"Distant site(s)/node(s) involved"
,"Localized only"
,"Regional by direct extension only"))
tcga$stage-N
<- factor(tcga$stage-N
,labels = c("Blanks","N0","N1","Nx","88"))
tcga$RX Summ--Surg Prim Site
<- factor(tcga$RX Summ--Surg Prim Site
,labels = c("None"
,"Tumor destruction"
,"Resection,pathologic specimen"
,"Surgery, NOS"
,"Special sites"
,"Unknown surgery"))
tcga$RX Summ--Scope Reg LN Sur
<- factor(tcga$RX Summ--Scope Reg LN Sur
,labels = c("None"
,"Biopsy or aspiration of reg LN only NOS"
,"Sentinel nodes removed only"
,"Nodes removed unknown"
,"1 to 3 nodes removed"
,"4 or more nodes removed"
,"Sentinel nodes biopsy and more"
,"Unknown or not applicable"
,"Blanks"))
tcga$RX Summ--Surg/Rad Seq
<- factor(tcga$RX Summ--Surg/Rad Seq
,labels = c("No radiation and/or cancer-directed surgery"
,"Radiation before surgery"
,"Radiation after surgery"
,"Radiation both before and after surgery"
,"Intraoperative radiation"
,"Intraoperative radiation with other"
,"Surgery both before and after radiation"
,"Sequence unknown"))
tcga$Reason no cancer-directed surgery
<- factor(tcga$Reason no cancer-directed surgery
,labels = c("Surgery performed"
,"Surgery not performed"
,"autopsy only"
,"Patients died before recommended surgery"
,"Unknown reason for no surgery"
,"Refused"
,"Recommended,unknown if done"
,"Unknown if surgery performed"))
tcga$Chemotherapy recode
<- factor(tcga$Chemotherapy recode
,labels = c("No/Unknown","Yes"))
tcga$Tumor Size Summary2
<- factor(tcga$Tumor Size Summary2
,labels = c("2mm-988mm"
,"98.9cm or larger"
,"Size not stated"
,"Blanks"))
tcga$Regional nodes positive
<- factor(tcga$Regional nodes positive
,labels = c("All negative"
,"one nodes positive"
,"two nodes positive"
,"four nodes positive"
,"five nodes positive"
,"seven nodes positive"
,"positive aspiration nodes"
,"positive nodes,number not specified"
,"No nodes examined"
,"Unknown/NA/Not stated"))
tcga$First malignant primary indicator
<- factor(tcga$First malignant primary indicator
,labels = c("No","Yes"))
tcga$SEER other cause of death classification
<- factor(tcga$SEER other cause of death classification
,labels = c("Alive or dead due to cancer"
,"Dead(attribute to causes other than this cancer dx"
,"Dead(missing or unknown"))
tcga$SEER cause-specific death classification
<- factor(tcga$SEER cause-specific death classification
,labels = c("Alive or dead due to cancer"
,"Dead(attribute to causes other than this cancer dx"
,"Dead(missing or unknown"))
tcga$COD to site recode
<- factor(tcga$COD to site recode
,labels = c("Accidents and Adverse Effects"
,"Acute Lymphocytic Leukemia"
,"Acute Myeloid Leukemia"
,"Aleukemic, Subleukemic and NOS"
,"Alive"
,"Alzheimers (ICD-9 and 10 only)"
,"Anus, Anal Canal and Anorectum"
,"Aortic Aneurysm and Dissection"
,"Atherosclerosi"
,"Bones and Joints"
,"Brain and Other Nervous System"
,"Breast"
,"Cerebrovascular Diseases"
,"Chronic Liver Disease and Cirrhosis"
,"Chronic Obstructive Pulmonary Disease and Allied Cond"
,"Colon excluding Rectum"
,"Congenital Anomalies"
,"Corpus Uteri"
,"Diabetes Mellitus"
,"Diseases of Heart"
,"Eye and Orbit"
,"Homicide and Legal Intervention"
,"Hypertension without Heart Disease"
,"In situ, benign or unknown behavior neoplasm"
,"Intrahepatic Bile Duct"
,"Kidney and Renal Pelvis"
,"Larynx"
,"Liver"
,"Lung and Bronchus"
,"Melanoma of the Skin"
,"Miscellaneous Malignant Cancer"
,"Myeloma"
,"Nasopharynx"
,"Nephritis, Nephrotic Syndrome and Nephrosis"
,"Non-Hodgkin Lymphoma"
,"Non-Melanoma Skin"
,"Nose, Nasal Cavity and Middle Ear"
,"Other Cause of Death"
,"Other Digestive Organs"
,"Other Diseases of Arteries, Arterioles, Capillaries"
,"Other Endocrine including Thymus"
,"Other Infectious and Parasitic Diseases including HIV"
,"Other Oral Cavity and Pharynx"
,"Ovary"
,"Pancreas"
,"Pleura"
,"Pneumonia and Influenza"
,"Prostate"
,"Rectum and Rectosigmoid Junction"
,"Retroperitoneum"
,"Salivary Gland"
,"Septicemia"
,"Small Intestine"
,"Soft Tissue including Heart"
,"State DC not available or state DC available but no COD"
,"Stomach"
,"Stomach and Duodenal Ulcers"
,"Suicide and Self-Inflicted Injury"
,"Symptoms, Signs and Ill-Defined Conditions"
,"Thyroid"
,"Tongue"
,"Trachea, Mediastinum and Other Respiratory Organs"
,"Ureter"
,"Urinary Bladder"
,"Uterus, NOS"))
tcga$SEER Combined Mets at DX-lung
<- factor(tcga$SEER Combined Mets at DX-lung
,labels = c("None"
,"Yes,distant lymph nodes metastases"
,"NA"
,"Uknown"
,"Blanks"))
tcga$race <- factor(tcga$race,labels = c("White","Black","American indian","Asain or pacific islander","Uknown"))
tcga$Site recode - rare tumors
<- factor(tcga$Site recode - rare tumors
,labels = c("Soft tissue sarcoma of head and neck"
,"Soft tissue sarcoma of viscera"
,"Soft tissue sarcoma of retroperitoneum and peritoneum"
,"Soft tissue sarcoma of pelvis"
,"Soft tissue sarcoma of paraorbit"
,"Soft tissue sarcoma of brain and other parts of the nervous system"
,"Other soft tissue sarcoma"
,"Soft tissue sarcoma of limbs"
,"Soft tissue sarcoma of superficial trunk"
,"Soft tissue sarcoma of mediastinum"
,"Soft tissue sarcoma of heart"
,"Soft tissue sarcoma of uterus"
,"Soft tissue sarcomas of other genitourinary tract"
,"Chondrogenic sarcoma"
,"Not Classified"))
tcga$Combined Summary Stage
<- factor(tcga$Combined Summary Stage
,labels = c("Blanks/Uknown/Unstaged/Unspecified"
,"Distant site(s)/node(s) involved"
,"Localized only"
,"Regional by direct extension only"))
tcga$SEER historic stage A
<- factor(tcga$SEER historic stage A
,labels = c("Localized"
,"Regional"
,"Distant"
,"Unstaged"
,"Blanks"))
tcga$EOD Mets
<- factor(tcga$EOD Mets
,labels = c("0","10","50","70","99","Blanks"))
tcga$SEER registry
<- factor(tcga$SEER registry
,labels = c("Alaska Natives"
,"California"
,"Connecticut"
,"Detroit (Metropolitan)"
,"Georgia"
,"Hawaii"
,"Iowa"
,"Kentucky"
,"Louisiana"
,"New Jersey"
,"New Mexico"
,"Utah"
,"Seattle (Puget Sound)"))
希望进行列线图的绘制,但在运行datadist时报错
ddist <- datadist(tcga)
Error in datadist(tcga) : fewer than 2 non-missing observations for ...11
这是报错内容 我读不懂
链接:https://pan.baidu.com/s/1aBpL5Q2mxdJR6-PEZbqngw
提取码:qq36
--来自百度网盘超级会员V5的分享
这里面有数据源
恳请各位老师指点
感谢感谢~~卡住很久了55555555555