Aluno: Mario Sergio
Curso: Engenharia Civil
Instituição: Faculdade Celso Lisboa
Disciplina: Analise de dados
Local: Rio de Janeiro - RJ
pacotes <- c("readxl", "dplyr", "ggplot2", "lubridate", "knitr", "scales", "forecast", "writexl")
for (p in pacotes) {
if (!requireNamespace(p, quietly = TRUE)) {
install.packages(p)
}
}
library(readxl)
library(dplyr)
library(ggplot2)
library(lubridate)
library(knitr)
library(scales)
library(forecast)
library(writexl)
options(scipen = 999)
Este relatório apresenta uma análise exploratória dos dados de vendas da empresa Bar da Dorinha, uma empresa de varejo que apresentou crescimento nos últimos anos. O objetivo do estudo é aplicar recursos de programação em R, principalmente com os pacotes dplyr e ggplot2, para carregar, limpar, analisar estatisticamente e visualizar os dados de vendas anuais dos vendedores.
A análise busca identificar padrões de desempenho individual, comportamento mensal das vendas, variação dos valores de venda diária e tendências gerais da empresa. Também foi realizado o cálculo da folha de pagamento dos vendedores referente a março de 2024, considerando salário-base, comissão sobre vendas e descontos solicitados na atividade.
O arquivo principal de vendas foi carregado considerando a primeira aba disponível da planilha. O código abaixo também evita erro caso o nome do arquivo esteja com pequenas diferenças, como ocorre quando o arquivo é baixado mais de uma vez.
possiveis_vendas <- c(
"Vendas.xlsx",
"Vendas2024.xlsx",
"Vendas2024(6).xlsx",
"Vendas2024 (6).xlsx",
"Vendas2024(2).xlsx",
"Vendas2024 (2).xlsx"
)
possiveis_salarios <- c(
"Salario_base.xlsx",
"Salario_base2024.xlsx",
"Salario_base2024(2).xlsx",
"Salario_base2024 (2).xlsx"
)
arquivo_vendas <- possiveis_vendas[file.exists(possiveis_vendas)][1]
arquivo_salarios <- possiveis_salarios[file.exists(possiveis_salarios)][1]
if (is.na(arquivo_vendas)) {
stop("Arquivo de vendas não encontrado. Coloque o arquivo Vendas.xlsx ou Vendas2024.xlsx na mesma pasta do RMarkdown.")
}
if (is.na(arquivo_salarios)) {
stop("Arquivo de salários não encontrado. Coloque o arquivo Salario_base.xlsx ou Salario_base2024.xlsx na mesma pasta do RMarkdown.")
}
abas_vendas <- excel_sheets(arquivo_vendas)
abas_salarios <- excel_sheets(arquivo_salarios)
vendas <- read_excel(arquivo_vendas, sheet = abas_vendas[1])
salarios <- read_excel(arquivo_salarios, sheet = "Funcionarios")
str(vendas)
## tibble [113,202 × 5] (S3: tbl_df/tbl/data.frame)
## $ vendedor : num [1:113202] 101101 101101 101101 101101 101101 ...
## $ dias : POSIXct[1:113202], format: "2018-01-01" "2018-01-01" ...
## $ venda_diaria: num [1:113202] 372 139 354 241 123 ...
## $ ano : num [1:113202] 2018 2018 2018 2018 2018 ...
## $ mes : num [1:113202] 1 1 1 1 1 1 1 1 1 1 ...
head(vendas)
## # A tibble: 6 × 5
## vendedor dias venda_diaria ano mes
## <dbl> <dttm> <dbl> <dbl> <dbl>
## 1 101101 2018-01-01 00:00:00 372. 2018 1
## 2 101101 2018-01-01 00:00:00 139. 2018 1
## 3 101101 2018-01-01 00:00:00 354. 2018 1
## 4 101101 2018-01-01 00:00:00 241. 2018 1
## 5 101101 2018-01-01 00:00:00 123. 2018 1
## 6 101101 2018-01-01 00:00:00 165. 2018 1
summary(vendas)
## vendedor dias venda_diaria ano
## Min. :101101 Min. :2018-01-01 00:00:00 Min. : 9.79 Min. :2018
## 1st Qu.:101102 1st Qu.:2020-09-19 00:00:00 1st Qu.:133.27 1st Qu.:2020
## Median :101105 Median :2022-02-03 00:00:00 Median :254.06 Median :2022
## Mean :101234 Mean :2021-11-21 03:43:43 Mean :260.38 Mean :2021
## 3rd Qu.:101108 3rd Qu.:2023-03-15 00:00:00 3rd Qu.:373.85 3rd Qu.:2023
## Max. :102112 Max. :2024-03-30 00:00:00 Max. :838.42 Max. :2024
## mes
## Min. : 1.000
## 1st Qu.: 3.000
## Median : 7.000
## Mean : 6.548
## 3rd Qu.:10.000
## Max. :12.000
Nesta etapa, as colunas foram convertidas para os tipos solicitados na atividade: vendedor como fator, data como campo de data e venda diária como valor numérico.
vendas <- vendas %>%
mutate(
vendedor = as.factor(vendedor),
dias = as.Date(dias),
venda_diaria = as.numeric(venda_diaria),
ano = as.numeric(ano),
mes = as.numeric(mes)
)
valores_ausentes <- sum(is.na(vendas$venda_diaria))
valores_ausentes
## [1] 0
vendas <- vendas %>%
filter(!is.na(venda_diaria))
Após a verificação, as linhas com valores ausentes na coluna
venda_diaria foram removidas, caso existissem. Esse
tratamento é importante para evitar distorções nos cálculos de soma,
média, mediana e desvio padrão.
str(vendas)
## tibble [113,202 × 5] (S3: tbl_df/tbl/data.frame)
## $ vendedor : Factor w/ 12 levels "101101","101102",..: 1 1 1 1 1 1 1 1 1 1 ...
## $ dias : Date[1:113202], format: "2018-01-01" "2018-01-01" ...
## $ venda_diaria: num [1:113202] 372 139 354 241 123 ...
## $ ano : num [1:113202] 2018 2018 2018 2018 2018 ...
## $ mes : num [1:113202] 1 1 1 1 1 1 1 1 1 1 ...
head(vendas)
## # A tibble: 6 × 5
## vendedor dias venda_diaria ano mes
## <fct> <date> <dbl> <dbl> <dbl>
## 1 101101 2018-01-01 372. 2018 1
## 2 101101 2018-01-01 139. 2018 1
## 3 101101 2018-01-01 354. 2018 1
## 4 101101 2018-01-01 241. 2018 1
## 5 101101 2018-01-01 123. 2018 1
## 6 101101 2018-01-01 165. 2018 1
summary(vendas)
## vendedor dias venda_diaria ano
## 101102 :14604 Min. :2018-01-01 Min. : 9.79 Min. :2018
## 101101 :13742 1st Qu.:2020-09-19 1st Qu.:133.27 1st Qu.:2020
## 101103 :12779 Median :2022-02-03 Median :254.06 Median :2022
## 101104 :10493 Mean :2021-11-21 Mean :260.38 Mean :2021
## 101105 :10419 3rd Qu.:2023-03-15 3rd Qu.:373.85 3rd Qu.:2023
## 101106 : 9997 Max. :2024-03-30 Max. :838.42 Max. :2024
## (Other):41168
## mes
## Min. : 1.000
## 1st Qu.: 3.000
## Median : 7.000
## Mean : 6.548
## 3rd Qu.:10.000
## Max. :12.000
##
estatisticas_vendedor <- vendas %>%
group_by(vendedor) %>%
summarise(
Venda_Total = sum(venda_diaria, na.rm = TRUE),
Media_Diaria = mean(venda_diaria, na.rm = TRUE),
Mediana_Diaria = median(venda_diaria, na.rm = TRUE),
Desvio_Padrao = sd(venda_diaria, na.rm = TRUE),
Numero_Registros = n(),
.groups = "drop"
) %>%
arrange(desc(Venda_Total))
kable(estatisticas_vendedor, digits = 2, caption = "Estatísticas de vendas por vendedor")
| vendedor | Venda_Total | Media_Diaria | Mediana_Diaria | Desvio_Padrao | Numero_Registros |
|---|---|---|---|---|---|
| 101102 | 4031176 | 276.03 | 268.37 | 160.76 | 14604 |
| 101101 | 3489519 | 253.93 | 249.28 | 146.27 | 13742 |
| 101103 | 3433923 | 268.72 | 264.70 | 155.34 | 12779 |
| 101105 | 2694622 | 258.63 | 250.79 | 150.14 | 10419 |
| 101104 | 2491491 | 237.44 | 232.13 | 137.85 | 10493 |
| 101108 | 2473665 | 271.47 | 265.24 | 157.04 | 9112 |
| 101106 | 2458056 | 245.88 | 240.99 | 143.15 | 9997 |
| 102111 | 2441308 | 244.67 | 240.99 | 140.90 | 9978 |
| 101107 | 2201441 | 250.28 | 243.28 | 146.59 | 8796 |
| 102112 | 1338667 | 289.50 | 282.73 | 166.85 | 4624 |
| 101109 | 1296194 | 304.06 | 297.62 | 173.87 | 4263 |
| 101110 | 1125154 | 256.01 | 252.31 | 145.72 | 4395 |
A tabela acima permite comparar o desempenho individual dos vendedores. A coluna Venda_Total mostra o faturamento acumulado de cada vendedor, enquanto a Media_Diaria e a Mediana_Diaria indicam o comportamento médio e típico das vendas. Quando a média fica distante da mediana, pode haver influência de vendas muito altas ou muito baixas. O Desvio_Padrao mostra a variação das vendas diárias: quanto maior o valor, maior a oscilação do desempenho do vendedor.
venda_mensal_geral <- vendas %>%
group_by(ano, mes) %>%
summarise(
Total_Vendas = sum(venda_diaria, na.rm = TRUE),
.groups = "drop"
) %>%
arrange(ano, mes) %>%
mutate(periodo = as.Date(paste(ano, mes, "01", sep = "-")))
kable(venda_mensal_geral, digits = 2, caption = "Venda mensal total da empresa")
| ano | mes | Total_Vendas | periodo |
|---|---|---|---|
| 2018 | 1 | 101567.93 | 2018-01-01 |
| 2018 | 2 | 84566.85 | 2018-02-01 |
| 2018 | 3 | 85530.13 | 2018-03-01 |
| 2018 | 4 | 98811.06 | 2018-04-01 |
| 2018 | 5 | 120225.68 | 2018-05-01 |
| 2018 | 6 | 97619.83 | 2018-06-01 |
| 2018 | 7 | 83419.18 | 2018-07-01 |
| 2018 | 8 | 124339.31 | 2018-08-01 |
| 2018 | 9 | 120982.09 | 2018-09-01 |
| 2018 | 10 | 127807.90 | 2018-10-01 |
| 2018 | 11 | 155285.26 | 2018-11-01 |
| 2018 | 12 | 187369.81 | 2018-12-01 |
| 2019 | 1 | 136127.00 | 2019-01-01 |
| 2019 | 2 | 98931.27 | 2019-02-01 |
| 2019 | 3 | 114280.20 | 2019-03-01 |
| 2019 | 4 | 126960.42 | 2019-04-01 |
| 2019 | 5 | 171233.06 | 2019-05-01 |
| 2019 | 6 | 149914.75 | 2019-06-01 |
| 2019 | 7 | 107252.77 | 2019-07-01 |
| 2019 | 8 | 141441.62 | 2019-08-01 |
| 2019 | 9 | 129484.14 | 2019-09-01 |
| 2019 | 10 | 288625.81 | 2019-10-01 |
| 2019 | 11 | 355359.75 | 2019-11-01 |
| 2019 | 12 | 468261.28 | 2019-12-01 |
| 2020 | 1 | 271472.65 | 2020-01-01 |
| 2020 | 2 | 222533.09 | 2020-02-01 |
| 2020 | 3 | 382382.08 | 2020-03-01 |
| 2020 | 4 | 421068.32 | 2020-04-01 |
| 2020 | 5 | 517596.70 | 2020-05-01 |
| 2020 | 6 | 416373.11 | 2020-06-01 |
| 2020 | 7 | 351208.06 | 2020-07-01 |
| 2020 | 8 | 331284.75 | 2020-08-01 |
| 2020 | 9 | 400772.74 | 2020-09-01 |
| 2020 | 10 | 387258.35 | 2020-10-01 |
| 2020 | 11 | 505659.62 | 2020-11-01 |
| 2020 | 12 | 595835.98 | 2020-12-01 |
| 2021 | 1 | 360726.31 | 2021-01-01 |
| 2021 | 2 | 301422.03 | 2021-02-01 |
| 2021 | 3 | 385502.04 | 2021-03-01 |
| 2021 | 4 | 430170.60 | 2021-04-01 |
| 2021 | 5 | 483334.28 | 2021-05-01 |
| 2021 | 6 | 476022.42 | 2021-06-01 |
| 2021 | 7 | 400116.30 | 2021-07-01 |
| 2021 | 8 | 392945.07 | 2021-08-01 |
| 2021 | 9 | 375571.56 | 2021-09-01 |
| 2021 | 10 | 441425.94 | 2021-10-01 |
| 2021 | 11 | 503923.84 | 2021-11-01 |
| 2021 | 12 | 608599.31 | 2021-12-01 |
| 2022 | 1 | 398929.02 | 2022-01-01 |
| 2022 | 2 | 344108.08 | 2022-02-01 |
| 2022 | 3 | 366832.24 | 2022-03-01 |
| 2022 | 4 | 479610.28 | 2022-04-01 |
| 2022 | 5 | 669782.26 | 2022-05-01 |
| 2022 | 6 | 616457.44 | 2022-06-01 |
| 2022 | 7 | 540985.75 | 2022-07-01 |
| 2022 | 8 | 530524.87 | 2022-08-01 |
| 2022 | 9 | 510590.58 | 2022-09-01 |
| 2022 | 10 | 614907.36 | 2022-10-01 |
| 2022 | 11 | 736200.89 | 2022-11-01 |
| 2022 | 12 | 817665.03 | 2022-12-01 |
| 2023 | 1 | 568067.46 | 2023-01-01 |
| 2023 | 2 | 477297.07 | 2023-02-01 |
| 2023 | 3 | 577768.37 | 2023-03-01 |
| 2023 | 4 | 608208.92 | 2023-04-01 |
| 2023 | 5 | 699119.04 | 2023-05-01 |
| 2023 | 6 | 682889.59 | 2023-06-01 |
| 2023 | 7 | 574676.55 | 2023-07-01 |
| 2023 | 8 | 571171.72 | 2023-08-01 |
| 2023 | 9 | 572114.63 | 2023-09-01 |
| 2023 | 10 | 651203.73 | 2023-10-01 |
| 2023 | 11 | 757312.16 | 2023-11-01 |
| 2023 | 12 | 898480.62 | 2023-12-01 |
| 2024 | 1 | 549534.22 | 2024-01-01 |
| 2024 | 2 | 468779.94 | 2024-02-01 |
| 2024 | 3 | 553397.54 | 2024-03-01 |
A venda mensal total mostra a evolução do faturamento da empresa ao longo do tempo. Essa informação é útil para observar meses de maior movimento, períodos de queda e possíveis sazonalidades. Com essa análise, a empresa pode planejar melhor compras, estoque, metas e estratégias comerciais.
venda_mensal_vendedor <- vendas %>%
group_by(vendedor, ano, mes) %>%
summarise(
Total_Vendas_Mensais = sum(venda_diaria, na.rm = TRUE),
.groups = "drop"
) %>%
arrange(vendedor, ano, mes) %>%
mutate(periodo = as.Date(paste(ano, mes, "01", sep = "-")))
kable(venda_mensal_vendedor, digits = 2, caption = "Venda mensal total por vendedor")
| vendedor | ano | mes | Total_Vendas_Mensais | periodo |
|---|---|---|---|---|
| 101101 | 2018 | 1 | 40681.80 | 2018-01-01 |
| 101101 | 2018 | 2 | 41947.67 | 2018-02-01 |
| 101101 | 2018 | 3 | 39753.13 | 2018-03-01 |
| 101101 | 2018 | 4 | 40270.40 | 2018-04-01 |
| 101101 | 2018 | 5 | 60735.17 | 2018-05-01 |
| 101101 | 2018 | 6 | 37626.92 | 2018-06-01 |
| 101101 | 2018 | 7 | 52441.26 | 2018-07-01 |
| 101101 | 2018 | 8 | 34252.90 | 2018-08-01 |
| 101101 | 2018 | 9 | 30023.94 | 2018-09-01 |
| 101101 | 2018 | 10 | 41341.30 | 2018-10-01 |
| 101101 | 2018 | 11 | 51040.47 | 2018-11-01 |
| 101101 | 2018 | 12 | 39680.91 | 2018-12-01 |
| 101101 | 2019 | 1 | 41224.85 | 2019-01-01 |
| 101101 | 2019 | 2 | 29976.22 | 2019-02-01 |
| 101101 | 2019 | 3 | 39335.37 | 2019-03-01 |
| 101101 | 2019 | 4 | 45675.40 | 2019-04-01 |
| 101101 | 2019 | 5 | 62870.07 | 2019-05-01 |
| 101101 | 2019 | 6 | 42763.94 | 2019-06-01 |
| 101101 | 2019 | 7 | 22912.14 | 2019-07-01 |
| 101101 | 2019 | 8 | 33704.01 | 2019-08-01 |
| 101101 | 2019 | 9 | 43377.77 | 2019-09-01 |
| 101101 | 2019 | 10 | 38542.64 | 2019-10-01 |
| 101101 | 2019 | 11 | 45892.56 | 2019-11-01 |
| 101101 | 2019 | 12 | 59826.48 | 2019-12-01 |
| 101101 | 2020 | 1 | 41723.03 | 2020-01-01 |
| 101101 | 2020 | 2 | 40801.88 | 2020-02-01 |
| 101101 | 2020 | 3 | 36346.38 | 2020-03-01 |
| 101101 | 2020 | 4 | 57174.21 | 2020-04-01 |
| 101101 | 2020 | 5 | 46558.86 | 2020-05-01 |
| 101101 | 2020 | 6 | 55376.25 | 2020-06-01 |
| 101101 | 2020 | 7 | 31939.62 | 2020-07-01 |
| 101101 | 2020 | 8 | 34637.89 | 2020-08-01 |
| 101101 | 2020 | 9 | 46056.07 | 2020-09-01 |
| 101101 | 2020 | 10 | 41511.59 | 2020-10-01 |
| 101101 | 2020 | 11 | 55041.55 | 2020-11-01 |
| 101101 | 2020 | 12 | 57423.68 | 2020-12-01 |
| 101101 | 2021 | 1 | 47447.76 | 2021-01-01 |
| 101101 | 2021 | 2 | 38324.18 | 2021-02-01 |
| 101101 | 2021 | 3 | 44383.22 | 2021-03-01 |
| 101101 | 2021 | 4 | 53238.65 | 2021-04-01 |
| 101101 | 2021 | 5 | 53321.54 | 2021-05-01 |
| 101101 | 2021 | 6 | 56447.64 | 2021-06-01 |
| 101101 | 2021 | 7 | 55493.95 | 2021-07-01 |
| 101101 | 2021 | 8 | 51480.23 | 2021-08-01 |
| 101101 | 2021 | 9 | 31795.73 | 2021-09-01 |
| 101101 | 2021 | 10 | 45357.13 | 2021-10-01 |
| 101101 | 2021 | 11 | 65867.85 | 2021-11-01 |
| 101101 | 2021 | 12 | 62318.68 | 2021-12-01 |
| 101101 | 2022 | 1 | 44862.95 | 2022-01-01 |
| 101101 | 2022 | 2 | 37567.03 | 2022-02-01 |
| 101101 | 2022 | 3 | 38841.08 | 2022-03-01 |
| 101101 | 2022 | 4 | 71495.72 | 2022-04-01 |
| 101101 | 2022 | 5 | 53722.20 | 2022-05-01 |
| 101101 | 2022 | 6 | 39531.22 | 2022-06-01 |
| 101101 | 2022 | 7 | 48382.74 | 2022-07-01 |
| 101101 | 2022 | 8 | 43965.06 | 2022-08-01 |
| 101101 | 2022 | 9 | 33527.00 | 2022-09-01 |
| 101101 | 2022 | 10 | 56199.89 | 2022-10-01 |
| 101101 | 2022 | 11 | 72540.26 | 2022-11-01 |
| 101101 | 2022 | 12 | 71716.98 | 2022-12-01 |
| 101101 | 2023 | 1 | 45169.53 | 2023-01-01 |
| 101101 | 2023 | 2 | 47677.66 | 2023-02-01 |
| 101101 | 2023 | 3 | 35270.33 | 2023-03-01 |
| 101101 | 2023 | 4 | 44725.80 | 2023-04-01 |
| 101101 | 2023 | 5 | 55171.66 | 2023-05-01 |
| 101101 | 2023 | 6 | 41878.86 | 2023-06-01 |
| 101101 | 2023 | 7 | 33125.65 | 2023-07-01 |
| 101101 | 2023 | 8 | 43020.87 | 2023-08-01 |
| 101101 | 2023 | 9 | 50643.02 | 2023-09-01 |
| 101101 | 2023 | 10 | 49500.21 | 2023-10-01 |
| 101101 | 2023 | 11 | 63300.72 | 2023-11-01 |
| 101101 | 2023 | 12 | 76105.38 | 2023-12-01 |
| 101101 | 2024 | 1 | 43886.63 | 2024-01-01 |
| 101101 | 2024 | 2 | 44546.65 | 2024-02-01 |
| 101101 | 2024 | 3 | 37178.72 | 2024-03-01 |
| 101102 | 2018 | 1 | 60886.13 | 2018-01-01 |
| 101102 | 2018 | 2 | 42619.18 | 2018-02-01 |
| 101102 | 2018 | 3 | 45777.00 | 2018-03-01 |
| 101102 | 2018 | 4 | 58540.66 | 2018-04-01 |
| 101102 | 2018 | 5 | 59490.51 | 2018-05-01 |
| 101102 | 2018 | 6 | 59992.91 | 2018-06-01 |
| 101102 | 2018 | 7 | 30977.92 | 2018-07-01 |
| 101102 | 2018 | 8 | 49979.25 | 2018-08-01 |
| 101102 | 2018 | 9 | 55287.71 | 2018-09-01 |
| 101102 | 2018 | 10 | 42099.44 | 2018-10-01 |
| 101102 | 2018 | 11 | 52017.64 | 2018-11-01 |
| 101102 | 2018 | 12 | 67636.95 | 2018-12-01 |
| 101102 | 2019 | 1 | 48626.39 | 2019-01-01 |
| 101102 | 2019 | 2 | 40099.17 | 2019-02-01 |
| 101102 | 2019 | 3 | 43901.94 | 2019-03-01 |
| 101102 | 2019 | 4 | 40445.01 | 2019-04-01 |
| 101102 | 2019 | 5 | 47833.10 | 2019-05-01 |
| 101102 | 2019 | 6 | 61289.65 | 2019-06-01 |
| 101102 | 2019 | 7 | 47540.56 | 2019-07-01 |
| 101102 | 2019 | 8 | 62335.37 | 2019-08-01 |
| 101102 | 2019 | 9 | 53614.69 | 2019-09-01 |
| 101102 | 2019 | 10 | 61192.03 | 2019-10-01 |
| 101102 | 2019 | 11 | 54301.42 | 2019-11-01 |
| 101102 | 2019 | 12 | 94872.18 | 2019-12-01 |
| 101102 | 2020 | 1 | 38565.85 | 2020-01-01 |
| 101102 | 2020 | 2 | 33627.55 | 2020-02-01 |
| 101102 | 2020 | 3 | 48784.70 | 2020-03-01 |
| 101102 | 2020 | 4 | 53038.01 | 2020-04-01 |
| 101102 | 2020 | 5 | 66041.61 | 2020-05-01 |
| 101102 | 2020 | 6 | 49906.18 | 2020-06-01 |
| 101102 | 2020 | 7 | 50975.88 | 2020-07-01 |
| 101102 | 2020 | 8 | 33748.93 | 2020-08-01 |
| 101102 | 2020 | 9 | 47629.52 | 2020-09-01 |
| 101102 | 2020 | 10 | 42814.18 | 2020-10-01 |
| 101102 | 2020 | 11 | 61986.54 | 2020-11-01 |
| 101102 | 2020 | 12 | 90890.89 | 2020-12-01 |
| 101102 | 2021 | 1 | 60906.04 | 2021-01-01 |
| 101102 | 2021 | 2 | 23835.06 | 2021-02-01 |
| 101102 | 2021 | 3 | 65606.24 | 2021-03-01 |
| 101102 | 2021 | 4 | 45976.78 | 2021-04-01 |
| 101102 | 2021 | 5 | 38404.23 | 2021-05-01 |
| 101102 | 2021 | 6 | 49060.50 | 2021-06-01 |
| 101102 | 2021 | 7 | 38758.11 | 2021-07-01 |
| 101102 | 2021 | 8 | 49200.11 | 2021-08-01 |
| 101102 | 2021 | 9 | 63058.72 | 2021-09-01 |
| 101102 | 2021 | 10 | 56906.38 | 2021-10-01 |
| 101102 | 2021 | 11 | 63786.96 | 2021-11-01 |
| 101102 | 2021 | 12 | 78153.60 | 2021-12-01 |
| 101102 | 2022 | 1 | 55255.92 | 2022-01-01 |
| 101102 | 2022 | 2 | 34207.18 | 2022-02-01 |
| 101102 | 2022 | 3 | 47499.21 | 2022-03-01 |
| 101102 | 2022 | 4 | 62037.36 | 2022-04-01 |
| 101102 | 2022 | 5 | 46808.94 | 2022-05-01 |
| 101102 | 2022 | 6 | 55693.53 | 2022-06-01 |
| 101102 | 2022 | 7 | 67518.71 | 2022-07-01 |
| 101102 | 2022 | 8 | 44106.31 | 2022-08-01 |
| 101102 | 2022 | 9 | 38518.99 | 2022-09-01 |
| 101102 | 2022 | 10 | 49778.25 | 2022-10-01 |
| 101102 | 2022 | 11 | 67588.72 | 2022-11-01 |
| 101102 | 2022 | 12 | 85524.24 | 2022-12-01 |
| 101102 | 2023 | 1 | 46544.32 | 2023-01-01 |
| 101102 | 2023 | 2 | 50858.30 | 2023-02-01 |
| 101102 | 2023 | 3 | 52274.98 | 2023-03-01 |
| 101102 | 2023 | 4 | 56676.20 | 2023-04-01 |
| 101102 | 2023 | 5 | 44685.25 | 2023-05-01 |
| 101102 | 2023 | 6 | 75753.23 | 2023-06-01 |
| 101102 | 2023 | 7 | 54960.13 | 2023-07-01 |
| 101102 | 2023 | 8 | 54417.98 | 2023-08-01 |
| 101102 | 2023 | 9 | 54924.12 | 2023-09-01 |
| 101102 | 2023 | 10 | 75660.18 | 2023-10-01 |
| 101102 | 2023 | 11 | 54897.82 | 2023-11-01 |
| 101102 | 2023 | 12 | 95026.18 | 2023-12-01 |
| 101102 | 2024 | 1 | 47541.22 | 2024-01-01 |
| 101102 | 2024 | 2 | 33181.72 | 2024-02-01 |
| 101102 | 2024 | 3 | 46217.34 | 2024-03-01 |
| 101103 | 2018 | 8 | 40107.16 | 2018-08-01 |
| 101103 | 2018 | 9 | 35670.44 | 2018-09-01 |
| 101103 | 2018 | 10 | 44367.16 | 2018-10-01 |
| 101103 | 2018 | 11 | 52227.15 | 2018-11-01 |
| 101103 | 2018 | 12 | 80051.95 | 2018-12-01 |
| 101103 | 2019 | 1 | 46275.76 | 2019-01-01 |
| 101103 | 2019 | 2 | 28855.88 | 2019-02-01 |
| 101103 | 2019 | 3 | 31042.89 | 2019-03-01 |
| 101103 | 2019 | 4 | 40840.01 | 2019-04-01 |
| 101103 | 2019 | 5 | 60529.89 | 2019-05-01 |
| 101103 | 2019 | 6 | 45861.16 | 2019-06-01 |
| 101103 | 2019 | 7 | 36800.07 | 2019-07-01 |
| 101103 | 2019 | 8 | 45402.24 | 2019-08-01 |
| 101103 | 2019 | 9 | 32491.68 | 2019-09-01 |
| 101103 | 2019 | 10 | 29469.33 | 2019-10-01 |
| 101103 | 2019 | 11 | 57024.57 | 2019-11-01 |
| 101103 | 2019 | 12 | 69231.29 | 2019-12-01 |
| 101103 | 2020 | 1 | 34040.09 | 2020-01-01 |
| 101103 | 2020 | 2 | 34720.06 | 2020-02-01 |
| 101103 | 2020 | 3 | 53394.72 | 2020-03-01 |
| 101103 | 2020 | 4 | 56202.20 | 2020-04-01 |
| 101103 | 2020 | 5 | 61665.25 | 2020-05-01 |
| 101103 | 2020 | 6 | 42014.44 | 2020-06-01 |
| 101103 | 2020 | 7 | 42022.52 | 2020-07-01 |
| 101103 | 2020 | 8 | 45156.58 | 2020-08-01 |
| 101103 | 2020 | 9 | 55491.47 | 2020-09-01 |
| 101103 | 2020 | 10 | 50256.26 | 2020-10-01 |
| 101103 | 2020 | 11 | 56058.54 | 2020-11-01 |
| 101103 | 2020 | 12 | 67130.83 | 2020-12-01 |
| 101103 | 2021 | 1 | 36376.50 | 2021-01-01 |
| 101103 | 2021 | 2 | 33595.41 | 2021-02-01 |
| 101103 | 2021 | 3 | 33227.95 | 2021-03-01 |
| 101103 | 2021 | 4 | 59818.55 | 2021-04-01 |
| 101103 | 2021 | 5 | 58715.66 | 2021-05-01 |
| 101103 | 2021 | 6 | 62600.09 | 2021-06-01 |
| 101103 | 2021 | 7 | 51214.27 | 2021-07-01 |
| 101103 | 2021 | 8 | 53747.81 | 2021-08-01 |
| 101103 | 2021 | 9 | 45131.78 | 2021-09-01 |
| 101103 | 2021 | 10 | 59707.33 | 2021-10-01 |
| 101103 | 2021 | 11 | 56102.67 | 2021-11-01 |
| 101103 | 2021 | 12 | 63409.49 | 2021-12-01 |
| 101103 | 2022 | 1 | 51045.78 | 2022-01-01 |
| 101103 | 2022 | 2 | 34164.39 | 2022-02-01 |
| 101103 | 2022 | 3 | 45948.09 | 2022-03-01 |
| 101103 | 2022 | 4 | 45476.96 | 2022-04-01 |
| 101103 | 2022 | 5 | 53996.74 | 2022-05-01 |
| 101103 | 2022 | 6 | 46459.24 | 2022-06-01 |
| 101103 | 2022 | 7 | 29727.23 | 2022-07-01 |
| 101103 | 2022 | 8 | 45158.18 | 2022-08-01 |
| 101103 | 2022 | 9 | 54360.77 | 2022-09-01 |
| 101103 | 2022 | 10 | 67618.27 | 2022-10-01 |
| 101103 | 2022 | 11 | 63546.87 | 2022-11-01 |
| 101103 | 2022 | 12 | 49755.54 | 2022-12-01 |
| 101103 | 2023 | 1 | 47465.35 | 2023-01-01 |
| 101103 | 2023 | 2 | 49485.80 | 2023-02-01 |
| 101103 | 2023 | 3 | 53620.82 | 2023-03-01 |
| 101103 | 2023 | 4 | 62219.08 | 2023-04-01 |
| 101103 | 2023 | 5 | 55499.90 | 2023-05-01 |
| 101103 | 2023 | 6 | 56547.28 | 2023-06-01 |
| 101103 | 2023 | 7 | 59279.52 | 2023-07-01 |
| 101103 | 2023 | 8 | 60395.88 | 2023-08-01 |
| 101103 | 2023 | 9 | 58152.23 | 2023-09-01 |
| 101103 | 2023 | 10 | 44951.77 | 2023-10-01 |
| 101103 | 2023 | 11 | 92007.39 | 2023-11-01 |
| 101103 | 2023 | 12 | 86666.28 | 2023-12-01 |
| 101103 | 2024 | 1 | 41747.12 | 2024-01-01 |
| 101103 | 2024 | 2 | 46263.66 | 2024-02-01 |
| 101103 | 2024 | 3 | 44313.81 | 2024-03-01 |
| 101104 | 2019 | 10 | 33794.18 | 2019-10-01 |
| 101104 | 2019 | 11 | 49385.73 | 2019-11-01 |
| 101104 | 2019 | 12 | 65688.42 | 2019-12-01 |
| 101104 | 2020 | 1 | 46715.12 | 2020-01-01 |
| 101104 | 2020 | 2 | 29915.38 | 2020-02-01 |
| 101104 | 2020 | 3 | 42158.82 | 2020-03-01 |
| 101104 | 2020 | 4 | 34877.36 | 2020-04-01 |
| 101104 | 2020 | 5 | 57734.07 | 2020-05-01 |
| 101104 | 2020 | 6 | 39480.47 | 2020-06-01 |
| 101104 | 2020 | 7 | 38777.38 | 2020-07-01 |
| 101104 | 2020 | 8 | 30401.98 | 2020-08-01 |
| 101104 | 2020 | 9 | 36096.87 | 2020-09-01 |
| 101104 | 2020 | 10 | 40318.73 | 2020-10-01 |
| 101104 | 2020 | 11 | 56019.02 | 2020-11-01 |
| 101104 | 2020 | 12 | 62334.30 | 2020-12-01 |
| 101104 | 2021 | 1 | 36774.92 | 2021-01-01 |
| 101104 | 2021 | 2 | 25862.77 | 2021-02-01 |
| 101104 | 2021 | 3 | 38957.57 | 2021-03-01 |
| 101104 | 2021 | 4 | 43709.66 | 2021-04-01 |
| 101104 | 2021 | 5 | 46277.30 | 2021-05-01 |
| 101104 | 2021 | 6 | 52985.08 | 2021-06-01 |
| 101104 | 2021 | 7 | 31522.06 | 2021-07-01 |
| 101104 | 2021 | 8 | 37061.10 | 2021-08-01 |
| 101104 | 2021 | 9 | 35948.57 | 2021-09-01 |
| 101104 | 2021 | 10 | 58349.95 | 2021-10-01 |
| 101104 | 2021 | 11 | 63357.07 | 2021-11-01 |
| 101104 | 2021 | 12 | 72010.63 | 2021-12-01 |
| 101104 | 2022 | 1 | 49932.40 | 2022-01-01 |
| 101104 | 2022 | 2 | 27377.62 | 2022-02-01 |
| 101104 | 2022 | 3 | 33783.94 | 2022-03-01 |
| 101104 | 2022 | 4 | 34471.94 | 2022-04-01 |
| 101104 | 2022 | 5 | 68517.78 | 2022-05-01 |
| 101104 | 2022 | 6 | 52691.69 | 2022-06-01 |
| 101104 | 2022 | 7 | 46350.99 | 2022-07-01 |
| 101104 | 2022 | 8 | 37598.99 | 2022-08-01 |
| 101104 | 2022 | 9 | 43736.90 | 2022-09-01 |
| 101104 | 2022 | 10 | 47450.31 | 2022-10-01 |
| 101104 | 2022 | 11 | 54349.11 | 2022-11-01 |
| 101104 | 2022 | 12 | 68822.24 | 2022-12-01 |
| 101104 | 2023 | 1 | 48155.44 | 2023-01-01 |
| 101104 | 2023 | 2 | 31349.82 | 2023-02-01 |
| 101104 | 2023 | 3 | 53884.72 | 2023-03-01 |
| 101104 | 2023 | 4 | 41858.56 | 2023-04-01 |
| 101104 | 2023 | 5 | 57249.61 | 2023-05-01 |
| 101104 | 2023 | 6 | 65325.10 | 2023-06-01 |
| 101104 | 2023 | 7 | 36866.69 | 2023-07-01 |
| 101104 | 2023 | 8 | 39211.38 | 2023-08-01 |
| 101104 | 2023 | 9 | 38574.54 | 2023-09-01 |
| 101104 | 2023 | 10 | 50925.85 | 2023-10-01 |
| 101104 | 2023 | 11 | 68969.34 | 2023-11-01 |
| 101104 | 2023 | 12 | 57583.34 | 2023-12-01 |
| 101104 | 2024 | 1 | 41084.28 | 2024-01-01 |
| 101104 | 2024 | 2 | 40511.71 | 2024-02-01 |
| 101104 | 2024 | 3 | 48342.67 | 2024-03-01 |
| 101105 | 2019 | 10 | 42449.43 | 2019-10-01 |
| 101105 | 2019 | 11 | 65144.64 | 2019-11-01 |
| 101105 | 2019 | 12 | 57601.64 | 2019-12-01 |
| 101105 | 2020 | 1 | 30683.57 | 2020-01-01 |
| 101105 | 2020 | 2 | 28573.11 | 2020-02-01 |
| 101105 | 2020 | 3 | 38557.74 | 2020-03-01 |
| 101105 | 2020 | 4 | 46891.04 | 2020-04-01 |
| 101105 | 2020 | 5 | 54064.64 | 2020-05-01 |
| 101105 | 2020 | 6 | 55954.07 | 2020-06-01 |
| 101105 | 2020 | 7 | 43596.58 | 2020-07-01 |
| 101105 | 2020 | 8 | 39722.83 | 2020-08-01 |
| 101105 | 2020 | 9 | 46191.38 | 2020-09-01 |
| 101105 | 2020 | 10 | 42497.82 | 2020-10-01 |
| 101105 | 2020 | 11 | 55015.43 | 2020-11-01 |
| 101105 | 2020 | 12 | 62930.58 | 2020-12-01 |
| 101105 | 2021 | 1 | 48910.62 | 2021-01-01 |
| 101105 | 2021 | 2 | 32011.15 | 2021-02-01 |
| 101105 | 2021 | 3 | 49272.21 | 2021-03-01 |
| 101105 | 2021 | 4 | 43871.95 | 2021-04-01 |
| 101105 | 2021 | 5 | 59294.86 | 2021-05-01 |
| 101105 | 2021 | 6 | 50159.39 | 2021-06-01 |
| 101105 | 2021 | 7 | 53520.67 | 2021-07-01 |
| 101105 | 2021 | 8 | 52949.18 | 2021-08-01 |
| 101105 | 2021 | 9 | 44501.40 | 2021-09-01 |
| 101105 | 2021 | 10 | 41925.48 | 2021-10-01 |
| 101105 | 2021 | 11 | 46053.34 | 2021-11-01 |
| 101105 | 2021 | 12 | 76323.37 | 2021-12-01 |
| 101105 | 2022 | 1 | 53802.84 | 2022-01-01 |
| 101105 | 2022 | 2 | 41266.12 | 2022-02-01 |
| 101105 | 2022 | 3 | 37527.97 | 2022-03-01 |
| 101105 | 2022 | 4 | 67326.98 | 2022-04-01 |
| 101105 | 2022 | 5 | 38395.01 | 2022-05-01 |
| 101105 | 2022 | 6 | 51755.83 | 2022-06-01 |
| 101105 | 2022 | 7 | 47463.86 | 2022-07-01 |
| 101105 | 2022 | 8 | 29691.43 | 2022-08-01 |
| 101105 | 2022 | 9 | 50389.50 | 2022-09-01 |
| 101105 | 2022 | 10 | 42623.25 | 2022-10-01 |
| 101105 | 2022 | 11 | 60050.65 | 2022-11-01 |
| 101105 | 2022 | 12 | 65712.66 | 2022-12-01 |
| 101105 | 2023 | 1 | 54674.38 | 2023-01-01 |
| 101105 | 2023 | 2 | 40549.65 | 2023-02-01 |
| 101105 | 2023 | 3 | 50381.04 | 2023-03-01 |
| 101105 | 2023 | 4 | 59397.07 | 2023-04-01 |
| 101105 | 2023 | 5 | 58379.51 | 2023-05-01 |
| 101105 | 2023 | 6 | 53443.95 | 2023-06-01 |
| 101105 | 2023 | 7 | 53699.36 | 2023-07-01 |
| 101105 | 2023 | 8 | 56296.74 | 2023-08-01 |
| 101105 | 2023 | 9 | 41755.10 | 2023-09-01 |
| 101105 | 2023 | 10 | 49514.58 | 2023-10-01 |
| 101105 | 2023 | 11 | 55557.79 | 2023-11-01 |
| 101105 | 2023 | 12 | 76852.62 | 2023-12-01 |
| 101105 | 2024 | 1 | 55530.18 | 2024-01-01 |
| 101105 | 2024 | 2 | 38729.36 | 2024-02-01 |
| 101105 | 2024 | 3 | 55186.72 | 2024-03-01 |
| 101106 | 2019 | 10 | 37548.02 | 2019-10-01 |
| 101106 | 2019 | 11 | 49206.99 | 2019-11-01 |
| 101106 | 2019 | 12 | 70671.43 | 2019-12-01 |
| 101106 | 2020 | 1 | 42163.70 | 2020-01-01 |
| 101106 | 2020 | 2 | 28291.89 | 2020-02-01 |
| 101106 | 2020 | 3 | 44241.16 | 2020-03-01 |
| 101106 | 2020 | 4 | 38296.63 | 2020-04-01 |
| 101106 | 2020 | 5 | 52844.38 | 2020-05-01 |
| 101106 | 2020 | 6 | 38589.21 | 2020-06-01 |
| 101106 | 2020 | 7 | 29265.36 | 2020-07-01 |
| 101106 | 2020 | 8 | 38487.96 | 2020-08-01 |
| 101106 | 2020 | 9 | 42207.37 | 2020-09-01 |
| 101106 | 2020 | 10 | 37963.25 | 2020-10-01 |
| 101106 | 2020 | 11 | 59080.63 | 2020-11-01 |
| 101106 | 2020 | 12 | 75311.16 | 2020-12-01 |
| 101106 | 2021 | 1 | 30655.78 | 2021-01-01 |
| 101106 | 2021 | 2 | 38480.01 | 2021-02-01 |
| 101106 | 2021 | 3 | 39078.94 | 2021-03-01 |
| 101106 | 2021 | 4 | 39281.75 | 2021-04-01 |
| 101106 | 2021 | 5 | 54357.39 | 2021-05-01 |
| 101106 | 2021 | 6 | 41095.05 | 2021-06-01 |
| 101106 | 2021 | 7 | 33558.33 | 2021-07-01 |
| 101106 | 2021 | 8 | 36138.42 | 2021-08-01 |
| 101106 | 2021 | 9 | 35000.16 | 2021-09-01 |
| 101106 | 2021 | 10 | 38592.88 | 2021-10-01 |
| 101106 | 2021 | 11 | 49079.87 | 2021-11-01 |
| 101106 | 2021 | 12 | 46704.00 | 2021-12-01 |
| 101106 | 2022 | 1 | 38842.32 | 2022-01-01 |
| 101106 | 2022 | 2 | 49873.47 | 2022-02-01 |
| 101106 | 2022 | 3 | 32980.65 | 2022-03-01 |
| 101106 | 2022 | 4 | 55487.60 | 2022-04-01 |
| 101106 | 2022 | 5 | 60911.80 | 2022-05-01 |
| 101106 | 2022 | 6 | 43988.99 | 2022-06-01 |
| 101106 | 2022 | 7 | 33318.68 | 2022-07-01 |
| 101106 | 2022 | 8 | 44194.64 | 2022-08-01 |
| 101106 | 2022 | 9 | 52064.92 | 2022-09-01 |
| 101106 | 2022 | 10 | 53858.19 | 2022-10-01 |
| 101106 | 2022 | 11 | 64545.39 | 2022-11-01 |
| 101106 | 2022 | 12 | 53160.32 | 2022-12-01 |
| 101106 | 2023 | 1 | 40549.52 | 2023-01-01 |
| 101106 | 2023 | 2 | 25910.63 | 2023-02-01 |
| 101106 | 2023 | 3 | 52192.52 | 2023-03-01 |
| 101106 | 2023 | 4 | 54543.35 | 2023-04-01 |
| 101106 | 2023 | 5 | 80185.63 | 2023-05-01 |
| 101106 | 2023 | 6 | 54460.64 | 2023-06-01 |
| 101106 | 2023 | 7 | 42205.96 | 2023-07-01 |
| 101106 | 2023 | 8 | 45039.40 | 2023-08-01 |
| 101106 | 2023 | 9 | 48898.60 | 2023-09-01 |
| 101106 | 2023 | 10 | 35861.74 | 2023-10-01 |
| 101106 | 2023 | 11 | 48334.42 | 2023-11-01 |
| 101106 | 2023 | 12 | 54848.14 | 2023-12-01 |
| 101106 | 2024 | 1 | 38536.49 | 2024-01-01 |
| 101106 | 2024 | 2 | 43693.53 | 2024-02-01 |
| 101106 | 2024 | 3 | 43376.99 | 2024-03-01 |
| 101107 | 2020 | 3 | 37411.23 | 2020-03-01 |
| 101107 | 2020 | 4 | 56681.90 | 2020-04-01 |
| 101107 | 2020 | 5 | 57528.10 | 2020-05-01 |
| 101107 | 2020 | 6 | 47267.98 | 2020-06-01 |
| 101107 | 2020 | 7 | 39980.54 | 2020-07-01 |
| 101107 | 2020 | 8 | 42331.26 | 2020-08-01 |
| 101107 | 2020 | 9 | 33294.96 | 2020-09-01 |
| 101107 | 2020 | 10 | 50274.04 | 2020-10-01 |
| 101107 | 2020 | 11 | 48352.69 | 2020-11-01 |
| 101107 | 2020 | 12 | 51632.93 | 2020-12-01 |
| 101107 | 2021 | 1 | 31529.34 | 2021-01-01 |
| 101107 | 2021 | 2 | 38842.04 | 2021-02-01 |
| 101107 | 2021 | 3 | 30994.21 | 2021-03-01 |
| 101107 | 2021 | 4 | 46837.09 | 2021-04-01 |
| 101107 | 2021 | 5 | 59902.15 | 2021-05-01 |
| 101107 | 2021 | 6 | 56710.53 | 2021-06-01 |
| 101107 | 2021 | 7 | 45639.08 | 2021-07-01 |
| 101107 | 2021 | 8 | 37714.43 | 2021-08-01 |
| 101107 | 2021 | 9 | 18645.64 | 2021-09-01 |
| 101107 | 2021 | 10 | 52331.33 | 2021-10-01 |
| 101107 | 2021 | 11 | 39344.72 | 2021-11-01 |
| 101107 | 2021 | 12 | 71135.85 | 2021-12-01 |
| 101107 | 2022 | 1 | 30047.33 | 2022-01-01 |
| 101107 | 2022 | 2 | 48633.94 | 2022-02-01 |
| 101107 | 2022 | 3 | 40480.66 | 2022-03-01 |
| 101107 | 2022 | 4 | 36265.17 | 2022-04-01 |
| 101107 | 2022 | 5 | 47390.38 | 2022-05-01 |
| 101107 | 2022 | 6 | 39575.81 | 2022-06-01 |
| 101107 | 2022 | 7 | 38074.92 | 2022-07-01 |
| 101107 | 2022 | 8 | 53896.20 | 2022-08-01 |
| 101107 | 2022 | 9 | 47856.28 | 2022-09-01 |
| 101107 | 2022 | 10 | 38500.05 | 2022-10-01 |
| 101107 | 2022 | 11 | 36167.03 | 2022-11-01 |
| 101107 | 2022 | 12 | 64409.32 | 2022-12-01 |
| 101107 | 2023 | 1 | 33212.71 | 2023-01-01 |
| 101107 | 2023 | 2 | 33408.24 | 2023-02-01 |
| 101107 | 2023 | 3 | 46666.91 | 2023-03-01 |
| 101107 | 2023 | 4 | 47119.40 | 2023-04-01 |
| 101107 | 2023 | 5 | 51355.69 | 2023-05-01 |
| 101107 | 2023 | 6 | 49539.90 | 2023-06-01 |
| 101107 | 2023 | 7 | 36181.39 | 2023-07-01 |
| 101107 | 2023 | 8 | 40788.21 | 2023-08-01 |
| 101107 | 2023 | 9 | 54367.96 | 2023-09-01 |
| 101107 | 2023 | 10 | 48918.53 | 2023-10-01 |
| 101107 | 2023 | 11 | 66891.38 | 2023-11-01 |
| 101107 | 2023 | 12 | 62666.69 | 2023-12-01 |
| 101107 | 2024 | 1 | 37202.57 | 2024-01-01 |
| 101107 | 2024 | 2 | 27816.98 | 2024-02-01 |
| 101107 | 2024 | 3 | 49625.06 | 2024-03-01 |
| 101108 | 2020 | 3 | 40287.20 | 2020-03-01 |
| 101108 | 2020 | 4 | 39834.30 | 2020-04-01 |
| 101108 | 2020 | 5 | 59674.79 | 2020-05-01 |
| 101108 | 2020 | 6 | 55556.24 | 2020-06-01 |
| 101108 | 2020 | 7 | 42364.64 | 2020-07-01 |
| 101108 | 2020 | 8 | 44083.46 | 2020-08-01 |
| 101108 | 2020 | 9 | 52584.44 | 2020-09-01 |
| 101108 | 2020 | 10 | 43293.87 | 2020-10-01 |
| 101108 | 2020 | 11 | 61969.09 | 2020-11-01 |
| 101108 | 2020 | 12 | 68630.77 | 2020-12-01 |
| 101108 | 2021 | 1 | 34525.65 | 2021-01-01 |
| 101108 | 2021 | 2 | 37742.07 | 2021-02-01 |
| 101108 | 2021 | 3 | 48854.68 | 2021-03-01 |
| 101108 | 2021 | 4 | 53487.21 | 2021-04-01 |
| 101108 | 2021 | 5 | 50197.82 | 2021-05-01 |
| 101108 | 2021 | 6 | 56985.85 | 2021-06-01 |
| 101108 | 2021 | 7 | 45505.89 | 2021-07-01 |
| 101108 | 2021 | 8 | 38917.57 | 2021-08-01 |
| 101108 | 2021 | 9 | 56213.38 | 2021-09-01 |
| 101108 | 2021 | 10 | 47959.59 | 2021-10-01 |
| 101108 | 2021 | 11 | 63126.13 | 2021-11-01 |
| 101108 | 2021 | 12 | 82214.15 | 2021-12-01 |
| 101108 | 2022 | 1 | 34230.79 | 2022-01-01 |
| 101108 | 2022 | 2 | 41191.62 | 2022-02-01 |
| 101108 | 2022 | 3 | 58873.65 | 2022-03-01 |
| 101108 | 2022 | 4 | 67481.57 | 2022-04-01 |
| 101108 | 2022 | 5 | 76864.17 | 2022-05-01 |
| 101108 | 2022 | 6 | 37195.79 | 2022-06-01 |
| 101108 | 2022 | 7 | 51102.40 | 2022-07-01 |
| 101108 | 2022 | 8 | 50987.90 | 2022-08-01 |
| 101108 | 2022 | 9 | 39343.09 | 2022-09-01 |
| 101108 | 2022 | 10 | 42726.22 | 2022-10-01 |
| 101108 | 2022 | 11 | 59484.86 | 2022-11-01 |
| 101108 | 2022 | 12 | 60823.14 | 2022-12-01 |
| 101108 | 2023 | 1 | 39263.91 | 2023-01-01 |
| 101108 | 2023 | 2 | 31232.69 | 2023-02-01 |
| 101108 | 2023 | 3 | 39938.08 | 2023-03-01 |
| 101108 | 2023 | 4 | 42656.60 | 2023-04-01 |
| 101108 | 2023 | 5 | 70100.10 | 2023-05-01 |
| 101108 | 2023 | 6 | 62499.65 | 2023-06-01 |
| 101108 | 2023 | 7 | 52787.92 | 2023-07-01 |
| 101108 | 2023 | 8 | 35130.81 | 2023-08-01 |
| 101108 | 2023 | 9 | 46627.42 | 2023-09-01 |
| 101108 | 2023 | 10 | 59917.05 | 2023-10-01 |
| 101108 | 2023 | 11 | 56113.58 | 2023-11-01 |
| 101108 | 2023 | 12 | 82224.56 | 2023-12-01 |
| 101108 | 2024 | 1 | 36358.63 | 2024-01-01 |
| 101108 | 2024 | 2 | 37009.96 | 2024-02-01 |
| 101108 | 2024 | 3 | 37490.39 | 2024-03-01 |
| 101109 | 2022 | 5 | 39008.32 | 2022-05-01 |
| 101109 | 2022 | 6 | 58234.50 | 2022-06-01 |
| 101109 | 2022 | 7 | 36848.68 | 2022-07-01 |
| 101109 | 2022 | 8 | 51849.04 | 2022-08-01 |
| 101109 | 2022 | 9 | 29144.07 | 2022-09-01 |
| 101109 | 2022 | 10 | 52264.97 | 2022-10-01 |
| 101109 | 2022 | 11 | 74003.36 | 2022-11-01 |
| 101109 | 2022 | 12 | 67959.96 | 2022-12-01 |
| 101109 | 2023 | 1 | 69639.75 | 2023-01-01 |
| 101109 | 2023 | 2 | 55192.42 | 2023-02-01 |
| 101109 | 2023 | 3 | 52421.49 | 2023-03-01 |
| 101109 | 2023 | 4 | 56328.50 | 2023-04-01 |
| 101109 | 2023 | 5 | 57419.20 | 2023-05-01 |
| 101109 | 2023 | 6 | 75135.38 | 2023-06-01 |
| 101109 | 2023 | 7 | 57240.51 | 2023-07-01 |
| 101109 | 2023 | 8 | 49776.84 | 2023-08-01 |
| 101109 | 2023 | 9 | 50912.83 | 2023-09-01 |
| 101109 | 2023 | 10 | 79406.41 | 2023-10-01 |
| 101109 | 2023 | 11 | 71912.10 | 2023-11-01 |
| 101109 | 2023 | 12 | 83162.48 | 2023-12-01 |
| 101109 | 2024 | 1 | 60652.90 | 2024-01-01 |
| 101109 | 2024 | 2 | 33987.64 | 2024-02-01 |
| 101109 | 2024 | 3 | 33693.06 | 2024-03-01 |
| 101110 | 2022 | 5 | 45843.15 | 2022-05-01 |
| 101110 | 2022 | 6 | 61213.07 | 2022-06-01 |
| 101110 | 2022 | 7 | 47587.43 | 2022-07-01 |
| 101110 | 2022 | 8 | 49755.38 | 2022-08-01 |
| 101110 | 2022 | 9 | 38668.54 | 2022-09-01 |
| 101110 | 2022 | 10 | 51085.62 | 2022-10-01 |
| 101110 | 2022 | 11 | 50252.76 | 2022-11-01 |
| 101110 | 2022 | 12 | 54660.01 | 2022-12-01 |
| 101110 | 2023 | 1 | 42327.50 | 2023-01-01 |
| 101110 | 2023 | 2 | 33983.23 | 2023-02-01 |
| 101110 | 2023 | 3 | 36725.08 | 2023-03-01 |
| 101110 | 2023 | 4 | 49210.58 | 2023-04-01 |
| 101110 | 2023 | 5 | 57250.94 | 2023-05-01 |
| 101110 | 2023 | 6 | 50591.92 | 2023-06-01 |
| 101110 | 2023 | 7 | 50021.23 | 2023-07-01 |
| 101110 | 2023 | 8 | 45758.96 | 2023-08-01 |
| 101110 | 2023 | 9 | 43033.40 | 2023-09-01 |
| 101110 | 2023 | 10 | 52427.85 | 2023-10-01 |
| 101110 | 2023 | 11 | 70183.22 | 2023-11-01 |
| 101110 | 2023 | 12 | 55249.31 | 2023-12-01 |
| 101110 | 2024 | 1 | 59893.54 | 2024-01-01 |
| 101110 | 2024 | 2 | 37693.37 | 2024-02-01 |
| 101110 | 2024 | 3 | 41738.19 | 2024-03-01 |
| 102111 | 2019 | 10 | 45630.18 | 2019-10-01 |
| 102111 | 2019 | 11 | 34403.84 | 2019-11-01 |
| 102111 | 2019 | 12 | 50369.84 | 2019-12-01 |
| 102111 | 2020 | 1 | 37581.29 | 2020-01-01 |
| 102111 | 2020 | 2 | 26603.22 | 2020-02-01 |
| 102111 | 2020 | 3 | 41200.13 | 2020-03-01 |
| 102111 | 2020 | 4 | 38072.67 | 2020-04-01 |
| 102111 | 2020 | 5 | 61485.00 | 2020-05-01 |
| 102111 | 2020 | 6 | 32228.27 | 2020-06-01 |
| 102111 | 2020 | 7 | 32285.54 | 2020-07-01 |
| 102111 | 2020 | 8 | 22713.86 | 2020-08-01 |
| 102111 | 2020 | 9 | 41220.66 | 2020-09-01 |
| 102111 | 2020 | 10 | 38328.61 | 2020-10-01 |
| 102111 | 2020 | 11 | 52136.13 | 2020-11-01 |
| 102111 | 2020 | 12 | 59550.84 | 2020-12-01 |
| 102111 | 2021 | 1 | 33599.70 | 2021-01-01 |
| 102111 | 2021 | 2 | 32729.34 | 2021-02-01 |
| 102111 | 2021 | 3 | 35127.02 | 2021-03-01 |
| 102111 | 2021 | 4 | 43948.96 | 2021-04-01 |
| 102111 | 2021 | 5 | 62863.33 | 2021-05-01 |
| 102111 | 2021 | 6 | 49978.29 | 2021-06-01 |
| 102111 | 2021 | 7 | 44903.94 | 2021-07-01 |
| 102111 | 2021 | 8 | 35736.22 | 2021-08-01 |
| 102111 | 2021 | 9 | 45276.18 | 2021-09-01 |
| 102111 | 2021 | 10 | 40295.87 | 2021-10-01 |
| 102111 | 2021 | 11 | 57205.23 | 2021-11-01 |
| 102111 | 2021 | 12 | 56329.54 | 2021-12-01 |
| 102111 | 2022 | 1 | 40908.69 | 2022-01-01 |
| 102111 | 2022 | 2 | 29826.71 | 2022-02-01 |
| 102111 | 2022 | 3 | 30896.99 | 2022-03-01 |
| 102111 | 2022 | 4 | 39566.98 | 2022-04-01 |
| 102111 | 2022 | 5 | 63356.50 | 2022-05-01 |
| 102111 | 2022 | 6 | 62146.51 | 2022-06-01 |
| 102111 | 2022 | 7 | 43699.03 | 2022-07-01 |
| 102111 | 2022 | 8 | 27354.80 | 2022-08-01 |
| 102111 | 2022 | 9 | 37341.67 | 2022-09-01 |
| 102111 | 2022 | 10 | 51251.84 | 2022-10-01 |
| 102111 | 2022 | 11 | 54907.09 | 2022-11-01 |
| 102111 | 2022 | 12 | 77431.22 | 2022-12-01 |
| 102111 | 2023 | 1 | 50018.82 | 2023-01-01 |
| 102111 | 2023 | 2 | 34667.70 | 2023-02-01 |
| 102111 | 2023 | 3 | 47380.27 | 2023-03-01 |
| 102111 | 2023 | 4 | 33408.09 | 2023-04-01 |
| 102111 | 2023 | 5 | 49778.63 | 2023-05-01 |
| 102111 | 2023 | 6 | 51324.63 | 2023-06-01 |
| 102111 | 2023 | 7 | 45631.93 | 2023-07-01 |
| 102111 | 2023 | 8 | 42452.77 | 2023-08-01 |
| 102111 | 2023 | 9 | 39394.53 | 2023-09-01 |
| 102111 | 2023 | 10 | 48633.20 | 2023-10-01 |
| 102111 | 2023 | 11 | 63571.54 | 2023-11-01 |
| 102111 | 2023 | 12 | 84882.05 | 2023-12-01 |
| 102111 | 2024 | 1 | 52158.11 | 2024-01-01 |
| 102111 | 2024 | 2 | 36653.85 | 2024-02-01 |
| 102111 | 2024 | 3 | 50860.12 | 2024-03-01 |
| 102112 | 2022 | 5 | 74967.27 | 2022-05-01 |
| 102112 | 2022 | 6 | 67971.26 | 2022-06-01 |
| 102112 | 2022 | 7 | 50911.08 | 2022-07-01 |
| 102112 | 2022 | 8 | 51966.94 | 2022-08-01 |
| 102112 | 2022 | 9 | 45638.85 | 2022-09-01 |
| 102112 | 2022 | 10 | 61550.50 | 2022-10-01 |
| 102112 | 2022 | 11 | 78764.79 | 2022-11-01 |
| 102112 | 2022 | 12 | 97689.40 | 2022-12-01 |
| 102112 | 2023 | 1 | 51046.23 | 2023-01-01 |
| 102112 | 2023 | 2 | 42980.93 | 2023-02-01 |
| 102112 | 2023 | 3 | 57012.13 | 2023-03-01 |
| 102112 | 2023 | 4 | 60065.69 | 2023-04-01 |
| 102112 | 2023 | 5 | 62042.92 | 2023-05-01 |
| 102112 | 2023 | 6 | 46389.05 | 2023-06-01 |
| 102112 | 2023 | 7 | 52676.26 | 2023-07-01 |
| 102112 | 2023 | 8 | 58881.88 | 2023-08-01 |
| 102112 | 2023 | 9 | 44830.88 | 2023-09-01 |
| 102112 | 2023 | 10 | 55486.36 | 2023-10-01 |
| 102112 | 2023 | 11 | 45572.86 | 2023-11-01 |
| 102112 | 2023 | 12 | 83213.59 | 2023-12-01 |
| 102112 | 2024 | 1 | 34942.55 | 2024-01-01 |
| 102112 | 2024 | 2 | 48691.51 | 2024-02-01 |
| 102112 | 2024 | 3 | 65374.47 | 2024-03-01 |
A análise mensal por vendedor permite observar se o desempenho individual é constante ou se apresenta grandes oscilações. Esse tipo de resultado pode ajudar a identificar vendedores com desempenho estável, vendedores em crescimento e vendedores que necessitam de acompanhamento ou treinamento.
ggplot(estatisticas_vendedor,
aes(x = reorder(vendedor, Venda_Total), y = Venda_Total)) +
geom_col() +
coord_flip() +
scale_y_continuous(labels = label_number(big.mark = ".", decimal.mark = ",")) +
labs(
title = "Venda Total por Vendedor",
x = "Vendedor",
y = "Venda Total"
) +
theme_minimal()
O gráfico de barras facilita a comparação do faturamento acumulado entre os vendedores. Os vendedores com barras maiores representam maior participação no resultado total da empresa.
ggplot(venda_mensal_geral,
aes(x = periodo, y = Total_Vendas, group = 1)) +
geom_line() +
geom_point() +
scale_y_continuous(labels = label_number(big.mark = ".", decimal.mark = ",")) +
labs(
title = "Tendência Geral das Vendas Mensais da Empresa",
x = "Período",
y = "Total de Vendas"
) +
theme_minimal()
O gráfico de linhas mostra a evolução mensal das vendas totais da empresa. Ele permite visualizar momentos de crescimento, estabilidade ou queda no faturamento.
ggplot(venda_mensal_vendedor,
aes(x = periodo, y = Total_Vendas_Mensais, group = vendedor)) +
geom_line() +
geom_point() +
facet_wrap(~ vendedor, scales = "free_y") +
scale_y_continuous(labels = label_number(big.mark = ".", decimal.mark = ",")) +
labs(
title = "Vendas Mensais por Vendedor",
x = "Período",
y = "Total de Vendas Mensais"
) +
theme_minimal()
Os gráficos facetados mostram o comportamento mensal de cada vendedor
separadamente. O uso de scales = "free_y" permite que cada
vendedor tenha sua própria escala no eixo Y, facilitando a leitura mesmo
quando existem diferenças grandes entre os volumes de venda.
ggplot(vendas, aes(x = venda_diaria)) +
geom_histogram(bins = 30) +
scale_x_continuous(labels = label_number(big.mark = ".", decimal.mark = ",")) +
labs(
title = "Distribuição das Vendas Diárias",
x = "Venda Diária",
y = "Frequência"
) +
theme_minimal()
O histograma mostra a distribuição dos valores de venda diária. Essa visualização ajuda a identificar em quais faixas de valores as vendas mais se concentram e se existem valores muito altos ou muito baixos em relação ao padrão geral.
ggplot(vendas, aes(x = factor(mes), y = venda_diaria)) +
geom_boxplot() +
scale_y_continuous(labels = label_number(big.mark = ".", decimal.mark = ",")) +
labs(
title = "Vendas Diárias por Mês",
x = "Mês",
y = "Venda Diária"
) +
theme_minimal()
O boxplot por mês apresenta a mediana, a variação e possíveis valores extremos das vendas diárias. Com isso, é possível comparar a regularidade das vendas entre os meses e observar meses com maior dispersão nos valores.
ggplot(vendas, aes(x = vendedor, y = venda_diaria)) +
geom_boxplot() +
scale_y_continuous(labels = label_number(big.mark = ".", decimal.mark = ",")) +
labs(
title = "Vendas Diárias por Vendedor",
x = "Vendedor",
y = "Venda Diária"
) +
theme_minimal()
O boxplot por vendedor permite comparar a distribuição das vendas diárias entre os profissionais. Vendedores com caixas mais compactas apresentam vendas mais regulares, enquanto caixas maiores indicam maior variação no desempenho diário.
Para o cálculo da folha de pagamento, foi utilizada a regra solicitada na atividade:
Salário final = salário-base + comissão de vendas - FGTS - INSS
Onde:
vendas_marco <- vendas %>%
filter(ano == 2024, mes == 3) %>%
group_by(vendedor) %>%
summarise(
vendas_marco = sum(venda_diaria, na.rm = TRUE),
.groups = "drop"
)
salarios <- salarios %>%
rename(vendedor = `Número de Inscrição`) %>%
mutate(vendedor = as.factor(vendedor))
folha_pagamento_marco <- salarios %>%
left_join(vendas_marco, by = "vendedor") %>%
mutate(
vendas_marco = ifelse(is.na(vendas_marco), 0, vendas_marco),
comissao = vendas_marco * 0.05,
salario_bruto = Salario_base + comissao,
FGTS = salario_bruto * 0.08,
INSS = salario_bruto * 0.11,
salario_final = salario_bruto - FGTS - INSS
) %>%
arrange(desc(salario_final))
kable(folha_pagamento_marco, digits = 2, caption = "Folha de pagamento dos vendedores - Março de 2024")
| vendedor | Nome | Sobrenome | Setor | Cargo | Contrato | Salario_base | vendas_marco | comissao | salario_bruto | FGTS | INSS | salario_final |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 102112 | Nome12 | Sobrenome12 | Operação | Supervisor | 2022-05-01 | 2500 | 65374.47 | 3268.72 | 5768.72 | 461.50 | 634.56 | 4672.67 |
| 102111 | Nome11 | Sobrenome11 | Operação | Supervisor | 2019-10-01 | 2500 | 50860.12 | 2543.01 | 5043.01 | 403.44 | 554.73 | 4084.83 |
| 101105 | Nome5 | Sobrenome5 | Operação | Vendedor | 2019-10-01 | 2000 | 55186.72 | 2759.34 | 4759.34 | 380.75 | 523.53 | 3855.06 |
| 101107 | Nome7 | Sobrenome7 | Operação | Vendedor | 2020-03-01 | 2000 | 49625.06 | 2481.25 | 4481.25 | 358.50 | 492.94 | 3629.81 |
| 101104 | Nome4 | Sobrenome4 | Operação | Vendedor | 2019-10-01 | 2000 | 48342.67 | 2417.13 | 4417.13 | 353.37 | 485.88 | 3577.88 |
| 101102 | Nome2 | Sobrenome2 | Operação | Vendedor | 2018-01-02 | 2000 | 46217.34 | 2310.87 | 4310.87 | 344.87 | 474.20 | 3491.80 |
| 101103 | Nome3 | Sobrenome3 | Operação | Vendedor | 2018-08-01 | 2000 | 44313.81 | 2215.69 | 4215.69 | 337.26 | 463.73 | 3414.71 |
| 101106 | Nome6 | Sobrenome6 | Operação | Vendedor | 2019-10-01 | 2000 | 43376.99 | 2168.85 | 4168.85 | 333.51 | 458.57 | 3376.77 |
| 101110 | Nome10 | Sobrenome10 | Operação | Vendedor | 2022-05-01 | 2000 | 41738.19 | 2086.91 | 4086.91 | 326.95 | 449.56 | 3310.40 |
| 303105 | Nome 22 | Sobrenome 22 | Administrativo | Gerente | 2019-10-01 | 4000 | 0.00 | 0.00 | 4000.00 | 320.00 | 440.00 | 3240.00 |
| 103113 | Nome13 | Sobrenome13 | Operação | Gerente | 2022-05-01 | 4000 | 0.00 | 0.00 | 4000.00 | 320.00 | 440.00 | 3240.00 |
| 101108 | Nome8 | Sobrenome8 | Operação | Vendedor | 2020-03-01 | 2000 | 37490.39 | 1874.52 | 3874.52 | 309.96 | 426.20 | 3138.36 |
| 101101 | Nome1 | Sobrenome1 | Operação | Vendedor | 2018-01-01 | 2000 | 37178.72 | 1858.94 | 3858.94 | 308.71 | 424.48 | 3125.74 |
| 101109 | Nome9 | Sobrenome9 | Operação | Vendedor | 2022-05-01 | 2000 | 33693.06 | 1684.65 | 3684.65 | 294.77 | 405.31 | 2984.57 |
| 302104 | Nome 21 | Sobrenome 21 | Administrativo | Supervisor | 2019-10-01 | 3000 | 0.00 | 0.00 | 3000.00 | 240.00 | 330.00 | 2430.00 |
| 202104 | Nome17 | Sobrenome17 | Apoio | Supervisor | 2020-03-01 | 2500 | 0.00 | 0.00 | 2500.00 | 200.00 | 275.00 | 2025.00 |
| 201101 | Nome14 | Sobrenome14 | Apoio | Aux Sev Gerais | 2018-04-01 | 2000 | 0.00 | 0.00 | 2000.00 | 160.00 | 220.00 | 1620.00 |
| 301101 | Nome18 | Sobrenome18 | Administrativo | Aux Administrativo | 2018-04-01 | 2000 | 0.00 | 0.00 | 2000.00 | 160.00 | 220.00 | 1620.00 |
| 201102 | Nome15 | Sobrenome15 | Apoio | Aux Sev Gerais | 2019-10-01 | 2000 | 0.00 | 0.00 | 2000.00 | 160.00 | 220.00 | 1620.00 |
| 301102 | Nome19 | Sobrenome19 | Administrativo | Aux Administrativo | 2019-10-01 | 2000 | 0.00 | 0.00 | 2000.00 | 160.00 | 220.00 | 1620.00 |
| 301103 | Nome20 | Sobrenome20 | Administrativo | Aux Administrativo | 2019-10-01 | 2000 | 0.00 | 0.00 | 2000.00 | 160.00 | 220.00 | 1620.00 |
| 201103 | Nome16 | Sobrenome16 | Apoio | Aux Sev Gerais | 2020-03-01 | 2000 | 0.00 | 0.00 | 2000.00 | 160.00 | 220.00 | 1620.00 |
A folha de pagamento demonstra que os vendedores com maior volume de vendas em março recebem maior comissão e, consequentemente, maior salário bruto. Os descontos de FGTS e INSS foram aplicados sobre o salário bruto, conforme a regra proposta. Como o IRPF não foi exigido na atividade, ele não foi considerado nos cálculos.
A função abaixo permite calcular a folha de pagamento para qualquer mês e ano existentes na base de dados.
calcular_salario <- function(mes_consulta, ano_consulta) {
vendas_mes <- vendas %>%
filter(ano == ano_consulta, mes == mes_consulta) %>%
group_by(vendedor) %>%
summarise(
vendas = sum(venda_diaria, na.rm = TRUE),
.groups = "drop"
)
resultado <- salarios %>%
left_join(vendas_mes, by = "vendedor") %>%
mutate(
vendas = ifelse(is.na(vendas), 0, vendas),
comissao = vendas * 0.05,
salario_bruto = Salario_base + comissao,
FGTS = salario_bruto * 0.08,
INSS = salario_bruto * 0.11,
salario_final = salario_bruto - FGTS - INSS
) %>%
arrange(desc(salario_final))
return(resultado)
}
calcular_salario(3, 2024)
## # A tibble: 22 × 13
## vendedor Nome Sobrenome Setor Cargo Contrato Salario_base vendas
## <fct> <chr> <chr> <chr> <chr> <dttm> <dbl> <dbl>
## 1 102112 Nome12 Sobrenom… Oper… Supe… 2022-05-01 00:00:00 2500 65374.
## 2 102111 Nome11 Sobrenom… Oper… Supe… 2019-10-01 00:00:00 2500 50860.
## 3 101105 Nome5 Sobrenom… Oper… Vend… 2019-10-01 00:00:00 2000 55187.
## 4 101107 Nome7 Sobrenom… Oper… Vend… 2020-03-01 00:00:00 2000 49625.
## 5 101104 Nome4 Sobrenom… Oper… Vend… 2019-10-01 00:00:00 2000 48343.
## 6 101102 Nome2 Sobrenom… Oper… Vend… 2018-01-02 00:00:00 2000 46217.
## 7 101103 Nome3 Sobrenom… Oper… Vend… 2018-08-01 00:00:00 2000 44314.
## 8 101106 Nome6 Sobrenom… Oper… Vend… 2019-10-01 00:00:00 2000 43377.
## 9 101110 Nome10 Sobrenom… Oper… Vend… 2022-05-01 00:00:00 2000 41738.
## 10 303105 Nome … Sobrenom… Admi… Gere… 2019-10-01 00:00:00 4000 0
## # ℹ 12 more rows
## # ℹ 5 more variables: comissao <dbl>, salario_bruto <dbl>, FGTS <dbl>,
## # INSS <dbl>, salario_final <dbl>
write_xlsx(folha_pagamento_marco, "Folha_Pagamento_Marco_2024.xlsx")
Para a previsão, foi criada uma série temporal com as vendas mensais
totais da empresa. Em seguida, foi utilizado o modelo automático
auto.arima() e a função forecast() para
estimar os próximos seis meses.
serie_vendas <- venda_mensal_geral$Total_Vendas
ts_vendas <- ts(
serie_vendas,
start = c(min(venda_mensal_geral$ano), min(venda_mensal_geral$mes[venda_mensal_geral$ano == min(venda_mensal_geral$ano)])),
frequency = 12
)
modelo <- auto.arima(ts_vendas)
previsao <- forecast(modelo, h = 6)
previsao
## Point Forecast Lo 80 Hi 80 Lo 95 Hi 95
## Apr 2024 640477.5 576728.0 704227.1 542981.0 737974.0
## May 2024 771324.3 692254.1 850394.5 650396.8 892251.7
## Jun 2024 756612.1 670413.6 842810.7 624782.9 888441.4
## Jul 2024 679514.9 589712.5 769317.3 542173.9 816855.9
## Aug 2024 678775.7 587091.5 770459.8 538556.9 818994.5
## Sep 2024 670983.0 578301.5 763664.5 529238.9 812727.1
autoplot(previsao) +
labs(
title = "Previsão de Vendas para os Próximos 6 Meses",
x = "Ano",
y = "Total de Vendas"
) +
theme_minimal()
A previsão de vendas permite estimar o comportamento esperado da empresa nos próximos seis meses com base no histórico mensal. Esse resultado pode auxiliar no planejamento de estoque, metas de vendas, organização financeira e tomada de decisão da gestão.
A análise exploratória dos dados de vendas do Bar da Dorinha permitiu avaliar o desempenho dos vendedores, identificar padrões mensais de faturamento e visualizar a distribuição das vendas diárias. As estatísticas por vendedor possibilitaram comparar venda total, média, mediana, desvio padrão e quantidade de registros, oferecendo uma visão mais completa do desempenho individual.
Os gráficos desenvolvidos com ggplot2 facilitaram a interpretação dos dados, mostrando a venda total por vendedor, a tendência mensal geral, a evolução mensal por vendedor, a distribuição das vendas diárias e a variação das vendas por mês e por vendedor. Também foi calculada a folha de pagamento de março de 2024 conforme os critérios da atividade, considerando salário-base, comissão, FGTS e INSS.
Por fim, a previsão de vendas para os próximos seis meses amplia a análise e contribui para o planejamento da empresa, permitindo uma visão mais estratégica sobre o comportamento futuro das vendas.