Clique aqui para voltar a página principal.

data(mtcars)
data(mtcars)
mtcars <- within(mtcars, {
  am <- factor(am, labels=c('Automático','Manual'))
})
mtcars <- within(mtcars, {
  vs <- factor(vs, labels=c('Não','Sim'))
})
par(bg="#fdf6e3") 

CARROS <- mtcars[, c('mpg', 'cyl', 'disp', 'hp', 'carb','drat','wt')]
par(bg="#fdf6e3") 
library("PerformanceAnalytics")
chart.Correlation(CARROS, histogram=TRUE, pch=19)

par(bg="#fdf6e3") 
library(corrr)
CARROS %>% correlate() %>% network_plot(min_cor=0.6)

par(bg="#fdf6e3") 
library(psych)
pairs.panels(CARROS, scale=TRUE)

par(bg="#fdf6e3") 
library(corrplot)
corrplot.mixed(cor(CARROS), order="hclust", tl.col="black")

par(bg="#fdf6e3") 
library(ggcorrplot)
ggcorrplot(cor(CARROS), p.mat = cor_pmat(CARROS), hc.order=TRUE, type='lower')

par(bg="#fdf6e3") 
library("corrgram")
corrgram(CARROS, order=TRUE,
         main="Carros",
         lower.panel=panel.shade, upper.panel=panel.pie,
         diag.panel=panel.minmax, text.panel=panel.txt)

corrgram(CARROS, order=TRUE,
         upper.panel=panel.cor, main="Carros")

corrgram(CARROS, order=TRUE,
         main="Carros)",
         lower.panel=corrgram::panel.ellipse,
         upper.panel=panel.bar, diag.panel=panel.minmax,
         col.regions=colorRampPalette(c("darkgoldenrod4", "burlywood1",
                                        "darkkhaki", "darkgreen")))

par(bg="#fdf6e3") 
library(GGally)
library(ggplot2)
ggcorr(CARROS, nbreaks=8, palette='RdGy', label=TRUE, label_size=5, label_color='white')

ggpairs(data=mtcars, # data.frame with variables
        columns=1:4, # columns to plot, default to all.
        title="Carros", # title of the plot
        colour = "am", ggplot2::aes(colour=am)) # aesthetics, ggplot2 style

ggpairs(data=mtcars,
             columns=1:3, 
             upper = list(continuous = "density"),
             lower = list(combo = "facetdensity"),
             title="Carros",
             colour = "am", ggplot2::aes(colour=am))

Clique aqui para voltar a página principal.