-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathchegadas_2023 tratamento.txt
46 lines (36 loc) · 1.11 KB
/
chegadas_2023 tratamento.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
```{r}
chegadas <- read.csv("chegadas_2023.csv", fileEncoding = "ISO-8859-1")
```
```{r}
chegadas <- chegadas |>
select(Continente, Pais, UF, Via, Mes, Chegadas)
meses_pt <- c("Janeiro", "Fevereiro", "Marco", "Abril", "Maio", "Junho", "Julho", "Agosto", "Setembro", "Outubro", "Novembro", "Dezembro")
chegadas <- chegadas |>
mutate(
Mes_num = match(Mes, meses_pt),
# Transformar o nome do mês em número
Data = make_date(year = 2023, month = Mes_num, day = 1)) |>
select(!c(Mes, Mes_num)) |>
group_by(Continente, Pais, UF, Via, Data) |>
summarize(Chegadas = sum(Chegadas, na.rm = TRUE),
.groups = "drop") |>
arrange(Data)
chegadas<- chegadas |>
filter(!is.na(Data))
chegadas_tsibble <- chegadas |>
as_tsibble(index = Data,
key = c(Continente, Pais, UF, Via))
glimpse(chegadas)
```
```{r}
chegadas_tsibble |>
group_by(Continente) |>
summarise(Chegadas = sum(Chegadas)) |>
features(Chegadas, list(mean = mean)) |> gt()
```
```{r}
chegadas_AS <- chegadas_tsibble |>
filter(Continente == "Europa")
chegadas_AS |>
features(Chegadas, list(mean = mean)) |> gt()
```