Отрегулируйте размер графиков в slidify

Я создал график в R, а затем сохранил график через htmlwidget, чтобы график можно было вызывать в slidify. Я играл с width и height как в аргументе layout, так и в index.Rmd, чтобы уместить график на слайде, но окончательный результат всегда обрезал нижнюю часть диаграммы, когда некоторые тексты складывались вместе.

Как я могу настроить размер графической диаграммы в slidify?

Код в скрипте R

## first slide
date <- seq(from = as.POSIXct("2015/4/1"),
            to = as.POSIXct("2015/10/1"),
            by = "month")

as.Date(date, "%Y/%m/%d")

set.seed(2016)
tot.prem <- runif(n = 7, min = 0, max = 1200)
pol.frce <- runif(n = 7, min = 0, max = 6000)
tot.data <- cbind(date, tot.prem, pol.frce)
tot.data <- data.frame(Date = as.POSIXct(date, format = "%Y/%m/%d"), 
                  WP = tot.prem, 
                  PIF = pol.frce)

m = list(
  l = 50,
  r = 50,
  b = 100,
  t = 100,
  pad = 4
)

p1 <- tot.data %>% 
  subplot(plot_ly(x = date, y = tot.prem, type = "bar"),
          plot_ly(x = date, y = pol.frce, type = "bar"), margin = 0.05) %>% 
  layout(showlegend = FALSE, 
         title = "Written Premium and PIF", 
         yaxis = list(title = "WP (in Millions)", showgrid = FALSE),
         xaxis = list(title = "Date"),
         yaxis2 = list(title = "Policy in Force", showgrid = FALSE),
         xaxis2 = list(title = "Date"),
         autosize = F, width = 600, height = 400, margin = m
         )
p1
# saveWidget(dplot, 'plotlyex1.html')
htmlwidgets::saveWidget(as.widget(p1), "wp.html")

Выдержка из index.Rmd

## Program Summary

- Point 1: blah blah blah
- Point 2: blah blah blah
- Point 3: blah blah blah

```{r wp, echo=FALSE, warning=FALSE, cache=FALSE, results='asis'}
cat('<iframe src="./assets/widgets/wp.html" width=100% height=10% allowtransparency="true"> </iframe>')
```

---

Слайдslidify


r r-markdown plotly slidify
person Ken    schedule 18.01.2016    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Я нашел решение проблемы с текстом, но не нашел вашего запроса о размере. Если вы поместите текст под графиком, то текст по оси X будет отображаться правильно. Если вам не нужен текст, пустой символ также работает, например:

```{r wp, echo=FALSE, warning=FALSE, cache=FALSE, results='asis'}
cat('<iframe src="./assets/widgets/wp.html" width=100% height=10% allowtransparency="true"> </iframe>')
```
&#032;

Ваш код помог мне получить мой первый дисплей Plotly в Slidify, так что спасибо за это.

person Tim    schedule 26.06.2016