初始数据类似如下：

填充下缺失值

data[data==0] <- NA
data[is.na(data)] <- min(data,na.rm = T)*0.01
pheatmap(log10(data))

pheatmap(data,scale = "row")

直接取log绘制不报错，但做scale时报错：

Error in hclust(d, method = method) :
  NA/NaN/Inf in foreign function call (arg 11)

原因是数据中有标准差sd为0的行，做归一化时报错。pheatmap中做归一化采用的是scale方法：

因此如果要做scale，需要将这样的行去掉：

test <- data[apply(data, 1, function(x) sd(x)!=0),]
pheatmap(test,scale = "row")

Ref:

https://stackoverflow.com/questions/30350438/pheatmap-scale-row-giving-error-in-hclustd-method-method-na-nan-inf-in

https://zhuanlan.zhihu.com/p/30518877