如何在热图上显示所有数据

Question

我正在尝试使用在网上找到的代码来创建热图。不管我使用自己的数据还是示例代码，我的绘图都只占我输入数据的一小部分。请看下面的例子。

library(gplots)
library(vegan)
df = data.frame(SAMPLE1 = matrix(rnorm(20), nrow=1000),
                SAMPLE2 = matrix(rnorm(20), nrow = 1000),
                SAMPLE3 = matrix(rnorm(20), nrow = 1000))

as.matrix(df) -> mat

#scaleRYG <- colorRampPalette(c("white","light green","green", 
#                               "light blue", "blue", "dark blue",
#                               "purple", "pink", "red"), space = "rgb"#(30)

data.dist <-vegdist(mat, method = "euclidean")

row.clus <-hclust(data.dist, "aver")

heatmap.2(mat, Rowv = as.dendrogram(row.clus), dendrogram = "row", 
          col=redblue(100), margins = c(12, 6), density.info = "none", 
          trace = "none", lhei = c(2,6), colsep = 1:3, sepcolor = "black",
          sepwidth =c(0.001,0.0001), xlab = "Datasets", ylab = "Wikipathways")

我在Rstudio上获得的图像类似于下图，在1000行中，我得到的行少于100行。

如果上传不起作用，这是可共享的链接。 https://drive.google.com/open?id=1zSjrGUdEtcq8aIhcpTI-2Sd8mRFD1YXn

代码或Rstudio的设置方式是否有问题？

任何帮助将不胜感激。