可以试下ComplexHeatmap package在这里面可以修改
支持各种heatmap编辑方式，包括字体，标注，分类，多图比较，甚至可以交互选取部分样本进行比较。
YouTube 使用教程：
Plotting in R for Biologists -- Lesson 8: Heatmapswww.youtube.com/watch?v=gu9pTq9U2iU&t=211s
.
打开R语言,输入命令删除其他一切数据:rm(list=ls(all=TRUE)),并且输入命令CTRL和L,删除不必要的显示的信息。
2.
加法运算 加法运算的主体可以是数字,也可以是复杂的向量。 例如,输入2+5,可以马上得到结果!
3.
加法运算: 同加法运算很相似、如:要得到7-2的结果,直接在控制台中输入 7-2 回车可以得到结果5
4.
乘法运算 在R语言中,乘号用"*"代替。如计算2乘以4的结果在控制台中输入 2*4 回车后得到8
r语言更好。R语言自上个世纪90年代起步，发展历史较长，所以对缺失值的处理机制比较完善。
R是用于统计分析、绘图的语言和操作环境。R是属于GNU系统的一个自由、免费、源代码开放的软件，它是一个用于统计计算和统计制图的优秀工具。
LagrangePolynomial <- function(x,y) {len = length(x)
if(len != length(y))
stop("length not equal!")
if(len < 2)
stop("dim size must more than 1")
#pretreat data abd alloc memery
xx <- paste("(","a -",x,")")
m <- c(rep(0,len))
#combin express
for(i in 1:len) {
td <- 1
tm <- "1"
for(j in 1:len) {
if(i != j) {
td <- td*(x[i] - x[j])
tm <- paste(tm,"*",xx[j])
}
}
tm <- paste(tm,"/",td)
m[i]<-tm #m[i] <- parse(text=tm)
}
#combin the exrpession
m <- paste(m,"*",y)
r <- paste(m,collapse="+")
#combin the function
fbody <- paste("{ return(",r,")}")
f <- function(a) {}
#fill the function's body
body(f) <- parse(text=fbody)
return(f)
}
这是拉格朗日多项式插值算法 你参考下吧
