구매상세내역 자동화

rm(list=ls())
install.packages("dplyr")
install.packages('stringr')
install.packages('lubridate')
install.packages("readxl")
install.packages("xlsx")
install.packages("writexl")
library(dplyr)
library(lubridate)
library(stringr)
library(readxl)
library(xlsx)
library(writexl)
install.packages("openxlsx") 
library(openxlsx)
install.packages(c("readxl","writexl")) 
library(readxl)
library(writexl)


##변수 속성 확인 
install.packages('ggplot2')
library("ggplot2")

#input_1 = as.data.frame(input)
head(input_1)
str(input_1)

🔹 11번가

1) 텍스트 나누기: 뒤에 시간 삭제
2) 날짜 기호 변경 "-" -> "."
3) 구매확정일 NA 값 공란으로 변경 🔸

input_11번가 <- read_excel('C:\\Users\\user\\Desktop\\업무\\3. 수요일\\구매 상세내역 조회 업체\\1. 11번가\\11번가_PC_201221-201227.xlsx')

#문자 변환
input_11번가$구매확정일<- as.character(as.numeric(input$구매확정일))

#1.텍스트 나누기 (뒤에 시간 삭제 : 주문일,결제완료일,구매확정일)
input_11번가$주문일 <- lubridate::date(input_11번가$주문일)
input_11번가$결제완료일 <-lubridate::date(input_11번가$결제완료일)
input_11번가$구매확정일 <- lubridate::date(input_11번가$구매확정일)
input_11번가

****구매확정일 NA 값 공란으로 변경 ?

#2.날짜 기호 변환(- > .로 변경)
input_11번가$주문일 <- gsub("-",".",input_11번가$주문일)
input_11번가$결제완료일 <- gsub("-",".",input_11번가$결제완료일)
input_11번가$구매확정일 <- gsub("-",".",input_11번가$구매확정일)
input_11번가

#3.저장
write.csv(input_11번가, "C:\\Users\\user\\Desktop\\업무\\3. 수요일\\구매 상세내역 조회 업체\\1. 11번가\\11번가_PC_201221-201227_final.csv", row.names=FALSE ) 

🔹 G마켓&G9

1) 텍스트 나누기 : 뒤에 시간 삭제
2) 날짜 기호 변경 "-" > "."
3) 표시 형식 일반 > 숫자변환 (체결번호, 구매대금, 수량) 🔸

G마켓

input_gmarket<-read_excel('C:\\Users\\user\\Desktop\\업무\\3. 수요일\\구매 상세내역 조회 업체\\2. G마켓\\G마켓_PC_201221-201227.xlsx')
input_gmarket
 

#1. 텍스트 나누기 (체결일(주문일), 배송완료일)
#input_gmarket$체결번호<- as.numeric(as.character(input_gmarket$체결번호))
input_gmarket$`체결일(주문일)` <- lubridate::date(input_gmarket$`체결일(주문일)`)
input_gmarket$배송완료일 <-lubridate::date(input_gmarket$배송완료일)
input_gmarket

#2. 날짜 기호 변환 (- > . 변환)
input_gmarket$`체결일(주문일)`<- gsub("-",".",input_gmarket$`체결일(주문일)`)
input_gmarket$배송완료일 <- gsub("-",".",input_gmarket$배송완료일)
input_gmarket

#3. 표시형식 일반 > 숫자변환 (체결번호, 구매대금, 수량) 


#str(input_gmarket)

#저장
write.csv(input_gmarket, "C:\\Users\\user\\Desktop\\업무\\3. 수요일\\구매 상세내역 조회 업체\\2. G마켓\\G마켓_PC_201221-201227_final.csv", row.names=FALSE )

G9

input_g9<-read_excel('C:\\Users\\user\\Desktop\\업무\\3. 수요일\\구매 상세내역 조회 업체\\3. G9\\G9_PC_201221-201227.xlsx')

#1. 텍스트 나누기 (체결일(주문일), 배송완료일)
#input_g9$체결번호<- as.numeric(as.character(input_gmarket$체결번호))
#str(input_g9)

input_g9$`체결일(주문일)` <- lubridate::date(input_g9$`체결일(주문일)`)
input_g9$배송완료일 <-lubridate::date(input_g9$배송완료일)
input_g9$환불완료일 <-lubridate::date(input_g9$환불완료일)

#2. 날짜 기호 변환 (- > . 변환)
input_g9$`체결일(주문일)` <- gsub("-",".",input_g9$`체결일(주문일)`)
input_g9$배송완료일 <- gsub("-",".",input_g9$배송완료일)
input_g9$환불완료일 <- gsub("-",".",input_g9$환불완료일)
input_g9

