R 빅데이터분석기사 실기 작업형1(시차 데이터 생성) 24일차 빅분기 독학

 

basic2.csv

0.02MB

 

주어진 데이터(basic2.csv)에서 새로운 컬럼(1일 이전 시차 컬럼)을 만들고, Events가 1이면서 Sales가 1000000이하인 조건에 맞는 새로운 컬럼 합을 구하시오

library(dplyr)
library(data.table)
df=read.csv('../input/bigdatacertificationkr/basic2.csv')
df %>% mutate(lag=shift(PV,1)) 
    %>% filter(Events==1 & Sales<=1000000) 
    %>% summarise(value=sum(lag))
    
#정답 : 1894876

 

암기

library(data.table)

shift(PV,1) #pv값을 다음으로 한칸 이동