flexdashboard - две диаграммы и текст / столбцы под одним заголовком - PullRequest
Новая
       16

flexdashboard - две диаграммы и текст / столбцы под одним заголовком

0 голосов
/ 18 апреля 2020

Я пытаюсь включить два участка под одним заголовком / разделом. Код ниже основан на примерах flexdashboard. Первый заголовок (графическое изображение) в порядке и показывает диаграмму слева и пояснительный текст справа, т.е. два столбца

Под вторым заголовком / сектором я хочу включить два графика рядом, а затем пояснительные примечания в правом углу аналогичны тем, которые показаны с первым заголовком / разделом.

Я пробовал строки и столбцы и исправлял ширину и высоту фига, но не получил их для работы. 

---
title: "HTML Widgets Showcase"
output: 
  flexdashboard::flex_dashboard:
    storyboard: true
    social: menu
    source: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(ggplot2)
```

### Plotly Chart - included to show plot with explantory text to the side

```{r}
library(plotly)
p <- ggplot(data = diamonds, aes(x = cut, fill = clarity)) +
            geom_bar(position = "dodge")
ggplotly(p)
```

***

Some more explanatory text

- Point 1

- Point 2

### Single heading / section with two plots and an explanatory column.  Second chart truncated and explanatory column shown as a row below second chart.

```{r}
my_scatplot <- ggplot(mtcars,aes(x=wt,y=mpg)) + geom_point()
my_scatplot + xlab('Weight (x 1000lbs)') + ylab('Miles per Gallon') + geom_smooth()
```

***

```{r}
my_plot <- ggplot(mtcars,aes(x=mpg)) + geom_histogram(binwidth=5)
my_plot + xlab('Miles per Gallon')+ylab('Number of Cars') 
```

***

Some explanatory text

- Point 3

- Point 4
...