Este es el ejemplo 2
library(reader)
## Cargando paquete requerido: NCmisc
##
## Adjuntando el paquete: 'reader'
## The following objects are masked from 'package:NCmisc':
##
## cat.path, get.ext, rmv.ext
base_datos <- read.csv("Datos1.csv")
base_datos
## Edad Altura Peso
## 1 21 1.55 50
## 2 22 1.55 52
## 3 22 1.65 60
## 4 22 1.57 57
## 5 22 1.60 70
## 6 22 1.63 65
## 7 23 1.70 76
## 8 21 1.55 50
## 9 22 1.55 52
## 10 22 1.65 60
## 11 22 1.57 57
## 12 22 1.60 70
## 13 22 1.63 65
## 14 23 1.70 76
## 15 21 1.55 50
## 16 22 1.55 52
## 17 22 1.65 60
## 18 22 1.57 57
## 19 22 1.60 70
## 20 22 1.63 65
## 21 23 1.70 76
plot(base_datos$Peso, base_datos$Edad)