Cargar librería

library(tidyverse)

Leer archivo CSV

BD <- read.csv("C:/Users/cytro/Documents/Datos1.csv")
BD

Estadísticas básicas

summary(BD)
##       Edad        Altura           Peso       
##  Min.   :21   Min.   :1.550   Min.   : 50.00  
##  1st Qu.:22   1st Qu.:1.670   1st Qu.: 57.50  
##  Median :22   Median :1.700   Median : 70.00  
##  Mean   :22   Mean   :1.693   Mean   : 74.29  
##  3rd Qu.:22   3rd Qu.:1.730   3rd Qu.: 90.00  
##  Max.   :23   Max.   :1.800   Max.   :105.00

Grafica

plot(BD$Peso , BD$Altura)