Uma Função, Uma Visualização: raincloud

Os gráficos raincloud permitem a visualização de dados brutos, densidade de probabilidade e estatísticas-chave de resumo, como mediana e quartis em um formato atraente e flexível com redundância mínima.

Assista neste link como funciona o gráfico. O código está disponível logo abaixo.

##%######################################################%##
#                                                          #
####            UMA FUNCAO, UMA VISUALIZACAO            ####
#                                                          #
##%######################################################%##

# CARREGANDO OS PACOTES
library(titanic)
library(PupillometryR)
library(ggplot2)

# LENDO E FILTRANDO OS DADOS
data("titanic_train")
dados <- titanic_train[,-c(1,4,9,11)]
str(dados)

# CONVERTENDO VARIAVEIS
dados$Survived <- as.factor(dados$Survived)
dados$Pclass <- as.factor(dados$Pclass)
dados$Sex <- as.factor(dados$Sex)
dados$Embarked <- as.factor(dados$Embarked)

# CORRIGINDO O ESPACO EM BRANCO DA VARIAVEL EMBARKED
levels(dados$Embarked) <- c(NA, "C", "Q", "S")

# PEGANDO OS DADOS COMPLETOS
dados <- dados[complete.cases(dados),]

# GRAFICO RAINCLOUD
ggplot(data = dados, #dados
       aes(y = Age, #variavel quantitativa
           x = Survived, #variavel qualitativa
           fill = Survived)) + #cor do grafico de densidade
  geom_flat_violin(position = position_nudge(x = .2, y = 0), #movimentacao
                   alpha = .8) + #transparencia
  geom_point(aes(y = Age, #variavel quantitativa
                 color = Survived), # cor dos pontos
             position = position_jitter(width = .15), #jitter
             size = 1, #tamanho dos pontos
             alpha = 0.8) + #transparencia
  geom_boxplot(width = 0.1, #largura  
               alpha = 0.5) + #transparencia
  scale_color_brewer(palette = "Set1") + #paleta 
  scale_fill_brewer(palette = "Set1") + #paleta
  coord_flip() + #inverte as coordenadas
  theme(legend.position = "none") #remove legenda das cores

Veja o resultado final: