Faturamento por dia

Esse é o faturamento contando todas as peças produzidas por dia de produção.

df1 <- aggregate(df['faturamento'], by = df['data'], sum)
 
grap3 <- ggplot(df1, aes(x = data, y = faturamento))+geom_line() + transition_reveal(data)
grap3

Faturamento por Semana

Como era difícil tirar o faturamento por dia, e o gráfico não fica muito legal achei bom colocar o faturamento por semana.

df1 <- aggregate(df['faturamento'], by = df['data'], sum)
df1$data <- week(df1$data)
df1 <- aggregate(df1['faturamento'], by = df1['data'], sum) 
grap3 <- ggplot(df1, aes(x = data, y = faturamento))+geom_line() + transition_reveal(data)
grap3

Faturamento por Mês

O gráfico fica mais flúido se ficar por mês.

df1 <- aggregate(df['faturamento'], by = df['data'], sum)
df1$data <- month(df1$data)
df1 <- aggregate(df1['faturamento'], by = df1['data'], sum) 
grap3 <- ggplot(df1, aes(x = data, y = faturamento))+geom_line() + transition_reveal(data)
grap3

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.