R12

作者: rong酱 | 来源:发表于2022-01-23 21:38 被阅读0次
#! /path/to/Rscript

library(pheatmap)
library(getopt)

spec = matrix(c(
'name', 'n', 1,"character","output name:eg.Demo",
'seur','s',1,"character",'seuratdata:eg:pbmc.rds'), byrow=TRUE,ncol=5)

opt = getopt(spec)

if (!is.null(opt$outdir)||is.null(opt$seur)) {
  cat(paste(getopt(spec, usage = T), "\n"))
  q(status=1)
}

bk <- c(seq(-1,-0.01,by=0.01),seq(0,1,by=0.01))
mycolor <- c(colorRampPalette(colors=c("navy","white"))(length(bk)/2),colorRampPalette(color=c("white","firebrick3"))(length(bk)/2))
r <- read.table(opt$seur,sep="\t",row.names=1,header=T)
rdata <- as.data.frame(r)
rdata <- rdata[apply(r, 1, function(x) sd(x)!=0),]
dpi=500
png(opt$name,w=12*dpi,h=10*dpi,units = "px",res = dpi,type='cairo')
pheatmap(rdata,scale = "row", cellwidth = 20, cellheight = 2,cluster_cols = F,cluster_rows = T,treeheight_row=0, treeheight_col=0,show_rownames=T, color=mycolor,fontsize = 2,fontsize_col=12, breaks=bk,legend=T)
dev.off()

保持初心。

相关文章

  • R12

    保持初心。

  • ALIENWARE R12

    全能性代一新怪兽出没——ALIENWARE AURORA R12,最高选可NVIDIA® GeForce RTX ...

  • 计算机网路课后作业(1)

    Chapter 1 r11 The end-to-end delay is L/R1 + L/R2. r12 A ...

  • Firefox 无法打开Oracle EBS Form的问题

    如果用IE能够正常访问Oracle EBS R12,但用Firefox点Form后,无法打开Form,出现如下界面...

  • R12 税模块详解

    税收制度 税收制度在EBS中,更多是一个代指,用于和现实世界中的税收制度进行关联,不用过度关注,正常情况下,一个国...

  • 第3章 程序的机器级表示

    3.1 程序编码 程序计数器:%rip,给出下一条执行的指令。 整数寄存器: %rbx、%rbp和%r12~%r1...

  • Android CMake 学习

    一、创建新工程 打开c++支持 配置NDK路径 需要主要的是,Cmake需要r12版本以上的NDK支持 二、gra...

  • 蓝萤石系列

    925银蓝萤石吊坠,主石R12 精致图案,经典复古,彰显古典气质 925银蓝萤石耳环,主石R10 精致图案,经典复...

  • mac os 登录ebs r12

    目前oracle ebs 的常用版本都已经认证了java 8,以及mac os。但是由于服务器端需要应用patch...

  • ARM Corte-M4函数调整自动压栈顺序

    使用STM32F407做测试得到,压栈顺序如下: PSR,PC,LR,R12,R3,R2,R1,R0,FPU下还有...

网友评论

      本文标题:R12

      本文链接:https://www.haomeiwen.com/subject/bhlvhrtx.html