The code on this document is taken from DataExplorer
website:
https://cran.r-project.org/web/packages/DataExplorer/vignettes/dataexplorer-intro.html
# install.packages("nycflights13")
library(nycflights13)
library(DataExplorer)
Let’s get our final_data
to the point I’m interested on:
merge_airlines <- merge(flights, airlines, by = "carrier", all.x = TRUE)
merge_planes <- merge(merge_airlines, planes, by = "tailnum", all.x = TRUE, suffixes = c("_flights", "_planes"))
merge_airports_origin <- merge(merge_planes, airports, by.x = "origin", by.y = "faa", all.x = TRUE, suffixes = c("_carrier", "_origin"))
final_data <- merge(merge_airports_origin, airports, by.x = "dest", by.y = "faa", all.x = TRUE, suffixes = c("_origin", "_dest"))
final_data <- drop_columns(final_data, "speed")
final_data[which(final_data$manufacturer == "AIRBUS INDUSTRIE"),]$manufacturer <- "AIRBUS"
final_data[which(final_data$manufacturer == "CANADAIR LTD"),]$manufacturer <- "CANADAIR"
final_data[which(final_data$manufacturer %in% c("MCDONNELL DOUGLAS AIRCRAFT CO", "MCDONNELL DOUGLAS CORPORATION")),]$manufacturer <- "MCDONNELL DOUGLAS"
final_data <- drop_columns(final_data, c("dst_origin", "tzone_origin"))
final_data <- update_columns(final_data, "flight", as.factor)
final_data <- drop_columns(final_data, c("year_flights", "tz_origin"))
plot_correlation(na.omit(final_data), maxcat = 5L)
## 11 features with more than 5 categories ignored!
## dest: 100 categories
## tailnum: 3246 categories
## carrier: 16 categories
## flight: 3773 categories
## time_hour: 6642 categories
## name_carrier: 16 categories
## manufacturer: 24 categories
## model: 121 categories
## engine: 6 categories
## name: 100 categories
## tzone_dest: 7 categories
My Question:
Is there any way to get the values corresponding to each cell in text format?
Thanks!