Essa pergunta foi enviada na aula sobre ggplot2, no curso R para Ciência de Dados I.
Seria possível atribuir uma cor para quando o gráfico subisse e outra cor para quando caísse?
Contexto do código na aula:
# Carregar pacotes --------------------------------------------------------
library(tidyverse)
# Ler base IMDB -----------------------------------------------------------
imdb <- readr::read_csv("https://raw.githubusercontent.com/curso-r/main-r4ds-1/master/dados/imdb.csv")
#>
#> ── Column specification ────────────────────────────────────────────────────────
#> cols(
#> titulo = col_character(),
#> ano = col_double(),
#> diretor = col_character(),
#> duracao = col_double(),
#> cor = col_character(),
#> generos = col_character(),
#> pais = col_character(),
#> classificacao = col_character(),
#> orcamento = col_double(),
#> receita = col_double(),
#> nota_imdb = col_double(),
#> likes_facebook = col_double(),
#> ator_1 = col_character(),
#> ator_2 = col_character(),
#> ator_3 = col_character()
#> )
imdb <- imdb %>% mutate(lucro = receita - orcamento)
# Nota média do Robert De Niro por ano
imdb %>%
filter(ator_1 == "Robert De Niro") %>%
group_by(ano) %>%
summarise(nota_media = mean(nota_imdb, na.rm = TRUE)) %>%
ggplot() +
geom_line(aes(x = ano, y = nota_media))
Created on 2021-03-13 by the reprex package (v1.0.0)