SummarizedExperiment(二)画小提琴图 https://www.jianshu.com/p/81f7d8ffe647 1234567891011121314151617181920212223242526272829303132333435f_rank_transformation_o <- function(lo){ lo <- unlist(lo) idx <- order(lo, decre 2022-02-16 R绘图奇技淫巧
SummarizedExperiment(一)计算TPM 1234567fpkmToTpm <- function(fpkm){ exp(log(fpkm) - log(sum(fpkm)) + log(1e6))}f_fpkmToTpm <- function(l_e){ apply(l_e,2,fpkmToTpm)}assay(sce, "TPM") <- f 2022-02-15 组织测序分析
通过conda安装纯净环境的TCGAbiolinks conda create -n tcga -c conda-forge r-base=4.1.2 conda activate tcga conda install -c conda-forge r-rvest=1.0.2 conda install -c conda-forge r-xml=3.99_0.8 conda install -c conda-forge 2022-02-15 超算基础
通过conda安装纯净环境的cellchat 先安装好纯净环境的Seurat:https://limour.top/1619.html jupyter内核一般安装在:~/.local/share/jupyter/kernels/XXXXXX文件夹内容示例:https://limour.lanzouo.com/iv1PP000ysyh conda install -c conda-forge 2022-02-13 超算基础
通过conda安装纯净环境的Seurat conda create -n seurat -c conda-forge r-base=4.1.2 conda activate seurat conda install -c conda-forge r-seurat=4.1.0 conda install -c conda-forge r-irkernel R IRkernel::installspec(name 2022-02-13 超算基础
cellchat (四) 细胞间通讯分析 信息流分析12345678910111213f_CC_IO_iN2pN <- function(cellchat, iN){ iN <- gsub('−','-', iN) unique(cellchat@DB$interaction[cellchat@DB$interaction$interaction_name_2 %i 2022-02-12 单细胞下游分析
scMetabolism巧绘热图 定义汇总函数123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172f_metaG2G <- function(metaG, matrixN=F, downSample=NULL) 2022-02-12 R绘图奇技淫巧
通过conda安装纯净环境的SCENIC https://scenic.aertslab.org/tutorials/ https://anaconda.org/conda-forge/r-base conda create -n scenic -c conda-forge r-reticulate conda activate scenic install.packages(“BiocManager”) BiocManager::in 2022-02-12 超算基础
一些常见图的美化 火山图 https://mp.weixin.qq.com/s/TvAor9voh\_kDnIxsC-U48w https://www.bioconductor.org/packages/release/bioc/vignettes/EnhancedVolcano/inst/doc/EnhancedVolcano.html 12345678library(EnhancedVolcano)data 2022-02-11 R绘图奇技淫巧
cellchat (三) 和弦图 第一步 定义绘图函数12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455f_CC_cmp_nV_df <- function(cellchat){ g1 <- netVisual_diffInteraction(cellc 2022-02-11 R绘图奇技淫巧