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][1]][1]


  [1]: https://i.sstatic.net/GTuvj.jpg

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}