#3. 표시형식 숫자변환 (체결번호, 구매대금, 수량) 

#4. 저장 
write.csv(input_g9, "C:\\Users\\user\\Desktop\\업무\\3. 수요일\\구매 상세내역 조회 업체\\3. G9\\G9_PC_201221-201227_final.csv", row.names=FALSE )

🔹 롯데홈쇼핑

1) 날짜 기호 변경 "-" > "."

input_lottee$정산기준일자<- gsub("-",".",input_lottee$정산기준일자)
input_lottee

#2. 저장
write.csv(input_lottee, "C:\\Users\\user\\Desktop\\업무\\3. 수요일\\구매 상세내역 조회 업체\\4. 롯데홈쇼핑\\롯데홈쇼핑_PC_201221-201227_final.csv", row.names=FALSE )

🔹 SSG 닷컴

1) 날짜 기호 변경 "-" > "."

* SSG닷컴
input_SSG<-read_excel('C:\\Users\\user\\Desktop\\업무\\3. 수요일\\구매 상세내역 조회 업체\\7. SSG.COM\\SSG.COM_PC_201221-201227.xlsx')
input_SSG

#1. 날짜 기호 변환 (- > . 변환)
input_SSG$정산일자<- gsub("-",".",input_SSG$정산일자)
input_SSG

#2. 저장
write.csv(input_SSG, "C:\\Users\\user\\Desktop\\업무\\3. 수요일\\구매 상세내역 조회 업체\\7. SSG.COM\\SSG_final.csv", row.names=FALSE )

🔹 위메프

1) B C D I J O P 열 날리고 ab행 사이에 4개 추가
2) A열 텍스트 나누기 : 뒤에 시간 삭제
3) A열 날짜 기호 변경 "-" > "."
4) N이랑 O열 사이에 열 추가 > 수수료율 칼럼 = 채널수수료 / 순매출액
5) 백분율 표기 변환 > 소수점 두번째 자리까지 표시 🔸
6) 매출코드 "-" > "0"으로 변환
7) B열에 DEVICE 입력 🔸
8) 수식 삽입 = IF((J2>0)+(J2<0),"WEB","") 🔸
9) C열 IPHONE, D열 ANDROID 🔸

input_wmp <- read.csv('C:\\Users\\user\\Desktop\\업무\\3. 수요일\\구매 상세내역 조회 업체\\5. 위메프\\제휴채널_상세현황_20211019.csv')
input_wmp

#1. 텍스트 나누기& 기호 변환 (결제일시)
input_wmp$결제일시 <- lubridate::date(input_wmp$결제일시)
input_wmp$결제일시 <- gsub("-",".",input_wmp$결제일시)
input_wmp$매출코드 <- gsub("-","0",input_wmp$매출코드)
input_wmp$채널수수료 <- gsub(",","",input_wmp$채널수수료)

# B C D I J O P 열 날리기

input_wmp <- input_wmp %>% 
  select("결제일시","매출액","WEB.PC","WEB.IPHONE","WEB.Android","순매출액","순.WEB.PC","순.WEB.IPHONE","순.WEB.Android","구매개수","채널수수료",
         "주문번호","구매번호","상품번호","상품명","카테고리.1depth","카테고리.2depth","매출코드")
         
 # 채널수수료 옆에 열 추가 > 수수료율 계산 

input_wmp$채널수수료<- as.numeric(as.character(input_wmp$채널수수료))
input_wmp$순매출액<- as.numeric(as.character(input_wmp$순매출액))

# 채널수수료 옆에 열 추가 > 수수료율 계산 

input_wmp$채널수수료<- as.numeric(as.character(input_wmp$채널수수료))
input_wmp$순매출액<- as.numeric(as.character(input_wmp$순매출액))


add_input_wmp<- input_wmp %>% 
  mutate(수수료율=round((채널수수료/순매출액),2))


#수수료율 열 채널수수료 뒤에 위치 

re_input_wmp <- add_input_wmp %>% 
  relocate(수수료율, .after=채널수수료)

re_input_wmp 

# 수수료율 백분율 %로 표시? 🔸

# DEVICE 열 삽입 🔸

dv_input_wmp <- re_input_wmp %>% 
  ifelse(re_input_wmp$순.WEB.PC != 0 ,"WEB"," ")


dv_input_wmp


# 변수명 변경 

ch_input_wmp <- re_input_wmp %>% 
  dplyr::rename("주문번호"="상품번호")