R plotly heatmap刻度標籤被截止

Question

嘗試使用R的plotly產生基因表達熱圖。基因名稱很長，尺寸是相當大的：

require(permute) 
require(plotly) 
set.seed(1) 
mat <- matrix(shuffle(c(rnorm(5000,2,1),rnorm(5000,-2,1))),nrow=2500,ncol=4) 
rownames(mat) <- paste("very_long_gene_name",1:2500,sep=".") 
colnames(mat) <- paste("s",1:4,sep=".") 

集羣：

hc.col <- hclust(dist(t(mat))) 
dd.col <- as.dendrogram(hc.col) 
col.order <- order.dendrogram(dd.col) 
hc.row <- hclust(dist(mat)) 
dd.row <- as.dendrogram(hc.row) 
row.order <- order.dendrogram(dd.row) 
mat <- mat[row.order,col.order] 

生產的情節和保存HTML文件：

heatmap.plotly <- plot_ly(x=colnames(mat),y=rownames(mat),z=mat,type="heatmap",colors=colorRamp(c("darkblue","white","darkred"))) 
htmlwidgets::saveWidget(heatmap.plotly,"heatmap.plotly.html") 

我得到的數字有基因名稱被切斷，我不確定它是否提供了所有數據：

任何想法如何解決這兩個問題？

Answer 1

增加你的利潤

m <- list(
    l = 200, 
    r = 10, 
    b = 50, 
    t = 10, 
    pad = 2 
) 
heatmap.plotly <- plot_ly(x=colnames(mat),y=rownames(mat),z=mat,type="heatmap", 
    colors=colorRamp(c("darkblue","white","darkred"))) %>% 
    layout(margin = m) 

heatmap.plotly