-
Notifications
You must be signed in to change notification settings - Fork 0
/
.Rhistory
69 lines (69 loc) · 2.47 KB
/
.Rhistory
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
if (!require("tidyverse")) install.packages("tidyverse")
# Carrega Bibliotecas
library(tidyr)
library(dplyr)
library(readr)
library(stringr)
library(lubridate)
library(clipr)
library(ggplot2)
library(readxl)
read_excel("Base de Dados.xlsx", sheet = 1)
custos_diretos <- read_excel("Base de Dados.xlsx", sheet = 1)
View(custos_diretos)
custos_departamentos <- read_excel("Base de Dados.xlsx", sheet = 2)
View(custos_departamentos)
rateio_atividade <- read_excel("Base de Dados.xlsx", sheet = 3)
View(rateio_atividade)
direcionadores <- read_excel("Base de Dados.xlsx", sheet = 4)
View(direcionadores)
View(custos_diretos)
View(custos_diretos)
library(ggplot2)
ggplot(custos_diretos, aes(x = Produto, y = Valor, color = Custo))
+ geom_boxplot()
custos_diretos <- read_excel("Base de Dados.xlsx", sheet = 1, col_types = c(str, str, double))
custos_diretos <- read_excel("Base de Dados.xlsx", sheet = 1, col_types = c("str", "str", "double"))
custos_diretos <- read_excel("Base de Dados.xlsx", sheet = 1)
custos_diretos
ggplot(custos_diretos, aes(x = Produto, y = Valor, color = Custo))
+ geom_boxplot()
ggplot(custos_diretos, aes(x = Produto, y = Valor))
+ geom_boxplot()
ggplot(custos_diretos %>% group_by(Produto) %>% summarize(Valor = sum(Valor)), aes(x = Produto, y = Valor))
+ geom_boxplot()
custos_diretos %>% group_by(Produto) %>% summarize(Valor = sum(Valor))
custos_diretos %>% group_by(Produto) %>%
summarize(Valor = sum(Valor)) %>%
ggplot(aes(x = Produto, y = Valor))
+ geom_boxplot()
ggplot(custos_diretos, aes(x = Produto, y = Valor, color = Custo))
+ geom_col()
ggplot(custos_diretos, aes(x = Produto, y = Valor * 1000, color = Custo))
+ geom_col()
ggplot(custos_diretos, aes(x = Produto, y = Valor, color = Custo))
+ geom_col()
ggplot(custos_diretos, aes(x = Produto, y = Valor))
+ geom_col()
ggplot(custos_diretos, aes(x = Produto, y = Valor))
+ geom_col()
ggplot(custos_diretos, aes(x = Produto, y = Valor))
+ geom_line()
if (!require("tidyverse")) install.packages("tidyverse")
# Carrega Bibliotecas
library(tidyr)
library(dplyr)
library(readr)
library(readxl)
library(stringr)
library(lubridate)
library(clipr)
library(ggplot2)
custos_diretos <- read_excel("Base de Dados.xlsx", sheet = 1)
custos_departamentos <- read_excel("Base de Dados.xlsx", sheet = 2)
rateio_atividade <- read_excel("Base de Dados.xlsx", sheet = 3)
direcionadores <- read_excel("Base de Dados.xlsx", sheet = 4)
ggplot(custos_diretos, aes(x = Produto, y = Valor))
+ geom_col()
ggplot(custos_diretos, aes(x = Produto, y = Valor))
+ geom_col()