Responsive plolty output in Rmarkdown documents as in shiny apps

Publishing Your Results
,
1

I am trying to generate a fluid and responsive plotly output in a Rmarkdown document as I normally get in shiny apps, but by default the output overflow in small screens.

I need to know if I have to include any dependency to my Rmarkdown document, or activate any chunk option in order to make it work properly.

See the example below.

Shiny app

library(shiny)
library(plotly)
library(ggplot2)

ui <- fluidPage(
  plotlyOutput("plot")
)

server <- function(input, output, session) {
  output$plot <- renderPlotly({
      static <- ggplot(mtcars, aes(x = wt, y = mpg, color = cyl)) +
          geom_point()
      
      ggplotly(static)
  })
}

shinyApp(ui, server)

The output is a html document with a responsive plot:

shiny_example
shiny_example1372×1212 35.4 KB

Rmarkdown html document

---
output: html_document
---

```{r, echo=FALSE, warning=FALSE, message=FALSE}

library(plotly)
library(ggplot2)

static <- ggplot(mtcars, aes(x = wt, y = mpg, color = cyl)) +
          geom_point()
      
      ggplotly(static)

The output is also a html document but without a responsive plot

markdwon_example
markdwon_example1195×1175 28.4 KB

Thanks in advance for your attention.

4

I ran you code and got a correctly adjusted plot

image
image702×479 10.6 KB

---
output: html_document
---

```{r, echo=FALSE, warning=FALSE, message=FALSE}

library(plotly)
library(ggplot2)

static <- ggplot(mtcars, aes(x = wt, y = mpg, color = cyl)) +
          geom_point()
      
ggplotly(static)
```

FAQ: How to Format R Markdown Source