R 빅데이터분석기사 실기 작업형1(시계열 월별합계) 19일차 빅분기 독학

 

 

 

basic2.csv

0.02MB

 

주어진 데이터에서 2022년 월별 Sales 합계 중 가장 큰 금액과 2023년 월별 Sales 합계 중 가장 큰 금액의 차이를 절대값으로 구하시오. 단 Events컬럼이 '1'인경우 80%의 Sales값만 반영함 (소수점 반올림 후 정수 출력)

library(dplyr)
library(lubridate)
df<-read.csv('../input/bigdatacertificationkr/basic2.csv')
df1<-df%>%mutate(year=year(Date),month=month(Date),pre_sale=ifelse(Events==1,round(Sales*0.8),Sales))
        %>%group_by(year,month)
        %>%summarise(sum=sum(pre_sale))
max_2022<-df1%>%filter(year==2022)
            %>%summarise(max=max(sum))
            %>%select(max)
max_2023<-df1%>%filter(year==2023)
            %>%summarise(max=max(sum))
            %>%select(max)
ans<-abs(max_2022-max_2023)
print(ans)

#정답 : 42473434