आर: ggplot और प्लॉटली अक्ष मार्जिन

Question

नहीं बदलेगा I ggplotlyggplot का उपयोग कर टिकों के साथ ओवरलैपिंग से y-axis टेक्स्ट को रोकने में समस्याएं आ रही हैं। मैं इसे कैसे ठीक करूं? मैं निम्नलिखित कोड की कोशिश की है:

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

के 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) 

हम के रूप में MLavoie ने सुझाव दिया है, लेकिन फिर हमारे अक्ष कथा के रूप में अच्छी तरह से ले जाता है margins समायोजित स्थानांतरित कर सकते हैं।

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

अक्ष कथा वास्तव में एक पौराणिक कथा है, लेकिन एक एनोटेशन, नहीं है तो चलो यह पहली बढ़ते हैं:

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