R: ggplot und plotly Achsenrand wird nicht geändert

Question

Ich habe Probleme, die Y-Achse Text von Überschneidungen mit den Zecken mit ggplotly um ggplot zu stoppen. Wie kann ich das beheben? Ich habe den folgenden Code versucht:

set.seed(395) 
df1<- data.frame(CO2= c(cumsum(rnorm(1*36)), cumsum(rnorm(1*36))), 
        Group= rep(c("A","B"), each=36), 
        Segment=rep(seq(1,12),each=36)) 

plot<-ggplot(df1, aes(CO2, fill = Group)) + 
      geom_density(alpha = 0.8)+ 
      facet_wrap(~ Segment)+ 
      theme_bw()+ 
      labs(x="CO2", y="density") 
#Shouldn't the following work? 
    pb <- plotly_build(plot) 
    pb$layout$margin$l <- 200 
    pb$layout$margin$b <- 100 
    pb 

Answer 1

Lassen Sie uns ein einfaches reproduzierbares Beispiel aus here verwenden.

library(gapminder) 
library(plotly) 
p <- ggplot(gapminder, aes(x=gdpPercap, y=lifeExp)) + geom_point() + scale_x_log10() 
p <- p + aes(color=continent) + facet_wrap(~year) 
gp <- ggplotly(p) 

Wir können das die margins bewegen einstellen, wie durch MLavoie vorgeschlagen, aber dann auch unsere Achse Legende bewegt.

gp %>% layout(margin = list(l = 75)) 

Die Legende Achse ist eigentlich keine Legende, sondern eine Anmerkung, so läßt es sich bewegen zuerst:

gp[['x']][['layout']][['annotations']][[2]][['x']] <- -0.1 
gp %>% layout(margin = list(l = 75))