距离计算方法和聚类方法都是一样的（都是用的欧几里得距离和Ward法），为什么heatmap.2和pheatmap得到的聚类结果不一样？

heatmap.2:
cluster.data <- read.csv("data.csv")
row.names <- cluster.data$factor
x <- cluster.data[, 2:5]
z <- as.matrix(x)
heatmap.2(z,
          col = greenred,
          dendrogram = 'row',
          scale = 'row',
          Colv = F,
          labRow = row.names,
          trace = 'none',
          density.info = 'none')


pheatmap:
cluster.data <- read.csv("data.csv")
x <- cluster.data[, 2:5]
z <- as.matrix(x)
rownames(z) <- cluster.data$factor
pheatmap(z,
         color = greenred(75),
         border_color = NA,
         cluster_cols = F,
         cellwidth = 15,
         scale = "row",
         clustering_distance_rows = "euclidean",
         clustering_method = "ward",
         treeheight_row = 10,
         show_colnames = F,
         fontsize_row = 10,
         width = 2, height = 5)