# # - - - - -设置,包括= FALSE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - knitr:: opts_chunk设置美元(崩溃= TRUE, = " # > "发表评论,警告= FALSE,错误= FALSE, eval = FALSE) # #——图书馆,消息= FALSE,警告= FALSE,错误= FALSE - - - - - - - - - - - - - - - - - - - - - - - - #库(BiocStyle) #库(HPAanalyze) #库(dplyr) # # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # CCNB1xml <——hpaXmlGet (ENSG00000134057) # # CCNB1_ab < - hpaXmlAntibody (CCNB1xml) # CCNB1_ab # # > #宠物猫:4 x 4 # # > id releaseDate releaseVersion RRID # # > # # > 1 CAB000115 2006-03-13 1.2 # # > 2 CAB003804 2006-10-30 2 AB_562272 # # > 3 HPA030741 2013-12-05 12 AB_2673586 # # > 4 HPA061448 2016-12-04 16 AB_2684522 # # CCNB1_expr < - hpaXmlTissueExpr (CCNB1xml) # str (CCNB1_expr[[1]]) # # >类“tbl_df”、“资源”和“data.frame”: 331奥林匹克广播服务公司。18个变量:# # > $ patientId:空空的“1653”“1721”“1725”“598”……# # >年龄:美元对应“53”“60”“57”“7”…# # > $性:空空的“男”“女”“男性”“男性”……# # > $染色:装备缺缺缺缺……# # > $强度:装备缺缺缺缺……# # >美元数量:装备缺缺缺缺……# # >地点:美元对应缺缺缺缺……# # > $ imageUrl:空空的“http://v18.proteinatlas.org/images/115/2043_B_4_5.jpg”“http://v18.proteinatlas.org/images/115/2043_B_6_5.jpg”“http://v18.proteinatlas.org/images/115/2043_B_5_5.jpg”“http://v18.proteinatlas.org/images/115/2043_A_2_2.jpg”……# # > $ snomedCode1:空空的“m - 00100”“m - 00100 m - 00100”“m - 00100”…… # #> $ snomedCode2 : chr "T-93000" "T-93000" "T-93000" "T-66000" ... # #> $ snomedCode3 : chr NA NA NA NA ... # #> $ snomedCode4 : chr NA NA NA NA ... # #> $ snomedCode5 : chr NA NA NA NA ... # #> $ tissueDescription1: chr "Normal tissue, NOS" "Normal tissue, NOS" "Normal tissue, NOS" "Normal tissue, NOS" ... # #> $ tissueDescription2: chr "Adrenal gland" "Adrenal gland" "Adrenal gland" "Appendix" ... # #> $ tissueDescription3: chr NA NA NA NA ... # #> $ tissueDescription4: chr NA NA NA NA ... # #> $ tissueDescription5: chr NA NA NA NA ... ## ----eval=FALSE--------------------------------------------------------------- # dir.create("img") # for (i in 1:nrow(CCNB1_expr[[1]])) { # download.file(CCNB1_expr[[1]]$imageUrl[i], # destfile = paste0("img/", CCNB1_ab$id[1], "_", # CCNB1_expr[[1]]$patientId[i], "_", # CCNB1_expr[[1]]$tissueDescription2[i], # ".jpg"), # mode = "wb") # }