{"id":28860,"date":"2024-02-19T17:54:53","date_gmt":"2024-02-19T09:54:53","guid":{"rendered":"http:\/\/www.biocloudservice.com\/wordpress\/?p=28860"},"modified":"2024-02-19T17:54:54","modified_gmt":"2024-02-19T09:54:54","slug":"%e7%bb%98%e5%88%b6%e5%9f%ba%e5%9b%a0%e5%b7%ae%e5%bc%82%e8%a1%a8%e8%be%be%e6%b3%a1%e6%b3%a1%e5%9b%be","status":"publish","type":"post","link":"http:\/\/www.biocloudservice.com\/wordpress\/?p=28860","title":{"rendered":"\u7ed8\u5236\u57fa\u56e0\u5dee\u5f02\u8868\u8fbe\u6ce1\u6ce1\u56fe"},"content":{"rendered":"

\u4eca\u5929\u5c0f\u679c\u7ed8\u5236\u4e00\u4e0b\u57fa\u56e0\u5728\u4e0d\u540c\u7ec4\u7ec7\u4e2d\u5dee\u5f02\u8868\u8fbe\u7684\u6ce1\u6ce1\u56fe\uff0c\u4ee3\u7801\u5982\u4e0b\uff1a<\/p>\n

    \n
  1. \u5b89\u88c5\u6240\u9700\u8981\u7684R\u5305<\/li>\n<\/ol>\n

    install.packages(\u201cggplot2\u201d)<\/p>\n

    install.packages(\u201ctidyverse\u201d)<\/p>\n

    BiocManager::install(\u201cComplexHeatmap\u201d)<\/p>\n

      \n
    1. \u5bfc\u5165\u9700\u8981\u7684R\u5305<\/li>\n<\/ol>\n

      library(ggplot2)<\/p>\n

      library(tidyverse)<\/p>\n

      library(ComplexHeatmap)<\/p>\n

      3\u8bfb\u53d6\u6570\u636e<\/p>\n

      exprTab<-read.table(\u201cexpr.txt\u201d,header=T)<\/p>\n

      \"Dingtalk_20230201164736\"<\/p>\n

      4.\u4ee3\u7801\u5c55\u793a<\/p>\n

      # \u4ea7\u751f\u6ce1\u6ce1\u56fe<\/p>\n

      orange <- “#E45737”<\/p>\n

      green <- “#6F8B35”<\/p>\n

      blue <- “#4577FF”<\/p>\n

      red <- “#C2151A”<\/p>\n

      #\u786e\u5b9a\u57fa\u56e0\u56e0\u5b50\u987a\u5e8f<\/p>\n

      exprTab$gene <- factor(exprTab$gene,<\/p>\n

      levels=rev(c(“CDKN1A”,”HSPA5″,”TTC35″,”SLC7A11″,”NFE2L2″,”MT1G”,”HSPB1″,”GPX4″,”FANCD2″,”CISD1″, “FDFT1″,”SLC1A5″,”SAT1″,”TFRC”,”RPL8″,”NCOA4″,”LPCAT3″,”GLS2″,”DPP4″,”CS”,”CARS”,”ATP5G3″,”ALOX15″,”ACSL4″)))<\/p>\n

      my_palette <- colorRampPalette(c(green,”white”,orange), alpha=TRUE)(n=128)<\/p>\n

      p <- ggplot(exprTab, aes(x=tumor,y=gene)) +<\/p>\n

      geom_point(aes(size=-log10(FDR),color=log2fc)) +<\/p>\n

      scale_color_gradientn(‘log2(FC)’,<\/p>\n

      colors=my_palette) +<\/p>\n

      theme_bw() +<\/p>\n

      theme(#panel.grid.minor = element_blank(),<\/p>\n

      #panel.grid.major = element_blank(),<\/p>\n

      axis.text.x = element_text(angle = 45, size = 12, hjust = 0.3, vjust = 0.5, color = “black”),<\/p>\n

      axis.text.y = element_text(size = 12, color = rep(c(red,blue),c(14,10))),<\/p>\n

      axis.title = element_blank(),<\/p>\n

      panel.border = element_rect(size = 0.7, linetype = “solid”, colour = “black”),<\/p>\n

      plot.margin = unit(c(0,0,1,1), “lines”))<\/p>\n

      ggsave( p,file=”Bubbleplot.pdf”, width = 8, height = 8)<\/p>\n

      \"Dingtalk_20230202185826\"<\/p>\n

      \u6ce1\u6ce1\u56fe\u6700\u7ec8\u5b8c\u6574\u7684\u5c55\u73b0\u51fa\u6765\u4e86\uff0c\u6709\u9700\u8981\u7684\u5c0f\u4f19\u4f34\u53ef\u4ee5\u501f\u9274\u5b66\u4e60\u5965\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"

      \u4eca\u5929\u5c0f\u679c\u7ed8\u5236\u4e00\u4e0b\u57fa\u56e0\u5728\u4e0d\u540c\u7ec4\u7ec7\u4e2d\u5dee\u5f02\u8868\u8fbe\u7684\u6ce1\u6ce1\u56fe\uff0c\u4ee3\u7801\u5982\u4e0b\uff1a \u5b89\u88c5\u6240\u9700\u8981\u7684R\u5305 install.package […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":""},"categories":[1],"tags":[],"jetpack_featured_media_url":"","_links":{"self":[{"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/28860"}],"collection":[{"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=28860"}],"version-history":[{"count":1,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/28860\/revisions"}],"predecessor-version":[{"id":28863,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/28860\/revisions\/28863"}],"wp:attachment":[{"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=28860"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=28860"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.biocloudservice.com\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=28860"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}