R 从ggplot转换为plotly时图例出现问题

R 从ggplot转换为plotly时图例出现问题,r,ggplot2,plotly,R,Ggplot2,Plotly,我对Ggly的传奇有问题。这是我的意思的一个小例子: library(reshape2) # for melt df <- melt(outer(1:4, 1:4), varnames = c("X1", "X2")) p1 <- ggplot(df, aes(X1, X2)) + geom_tile(aes(fill = value)) p2 <- p1 + guides(fill = guide_legend(title = "LEFT", title.p

我对Ggly的传奇有问题。这是我的意思的一个小例子:

library(reshape2) # for melt 
df <- melt(outer(1:4, 1:4), varnames = c("X1", "X2"))
    p1 <- ggplot(df, aes(X1, X2)) + geom_tile(aes(fill = value))
    p2 <- p1 + guides(fill = guide_legend(title = "LEFT", title.position = "left")) p2
    ggplotly(p2)
library(重塑2)#用于熔化

df正如
MLavoie
所说,您可以尝试扩大利润率():

library(重塑2)#用于熔化

你可以试着利用边距。看到这个了吗
library(reshape2) # for melt 
df <- melt(outer(1:4, 1:4), varnames = c("X1", "X2")) 
p1 <- ggplot(df, aes(X1, X2)) + geom_tile(aes(fill = value))
p2 <- p1 + guides(fill = guide_legend(title = "LEFT", title.position = "left")) 
ggplotly(p2) %>% layout(margin=list(r=120))