Impossible de tracer côte à côte les parcelles de barres parcellaires dans R Shiny flexdashboard

Question

Je dois concevoir un tableau de bord flexueux et je veux tracer deux parcelles de terrain dans un onglet "Simple".

Ce que je suis en train est la suivante:

--- 
title: "My Dashboard" 
output: 
    flexdashboard::flex_dashboard: 
    orientation: column 
    vertical_layout: fill   
--- 

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


My Page 
===================================== 

Column {data-width=260 .tabset} 
----------------------------------------------------------------------- 

### Tab 1 

```{r} 

``` 

### Tab 2 

```{r} 

``` 

### Tab 3 

```{r} 

``` 

Column {.tabset} 
----------------------------------------------------------------------- 

### REGION 1 

```{r} 

# Make some noisily increasing data 
set.seed(955) 
dat <- data.frame(cond = rep(c("A", "B"), each=10), 
        xvar = 1:20 + rnorm(20,sd=3), 
        yvar = 1:20 + rnorm(20,sd=3)) 


p1 <- ggplot(dat, aes(x=xvar, y=yvar)) + 
      geom_point(shape=1)  # Use hollow circles 
ggplotly(p1) 


p2 <- ggplot(dat, aes(x=xvar, y=yvar)) + 
      geom_point(shape=1) + # Use hollow circles 
      geom_smooth(method=lm) # Add linear regression line 
ggplotly(p2) 

``` 

### REGION 2 

```{r} 
``` 

Je ne reçois pas de côté des parcelles côte à côte (1 x 2 côté dire verticalement côte à côte). En utilisant le code ci-dessus, je devrais être en mesure d'obtenir deux parcelles dans un seul onglet, mais en fait je reçois un. Aussi, je m'attendrais à deux parcelles à côté l'un de l'autre. Mais on dirait que j'ai une terrible erreur ici.

Où est-ce que je me trompe ??

Answer 1

Nous pouvons utiliser la subplot

subplot(ggplotly(p1), ggplotly(p2)) 

Code -full

---

title: "My Dashboard" 
output: 
    flexdashboard::flex_dashboard: 
    orientation: column 
vertical_layout: fill   
--- 

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


My Page 
===================================== 

    Column {data-width=260 .tabset} 
----------------------------------------------------------------------- 

### Tab 1 

```{r} 

``` 

### Tab 2 

```{r} 

``` 

### Tab 3 

```{r} 

``` 

Column {.tabset} 
----------------------------------------------------------------------- 

### REGION 1 

```{r} 

# Make some noisily increasing data 
set.seed(955) 
dat <- data.frame(cond = rep(c("A", "B"), each=10), 
        xvar = 1:20 + rnorm(20,sd=3), 
        yvar = 1:20 + rnorm(20,sd=3)) 


p1 <- ggplot(dat, aes(x=xvar, y=yvar)) + 
    geom_point(shape=1)  # Use hollow circles 


p2 <- ggplot(dat, aes(x=xvar, y=yvar)) + 
    geom_point(shape=1) + # Use hollow circles 
    geom_smooth(method=lm) # Add linear regression line 

subplot(ggplotly(p1), ggplotly(p2)) 


``` 

### REGION 2 

```{r} 
``` 

-output