library(DataExplorer)
library(nycflights13)
#### Ejercicio 1: Data Explorer NYC Flights13
flights <- flights
weather <- weather
planes <- planes
airports <- airports
airlines <- airlines
create_report(flights)
## 
## 
## processing file: report.rmd
##   |                                             |                                     |   0%  |                                             |.                                    |   2%                                   |                                             |..                                   |   5% [global_options]                  |                                             |...                                  |   7%                                   |                                             |....                                 |  10% [introduce]                       |                                             |....                                 |  12%                                   |                                             |.....                                |  14% [plot_intro]                      |                                             |......                               |  17%                                   |                                             |.......                              |  19% [data_structure]                  |                                             |........                             |  21%                                   |                                             |.........                            |  24% [missing_profile]                 |                                             |..........                           |  26%                                   |                                             |...........                          |  29% [univariate_distribution_header]  |                                             |...........                          |  31%                                   |                                             |............                         |  33% [plot_histogram]                  |                                             |.............                        |  36%                                   |                                             |..............                       |  38% [plot_density]                    |                                             |...............                      |  40%                                   |                                             |................                     |  43% [plot_frequency_bar]              |                                             |.................                    |  45%                                   |                                             |..................                   |  48% [plot_response_bar]               |                                             |..................                   |  50%                                   |                                             |...................                  |  52% [plot_with_bar]                   |                                             |....................                 |  55%                                   |                                             |.....................                |  57% [plot_normal_qq]                  |                                             |......................               |  60%                                   |                                             |.......................              |  62% [plot_response_qq]                |                                             |........................             |  64%                                   |                                             |.........................            |  67% [plot_by_qq]                      |                                             |..........................           |  69%                                   |                                             |..........................           |  71% [correlation_analysis]            |                                             |...........................          |  74%                                   |                                             |............................         |  76% [principal_component_analysis]    |                                             |.............................        |  79%                                   |                                             |..............................       |  81% [bivariate_distribution_header]   |                                             |...............................      |  83%                                   |                                             |................................     |  86% [plot_response_boxplot]           |                                             |.................................    |  88%                                   |                                             |.................................    |  90% [plot_by_boxplot]                 |                                             |..................................   |  93%                                   |                                             |...................................  |  95% [plot_response_scatterplot]       |                                             |.................................... |  98%                                   |                                             |.....................................| 100% [plot_by_scatterplot]           
## output file: C:/Users/eleyva1/OneDrive - Steelcase Inc/Documents/LIT TEC/Modulo 2/report.knit.md
## "C:/Program Files/RStudio/resources/app/bin/quarto/bin/tools/pandoc" +RTS -K512m -RTS "C:\Users\eleyva1\ONEDRI~1\DOCUME~1\LITTEC~1\MODULO~2\REPORT~1.MD" --to html4 --from markdown+autolink_bare_uris+tex_math_single_backslash --output pandoc7208d772deb.html --lua-filter "C:\Users\eleyva1\AppData\Local\Programs\R\R-4.4.0\library\rmarkdown\rmarkdown\lua\pagebreak.lua" --lua-filter "C:\Users\eleyva1\AppData\Local\Programs\R\R-4.4.0\library\rmarkdown\rmarkdown\lua\latex-div.lua" --embed-resources --standalone --variable bs3=TRUE --section-divs --table-of-contents --toc-depth 6 --template "C:\Users\eleyva1\AppData\Local\Programs\R\R-4.4.0\library\rmarkdown\rmd\h\default.html" --no-highlight --variable highlightjs=1 --variable theme=yeti --mathjax --variable "mathjax-url=https://mathjax.rstudio.com/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML" --include-in-header "C:\Users\eleyva1\AppData\Local\Temp\RtmpU1xNMs\rmarkdown-str720839c93a56.html"
## 
## Output created: report.html
introduce(flights)
## # A tibble: 1 × 9
##     rows columns discrete_columns continuous_columns all_missing_columns
##    <int>   <int>            <int>              <int>               <int>
## 1 336776      19                5                 14                   0
## # ℹ 4 more variables: total_missing_values <int>, complete_rows <int>,
## #   total_observations <int>, memory_usage <dbl>
plot_intro(flights)

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

plot_missing(flights)

plot_histogram(flights)

plot_bar(flights)
## 3 columns ignored with more than 50 categories.
## tailnum: 4044 categories
## dest: 105 categories
## time_hour: 6936 categories

plot_correlation(flights)
## 3 features with more than 20 categories ignored!
## tailnum: 4044 categories
## dest: 105 categories
## time_hour: 6936 categories
## Warning in cor(x = structure(list(year = c(2013L, 2013L, 2013L, 2013L, 2013L, :
## the standard deviation is zero

LS0tDQp0aXRsZTogJ01vZHVsbyAxIEUxJw0KYXV0aG9yOiAiRWR1YXJkbyBMZXl2YSINCmRhdGU6ICIyMDI0LTA4LTE1Ig0Kb3V0cHV0OiANCiAgaHRtbF9kb2N1bWVudDoNCiAgICB0b2M6IFRSVUUNCiAgICB0b2NfZmxvYXQ6IFRSVUUNCiAgICBjb2RlX2Rvd25sb2FkOiBUUlVFDQogICAgdGhlbWU6IGNvc21vDQplZGl0b3Jfb3B0aW9uczogDQogIGNodW5rX291dHB1dF90eXBlOiBjb25zb2xlDQotLS0NCg0KYGBge3IsICB3YXJuaW5nPUZBTFNFfQ0KbGlicmFyeShEYXRhRXhwbG9yZXIpDQpsaWJyYXJ5KG55Y2ZsaWdodHMxMykNCmBgYA0KDQpgYGB7cn0NCiMjIyMgRWplcmNpY2lvIDE6IERhdGEgRXhwbG9yZXIgTllDIEZsaWdodHMxMw0KZmxpZ2h0cyA8LSBmbGlnaHRzDQp3ZWF0aGVyIDwtIHdlYXRoZXINCnBsYW5lcyA8LSBwbGFuZXMNCmFpcnBvcnRzIDwtIGFpcnBvcnRzDQphaXJsaW5lcyA8LSBhaXJsaW5lcw0KYGBgDQoNCmBgYHtyfQ0KY3JlYXRlX3JlcG9ydChmbGlnaHRzKQ0KDQppbnRyb2R1Y2UoZmxpZ2h0cykNCnBsb3RfaW50cm8oZmxpZ2h0cykNCnBsb3RfYm94cGxvdChmbGlnaHRzLCBieSA9ICJjYXJyaWVyIikNCnBsb3RfbWlzc2luZyhmbGlnaHRzKQ0KcGxvdF9oaXN0b2dyYW0oZmxpZ2h0cykNCnBsb3RfYmFyKGZsaWdodHMpDQpwbG90X2NvcnJlbGF0aW9uKGZsaWdodHMpDQpgYGANCg0KDQo=