Ejercicio 02 - TabulaR

Lee el conjunto de datos biom2003.dat, situado en http://gauss.inf.um.es/datos

df <- read.table("http://gauss.inf.um.es/datos/biom2003.dat", sep = " ", header = T)

head(df)

##   Grupo Peso Altura Pie Hombros Brazos Caderas Sexo Ojos Tipo
## 1     1   60    163  37      41     68      95    1    1    2
## 2     1   52    166  37      37     70      87    1    2    1
## 3     1   61    172  39      39     69      91    1    2    1
## 4     1   73    181  43      50     78     101    2    2    1
## 5     1   53    172  39      39     72      89    1    1    1
## 6     1   63    169  40      37     66      96    1    2    1

Realiza un gráfico etiquetado y titulado adecuadamente para las variables altura y caderas.

plot(df$Altura,
     df$Caderas,
     main = "Relación entre la altura y el tamaño de las caderas",
     xlab = "Altura (cm)",
     ylab = "Caderas (cm)")

Cambia el color y el tipo de punto

plot(
  df$Altura,
  df$Caderas,
  main = "Relación entre la altura y el tamaño de las caderas",
  xlab = "Altura (cm)",
  ylab = "Caderas (cm)",
  col = "blue",
  pch = 20
  )

Añade una retícula ( grid() ) al gráfico ordenando adecuadamente la presentación de los elementos.

plot(
  df$Altura,
  df$Caderas,
  main = "Relación entre la altura y el tamaño de las caderas",
  xlab = "Altura (cm)",
  ylab = "Caderas (cm)",
  col = "blue",
  pch = 20,
  type = "n")

grid()

points(
  df$Altura,
  df$Caderas,
  main = "Relación entre la altura y el tamaño de las caderas",
  xlab = "Altura (cm)",
  ylab = "Caderas (cm)",
  col = "blue",
  pch = 20)

Exporta el gráfico en formato .png

Deja traza del tipo de sesión

sessionInfo()

## R version 3.3.1 (2016-06-21)
## Platform: x86_64-w64-mingw32/x64 (64-bit)
## Running under: Windows 8.1 x64 (build 9600)
## 
## locale:
## [1] LC_COLLATE=Spanish_Spain.1252  LC_CTYPE=Spanish_Spain.1252   
## [3] LC_MONETARY=Spanish_Spain.1252 LC_NUMERIC=C                  
## [5] LC_TIME=Spanish_Spain.1252    
## 
## attached base packages:
## [1] stats     graphics  grDevices utils     datasets  methods   base     
## 
## loaded via a namespace (and not attached):
##  [1] backports_1.0.5 magrittr_1.5    rprojroot_1.2   tools_3.3.1    
##  [5] htmltools_0.3.5 yaml_2.1.14     Rcpp_0.12.7     stringi_1.1.2  
##  [9] rmarkdown_1.3   knitr_1.15      stringr_1.1.0   digest_0.6.10  
## [13] evaluate_0.10