Центрирование графика в R Markdown

Question

Я пытаюсь отцентрировать пиктограмму, но она остается выровненной по левому краю. Ниже мой минимальный пример, подчеркивая, как fig.align='center' работы с нормальным сюжетом:

---
output: html_document
---

```{r fig.align='center'}
plot(cars)
```

```{r fig.align='center'} 
library(dygraphs)
lungDeaths <- cbind(ldeaths, mdeaths, fdeaths)
dygraph(lungDeaths) %>%
dySeries("mdeaths", label = "Male") %>%
dySeries("fdeaths", label = "Female") %>%
dyOptions(stackedGraph = TRUE) %>%
dyRangeSelector(height = 20)
```

https://st ackru.com/images/233b549d5a1e671eb31e7bc7106a8ccd6566b75b.png

Как я могу сделать выравнивание по центру?

Answer 1

Пакет dygraph создает виджеты HTML, которые ведут себя иначе, чем стандартные цифры в R Markdown, которые являются статическими изображениями. Основываясь на этом ответе, мы можем добавить несколько пользовательских CSS, чтобы заставить HTML-виджеты выравниваться по центру:

---
output: html_document
---

<style>
.html-widget {
    margin: auto;
}
</style>

```{r fig.align='center'} 
library(dygraphs)
lungDeaths <- cbind(ldeaths, mdeaths, fdeaths)
dygraph(lungDeaths) %>%
dySeries("mdeaths", label = "Male") %>%
dySeries("fdeaths", label = "Female") %>%
dyOptions(stackedGraph = TRUE) %>%
dyRangeSelector(height = 20)
```