Subtítulo (este es un subtítulo)

Texto: esto es un texto normal.

library(readxl)
Presion_Base_Datos <- read_excel("Presion Base Datos.xlsx", 
    sheet = "Limpia")

Gráfico

Aquí el gráfico:

plot(Presion_Base_Datos$Sistolica_Prom, Presion_Base_Datos$Diastolica_Prom)

Imagen

A continuación, una imagen:

Imagen de un pato
Imagen de un pato

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.