Teoría

La librerua DataExplorer es la más conocida para el análisis exploratorio. Es muy simpe de usar y muy poderosa, ofrece como salida un informe con mucha información
La función para crear el informe es create_report, y para ver cada gráfica de forma individual, las funciones son:

  • introduce()
  • plot_intro()
  • plotboxplot()
  • plot_missing()
  • plot histogram
  • plot_bar()
  • plot_correlation()

Instalar paquetes y librerías

#install.packages("DataExplorer")
library(DataExplorer)
#install.packages("nycflights13")
library(nycflights13)

Contexto

El paquete nycflights13 contiene información sobre todos lo vuelos que patieron desde Nueva York (EWR, JFK y LGA) a destinos en los Estados Unidos de América en el 2013. Fueron 336,776 vuelos en total.

Crear la base de datos

flights<- flights
weather<- weather
planes<- planes
airports<- airports
airlines<- airlines
df<- merge(flights, airlines, by= "carrier")
df<- merge(df, planes, by= "tailnum")

Crear el reporte y visualizar gráficas

#create_report(df)
introduce(df)
##     rows columns discrete_columns continuous_columns all_missing_columns
## 1 284170      28               10                 18                   0
##   total_missing_values complete_rows total_observations memory_usage
## 1               311768           920            7956760     50225296
plot_intro(df)

plot_boxplot(df, by= "carrier")
## Warning: Removed 23255 rows containing non-finite outside the scale range
## (`stat_boxplot()`).

## Warning: Removed 288513 rows containing non-finite outside the scale range
## (`stat_boxplot()`).

plot_missing(df)

plot_histogram(df)

plot_bar(df)
## 4 columns ignored with more than 50 categories.
## tailnum: 3322 categories
## dest: 104 categories
## time_hour: 6934 categories
## model: 127 categories

plot_correlation(df)
## 5 features with more than 20 categories ignored!
## tailnum: 3322 categories
## dest: 104 categories
## time_hour: 6934 categories
## manufacturer: 35 categories
## model: 127 categories
## Warning in cor(x = structure(list(year.x = c(2013L, 2013L, 2013L, 2013L, : the
## standard deviation is zero

