immune_hm
写在前面
【这图怎么画】系列的图都来自VIP群里同学的提问。推文只是对图片的复现，不代表作者对图片展现形式的认同。欢迎同学们在群里分析有意思的图片。
本期图片
❝Chen, Hualin et al. “Integrated Analysis Revealed an Inflammatory Cancer-Associated Fibroblast-Based Subtypes with Promising Implications in Predicting the Prognosis and Immunotherapeutic Response of Bladder Cancer Patients.” International journal of molecular sciences vol. 23,24 15970. 15 Dec. 2022
❞
方法
图片显示不同亚型对免疫治疗反应预测结果。前期数据处理较繁琐，这里就直接从绘图开始。
复现结果
result
绘图
rm(list = ls()) library(ComplexHeatmap) # submap heatmap dt <- matrix(runif(3*4*3,0,1), nrow = 9,byrow = T, dimnames = list(c("C1","C2","C3", " C1"," C2"," C3", " C1"," C2"," C3"), c("CTAL4-noR","CTLA4-R","PD1-noR","PD1-R"))) hm <- pheatmap(dt, border_color = "white", number_format = "%.3f", cellwidth = 30, cellheight = 30, cluster_rows = F,cluster_cols = F, display_numbers = T, number_color = "black", fontsize_number = 9, name = "Statitic", annotation_row = data.frame(pvalue=c("Nominal p value","Nominal p value","Nominal p value", "Bonferroni adjusted","Bonferroni adjusted","Bonferroni adjusted", "FDR adjusted","FDR adjusted","FDR adjusted"), row.names = rownames(dt)), annotation_colors = list(pvalue=c("Nominal p value"="black","Bonferroni adjusted"="grey50","FDR adjusted" = "grey80"))) pdf("predicted response to immunotherapy.pdf",width = 5,height = 8) draw(hm, heatmap_legend_side = "left",annotation_legend_side = "right") invisible(dev.off())
result
往期内容
- CNS图表复现|生信分析|R绘图 资源分享&讨论群！
- 这图怎么画| 有点复杂的散点图
- 这图怎么画 | 相关分析棒棒糖图
- 组学生信| Front Immunol |基于血清蛋白质组早期诊断标志筛选的简单套路
- (免费教程+代码领取)|跟着Cell学作图系列合集
- Q&A | 如何在论文中画出漂亮的插图？
- 跟着 Cell 学作图 | 桑葚图(ggalluvial)
- R实战 | Lasso回归模型建立及变量筛选
- 跟着 NC 学作图 | 互作网络图进阶(蛋白+富集通路)(Cytoscape)
- R实战 | 给聚类加个圈圈(ggunchull)
- R实战 | NGS数据时间序列分析(maSigPro)
- 跟着 Cell 学作图 | 韦恩图(ggVennDiagram)
