Título

class: title-slide, middle, center
background-image: url(imagenes/rladies_logo.jpeg) 
background-position: 10% 50%
background-size: 15%

.center-column[
# Título
### ⚔<br/> subtítulo

####Autor 
#### 2023/05/17
]

.left[.footnote[R-Ladies Theme[R-Ladies Theme](https://www.apreshill.com/project/rladies-xaringan/)]]

---

background-image: url(imagenes/rladies_logo.jpeg) 
background-position: 10% 10%
background-size: 10%
class: middle, center

# Alinear texto y códigos

.pull-left[

El código quedará alineado a la izquierda.

#### Código

````
```{r plot, echo=TRUE, fig.height=5, fig.show='hide'}
cl <- c("maroon3", "sienna2", "skyblue1")

p <- ggplot(iris, aes(x=Sepal.Length,
  y=Sepal.Width))+
  geom_point(aes(colour = Species)) +
  scale_colour_manual(values=cl)+
  labs(title = "Longitud y Ancho Sepal",
       subtitle = "Iris data set",
       x = "Longitud Sepal",
       y = "Ancho Sepal",
       caption = "Datos: Iris data set.`",
       fill = "Especies")
p
```
````

]

.pull-right[

El plot quedará alineado a la derecha.

#### Plot

![](ejemplo-diapositivas-xaringan_files/figure-html/plot2-1.png)

]

---

## Incrustar diapositivas

Para incrustar las diapositivas puedes realizar lo siguiente:

```r
xaringanExtra::embed_xaringan(url = "https://haydeeperuyero.github.io/Xaringan_RLadies/xaringan.html", ratio = "16:9", max_width = 600)
```

<div class="shareagain" style="min-width:300px;margin:1em auto;max-width:600px;" data-exeternal="1">
<iframe src="https://haydeeperuyero.github.io/Xaringan_RLadies/xaringan.html" width="1600" height="900" style="border:2px solid currentColor;" loading="lazy" allowfullscreen></iframe>
<script>fitvids('.shareagain', {players: 'iframe'});</script>
</div>