R: ggplot và lề trục lôgic sẽ không thay đổi

Question

Tôi gặp sự cố khi dừng văn bản trục y từ chồng chéo với các dấu tích bằng cách sử dụng ggplotly xung quanh ggplot. Làm thế nào tôi có thể sửa lỗi này? Tôi đã thử đoạn mã sau:

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

Hãy sử dụng một ví dụ tái sản xuất đơn giản từ here.

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) 

Chúng ta có thể di chuyển điều chỉnh margins theo đề nghị của MLavoie nhưng sau đó truyền thuyết trục của chúng tôi di chuyển là tốt.

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

Truyền thuyết trục thực sự không phải là một huyền thoại mà là một chú thích, vì vậy hãy di chuyển nó đầu tiên:

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