答案 0 :(得分:0)
我觉得这是一个白痴 - woocommerce能够帮助我,这是一个非常简单的解决方案 - 只是一些简单的CSS:
library(plotly)
library(ggplot2); library(reshape2)
g <- melt(Gene_states22, id.vars = c("gene_symbol","panel"))
p1 <- ggplot(g, aes(gene_symbol,variable)) +
geom_tile(aes(fill = value), colour = "grey50") +
scale_fill_manual(values=c("white", "red", "blue"))+
labs(title = "Heatmap",x = "gene_symbol",y="sample",fill="value")+
theme(title = element_text(family = "sans serif",
size = 14,
face = "bold"),
axis.title = element_text(family = "sans serif",
size = 16,
face = "bold",
color = "black"),
axis.text = element_text(family = "sans serif",
size = 11),
axis.title.y = element_text(margin = margin(t = 0, r = 25, b = 0, l = 25)),
panel.background = element_rect(fill = NA),
panel.grid.major = element_line(colour = "grey50"))
p1
ggplotly(p1)%>%
layout(autosize = F,
width = 1450,
height = 600,
hoverlabel = list(bgcolor = "white",
font = list(family = "sans serif",
size = 9,
color = "black")))
&#13;