Skip to main content
adicionou 957 caracteres ao conteúdo
Fonte Link
Alexandre Sanches
  • 1,2mil
  • 11
  • 27

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"))

Meu dput:

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"))
Fonte Link
Alexandre Sanches
  • 1,2mil
  • 11
  • 27

Como utilizar o summarise?

Tenho um DF com dados de energia e gostaria de agrupar os dados por atividade (pois estão divididos por estado e eu quero fazer o agregado para Brasil) e somar estes dados para cada data. Estava tentando utilizar o group_by com o summarise, porém, não está retornando da forma que eu gostaria.

Código:

library(tidyverse)
library(lubridate)

CCEE <- read_excel("Dados/Consumo de energia.xlsx", sheet = "CCEE")

colnames(CCEE) <- c("data", "classe", "atividade", "submercado", "UF", "unidade", "value")

CCEE <- CCEE %>%
  mutate(atividade = str_to_title(atividade),
         data = as_date(data)) %>%
  filter(classe == "Consumidor Livre") %>%
  select(-c(unidade, submercado, classe)) %>%
  group_by(data, atividade) %>%
  summarise(value = round(sum(value), 2)) %>%
  arrange(atividade, data)

Com o código desta forma, ele retorna o seguinte erro:

# Error in order(atividade, data) : objeto 'atividade' não encontrado

Se eu remover o arrange, retorna o somatório de todos os valores, dessa forma:

#    value
#1 8832167

Eu gostaria que os dados ficassem dessa forma, com a soma por atividade para cada uma das datas:

inserir a descrição da imagem aqui

Os dados são baixados em csv e eu tive que transformá-los em excel, mas já testei com os dados em formato csv e retornou o mesmo erro.

Link da base de dados: 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}