Link da base de dadosMeu dput: https://public.tableau.com/vizql/w/ConsumodeenergianoSIN/v/Downloaddedados/viewData/sessions/DFB852BF0FF345B0B2AF331F6974C4D6-0:0/views/7787697873920711624_11656607759737275427?maxrows=200&viz={%22worksheet%22%3A%22Planilha%209%22%2C%22dashboard%22%3A%22Download%20de%20dados%22}
dput <- structure(list(Data = structure(c(1533081600, 1533081600, 1533081600,
1533081600, 1533081600, 1533081600), tzone = "UTC", class = c("POSIXct", "POSIXt")),
Classe = c("Autoprodutor", "Autoprodutor", "Autoprodutor", "Autoprodutor", "Autoprodutor", "Autoprodutor"),
`Ramo de atividade` = c("ALIMENTÍCIOS", "ALIMENTÍCIOS", "ALIMENTÍCIOS", "ALIMENTÍCIOS", "ALIMENTÍCIOS", "COMÉRCIO"),
Submercado = c("NORDESTE", "SUDESTE / CENTRO-OESTE", "SUDESTE / CENTRO-OESTE", "SUL", "SUL", "SUDESTE / CENTRO-OESTE"),
Estado = c("Pernambuco ", "Minas Gerais", "Mato Grosso", "Santa Catarina", "Rio Grande do Sul", "São Paulo"),
`"Consumo (MWm)"` = c("Consumo (MWm)", "Consumo (MWm)", "Consumo (MWm)", "Consumo (MWm)", "Consumo (MWm)", "Consumo (MWm)"),
`Consumo (MWm)` = c(0.24033975, 0, 0.908708333, 3.044405, 1.443036542, 0.16408)),
.Names = c("Data", "Classe", "Ramo de atividade", "Submercado", "Estado", "\"Consumo (MWm)\"", "Consumo (MWm)"),
row.names = c(NA, -6L), class = c("tbl_df", "tbl", "data.frame"))