LS0tDQp0aXRsZTogIkRhdGEgRXhwbG9yZXIiDQphdXRob3I6ICJMdWlzIERhdmlkIFPDoW5jaGV6IENhc3RpbGxvIC0gQTAxMjc1NjU1Ig0KZGF0ZTogIjIvMjcvMjAyNCINCm91dHB1dDoNCiAgaHRtbF9kb2N1bWVudDoNCiAgICB0b2M6IHllcw0KICAgIHRvY19mbG9hdDogeWVzDQogICAgY29kZV9kb3dubG9hZDogeWVzDQogICAgdGhlbWU6IHlldGkNCiAgcGRmX2RvY3VtZW50Og0KICAgIHRvYzogeWVzDQotLS0NCg0KICAhW10oQzpcXFVzZXJzXFxMdWlzRFxcRG9jdW1lbnRzXFxDb25jZW50cmFjacOzblxccGxhbmUuamZpZikNCg0KIyA8c3BhbiBzdHlsZT0gImNvbG9yOiBibHVlOyI+VGVvcsOtYTwvc3Bhbj4gDQpMYSBsaWJyZXJ1YSAqRGF0YUV4cGxvcmVyKiBlcyBsYSBtw6FzIGNvbm9jaWRhIHBhcmEgZWwgYW7DoWxpc2lzIGV4cGxvcmF0b3Jpby4gRXMgbXV5IHNpbXBlIGRlIHVzYXIgeSBtdXkgcG9kZXJvc2EsIG9mcmVjZSBjb21vIHNhbGlkYSB1biBpbmZvcm1lIGNvbiBtdWNoYSBpbmZvcm1hY2nDs24gIA0KTGEgZnVuY2nDs24gcGFyYSBjcmVhciBlbCBpbmZvcm1lIGVzICpjcmVhdGVfcmVwb3J0KiwgeSBwYXJhIHZlciBjYWRhIGdyw6FmaWNhIGRlIGZvcm1hIGluZGl2aWR1YWwsIGxhcyBmdW5jaW9uZXMgc29uOiAgDQoNCiogKmludHJvZHVjZSgpKiAgDQoqICpwbG90X2ludHJvKCkqICANCiogKnBsb3Rib3hwbG90KCkqICANCiogKnBsb3RfbWlzc2luZygpKiAgDQoqICpwbG90IGhpc3RvZ3JhbSogIA0KKiAqcGxvdF9iYXIoKSogIA0KKiAqcGxvdF9jb3JyZWxhdGlvbigpKiAgDQoNCiMgPHNwYW4gc3R5bGU9ICJjb2xvcjogYmx1ZTsiPkluc3RhbGFyIHBhcXVldGVzIHkgbGlicmVyw61hczwvc3Bhbj4gDQpgYGB7ciBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KI2luc3RhbGwucGFja2FnZXMoIkRhdGFFeHBsb3JlciIpDQpsaWJyYXJ5KERhdGFFeHBsb3JlcikNCiNpbnN0YWxsLnBhY2thZ2VzKCJueWNmbGlnaHRzMTMiKQ0KbGlicmFyeShueWNmbGlnaHRzMTMpDQpgYGANCg0KIyA8c3BhbiBzdHlsZT0gImNvbG9yOiBibHVlOyI+Q29udGV4dG88L3NwYW4+IA0KRWwgcGFxdWV0ZSAqbnljZmxpZ2h0czEzKiBjb250aWVuZSBpbmZvcm1hY2nDs24gc29icmUgdG9kb3MgbG8gdnVlbG9zIHF1ZSBwYXRpZXJvbiBkZXNkZSBOdWV2YSBZb3JrIChFV1IsIEpGSyB5IExHQSkgYSBkZXN0aW5vcyBlbiBsb3MgRXN0YWRvcyBVbmlkb3MgZGUgQW3DqXJpY2EgZW4gZWwgMjAxMy4gRnVlcm9uIDMzNiw3NzYgdnVlbG9zIGVuIHRvdGFsLiAgDQoNCiMgPHNwYW4gc3R5bGU9ICJjb2xvcjogYmx1ZTsiPkNyZWFyIGxhIGJhc2UgZGUgZGF0b3M8L3NwYW4+IA0KYGBge3J9DQpmbGlnaHRzPC0gZmxpZ2h0cw0Kd2VhdGhlcjwtIHdlYXRoZXINCnBsYW5lczwtIHBsYW5lcw0KYWlycG9ydHM8LSBhaXJwb3J0cw0KYWlybGluZXM8LSBhaXJsaW5lcw0KZGY8LSBtZXJnZShmbGlnaHRzLCBhaXJsaW5lcywgYnk9ICJjYXJyaWVyIikNCmRmPC0gbWVyZ2UoZGYsIHBsYW5lcywgYnk9ICJ0YWlsbnVtIikNCmBgYA0KDQojIDxzcGFuIHN0eWxlPSAiY29sb3I6IGJsdWU7Ij5DcmVhciBlbCByZXBvcnRlIHkgdmlzdWFsaXphciBncsOhZmljYXM8L3NwYW4+IA0KYGBge3J9DQojY3JlYXRlX3JlcG9ydChkZikNCmludHJvZHVjZShkZikNCmBgYA0KDQpgYGB7cn0NCnBsb3RfaW50cm8oZGYpDQpgYGANCg0KYGBge3J9DQpwbG90X2JveHBsb3QoZGYsIGJ5PSAiY2FycmllciIpDQpgYGANCg0KYGBge3J9DQpwbG90X21pc3NpbmcoZGYpDQpgYGANCg0KYGBge3J9DQpwbG90X2hpc3RvZ3JhbShkZikNCmBgYA0KDQpgYGB7cn0NCnBsb3RfYmFyKGRmKQ0KYGBgDQoNCmBgYHtyfQ0KcGxvdF9jb3JyZWxhdGlvbihkZikNCmBgYA0KDQo=