Inicialmente, vamos criar um gráfico com base em dados da tabela 7 de análise anterior desse site:

ano <- c(2018,2020)

branco_nulo <-c(2698, 3502)

esquerda <-c(6311, 5559)

direita <-c(30687,27565)

base <- data.frame(ano,branco_nulo, esquerda,direita)

library(tidyverse)

Acima cadastramos os dois pleitos e a votação recebida pelos 3 grupos (branco_nulo, esquerda, direita).

A última linha refere-se a criação de uma base para juntar os dados.

base$pleito <- as.Date(as.character(base$ano), format = "%Y")

Acima criamos uma variável de nome pleito que valida ano como data, procedimento necessário para criar a tabela.

plot(base$pleito, direita, type = "l", col = "blue", xlab = "", ylab = "Votos",

xlim = c(2018, 2020), ylim = c(1000,31000))

lines(ano, direita, col = "blue")

text(2018.3, 28687, "Bolsonaro 2018", col = "blue")

lines(ano, esquerda, col = "red")

text(2018.4, 8000, "Haddad 2018", col = "red")

text(2019.7, 7200, "Jean de Liz 2020", col = "red")

lines(ano, branco_nulo, col ='green')

text(2019.6, 1800, "Brancos/Nulos 2020", col = "green")

text(2018.4, 1700, "Brancos/Nulos 2018", col = "green")

text(2019.7, 26100, "Thomé 2020", col = "blue")

text(2019.7, 24100, "+", col = "blue")

text(2019.5, 22100, "Direita 'bolsonarista' 2020", col = "blue")

Todo esse imenso código cria a tabela abaixo.

Os códigos referem-se a títulos, posição dos textos e valores da escala do gráfico