-
Notifications
You must be signed in to change notification settings - Fork 0
/
smoothly br_num_tb analysis.R
64 lines (57 loc) · 1.97 KB
/
smoothly br_num_tb analysis.R
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
setwd('C:\\Users\\jiwon.DESKTOP-J6K6P2J\\Desktop\\스무슬리')
BR_NUM_TB = read.csv('BR_NUM_TB.csv')
BR_NUM_INFO = read.csv('BR_NUM_INFO.csv')
BR_NUM_TB_PUR = read.csv('BR_NUM_TB_PUR.csv')
# View(BR_NUM_TB)
# View(BR_NUM_INFO)
View(BR_NUM_TB_PUR)
attach(BR_NUM_TB_PUR)
library(dplyr)
# attach(BR_NUM_TB)
# CATEGORY별 재고 확인
BR_NUM_TB %>%
group_by(CATEGORY) %>%
summarise(n = n())
BR_NUM_TB_PUR %>%
group_by(분류) %>%
summarise(n = n())
install.packages('sqldf')
library(sqldf)
BR_NUM_TOT = sqldf('SELECT A.PK_ITEM, A.OLD_KEY, A.CATEGORY,
B.BT_LEN, B.LOWER_LEN, B.INNER_LEN, B.OUTER_LEN
FROM BR_NUM_INFO A
JOIN BR_NUM_TB B
ON A.PK_ITEM = B.PK_ITEM AND A.OLD_KEY = B.OLD_KEY')
# View(BR_NUM_TOT)
nrow(BR_NUM_TOT)
nrow(unique(BR_NUM_TOT))
BR_NUM_TOT_4 = sqldf('SELECT A.PK_ITEM, A.OLD_KEY, A.CATEGORY,
B.BT_LEN, B.LOWER_LEN, B.INNER_LEN, B.OUTER_LEN
FROM BR_NUM_INFO A
JOIN BR_NUM_TB B
ON A.PK_ITEM = B.PK_ITEM AND A.OLD_KEY = B.OLD_KEY
WHERE CATEGORY = 4')
View(BR_NUM_TOT_4)
BR_NUM_TB_PUR = read.csv('BR_NUM_TB_NEW.csv')
View(BR_NUM_TB_PUR)
attach(BR_NUM_TB_PUR)
#===================
#if (사이즈 ='75A' | 사이즈 = '70B' | 사이즈 = '65C'){
# 분류 = 2
#}
# else if (사이즈 = '80A' | 사이즈 = '75B' | 사이즈 = '70C'){
# 분류 = 3
# }
# else if (사이즈 = '85A' | 사이즈 = '80B' | 사이즈 ='75C' | 사이즈 = '70D'){
# 분류 = 4
# }
# else if (사이즈 = '90A' | 사이즈 = '85B' | 사이즈 = '80C' | 사이즈 = '75D' | 사이즈 = '70E'){
# 분류 = 5
# }
# else if (사이즈 = '95A' | 사이즈 = '90B' | 사이즈 = '85C' | 사이즈 = '80D' | 사이즈 = '75E'){
# 분류 = 6
#}
# else{
# 분류 = 0
# }
#=======================