Usando cores em títulos

brazil_workshop_ggplot_2.R

# Parte I: Prática

# Importe os dados "pratica.csv" e crie um gráfico com proporções para a coluna response
# Use barras com cores que representam a língua materna dos participantes.
# Faça ajustes estéticos de sua preferência

# Parte II: Prática

# Rcrie e salve o gráfico pratica_extra.jpeg ("figura" no link dos materiais no site)

# ================================ MOLDE PARA CORES ABAIXO

# Cor em título
# Este script reproduz o exemplo dado no workshop
# Use apenas como molde

# definir variável com cores 3 classes:
cores = c("cor1", "cor2", "cor3")

# definir nomes para as cores com base nos valores que usaremos:
names(cores) = c("nivel1", "nivel2", "nivel3")

# criar nosso título personalizado:
titulo = glue::glue('**Proporções para <span style="color:{cores["4"]}">quatro</span>, 
                    <span style="color:{cores["5"]}">cinco</span> e 
                    <span style="color:{cores["6"]}">seis</span> sílabas**')

# Agora criamos a figura:
ggplot(data = ..., aes(x = ..., y = prop, fill = ...)) + 
  geom_col(position = position_dodge(),
           color = "black", alpha = 0.7) +
  coord_cartesian(ylim = c(0, 1)) + 
  theme_minimal(base_size = 15, base_family = "CMU Sans Serif") +
  scale_y_continuous(labels = percent_format()) +
  labs(x = "Resposta",
       y = "%",
       title = titulo,          # <- Aqui linkamos a variável que criamos acima
       fill = "Número de sílabas") + 
  scale_fill_manual(values = cores) + 
  theme(legend.position = "none",
        plot.title = ggtext::element_markdown(hjust = 0.5)) # <- PARTE ESSENCIAL