D3heatmap

#install.packages('d3heatmap')
# library(d3heatmap)
# library(dplyr)
x %>% as.data.frame()

Warning message:
In strsplit(code, "\n", fixed = TRUE) :
  input string 1 is invalid in this locale

#x is a matrix ， use t() to transpose
x[,c(3:12)]%>%t() %>% d3heatmap(scale='none', col="PiYG",cexRow=0.5, cexCol=0.7,width='400px')