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:
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.
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"))
pipe
, logo depois de ler os dados. A impressão que dá é que você rodou o pipe duas vezes seguidaspipe
nem chega a rodar por conta do erro doarrange
. Como eu disse, se eu retirar oarrange
, ai ele soma todos os valores e não é o que eu gostaria.dput(head(CCEE, 30))
é melhor que um link. Há muitos usuários que não gostam de descarregar dados e no meu caso nem sequer está a funcionar e não vou tentar descobrir porquê.