install.packages("DataExplorer") library(DataExplorer)
mydata <- iris mydata[5:50, 3] <- NA mydata$Species <- as.factor(mydata$Species) head(mydata)
plot_intro(mydata, title = "Automated EDA with Data Explorer")
plot_missing(mydata)
plot_histogram(mydata)
plot_density(mydata)
plot_boxplot(mydata, by= 'Species', ncol = 2)
plot_correlation(mydata, cor_args = list( 'use' = 'complete.obs'))
plot_correlation(mydata, type = 'c', cor_args = list( 'use' = 'complete.obs'))
plot_bar(mydata$Species, maxcat = 20) #plot_bar(mydata, maxcat = 20, parallel = TRUE) #Windows OS 讌
plot_bar(mydata, with = c("Sepal.Length"), maxcat = 20) #plot_bar(mydata, with = c("Sepal.Length"), maxcat = 20, parallel = TRUE)
create_report(mydata)