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

##Graficos Los graficos se realizan descargando una libreria, y ejecutando la funcion plot() o boxplot(), segun se necesite.

plot(Presion_Base_Datos_limpia$Edad, Presion_Base_Datos_limpia$Sistolica_Prom)

##Imagenes Para adjuntar imagenes, se debe guardar el documento en la misma ubicacion, donde esta ka imagen deseada. Posteriormente se usa la funcion !, con el nombre que se le quiere dar y la ubicacion de la imagen presion arterial