setwd("~/Dropbox/Works/Class/Statistics/201502")
options(width=180)
load("class0906.rda")
class0831[, -c(1:3, 5:6)]
## 학년 odd.even f.name before
## 1 1 1 강 NA
## 2 2 1 강 5
## 3 1 0 구 3
## 4 1 0 권 4
## 5 2 0 권 4
## 6 2 1 권 5
## 7 1 1 권 3
## 8 2 1 금 3
## 9 4 0 김 4
## 10 1 1 김 4
## 11 3 1 김 4
## 12 2 1 김 4
## 13 3 1 김 4
## 14 3 1 김 4
## 15 4 1 김 4
## 16 2 1 김 4
## 17 1 0 김 4
## 18 2 0 김 NA
## 19 3 1 김 NA
## 20 3 0 김 4
## 21 2 1 김 NA
## 22 4 1 김 NA
## 23 2 1 김 4
## 24 3 0 김 NA
## 25 2 1 김 NA
## 26 1 0 김 4
## 27 1 0 김 NA
## 28 2 0 김 4
## 29 1 1 남 5
## 30 3 0 노 3
## 31 3 0 박 4
## 32 4 0 박 4
## 33 3 1 박 5
## 34 3 1 박 4
## 35 2 0 박 4
## 36 1 1 박 4
## 37 2 0 박 4
## 38 1 0 박 4
## 39 2 0 박 5
## 40 1 0 박 5
## 41 1 1 방 4
## 42 2 0 방 4
## 43 3 0 변 NA
## 44 3 0 서 3
## 45 1 0 서 4
## 46 4 1 서 4
## 47 1 1 신 5
## 48 1 0 신 5
## 49 1 0 신 5
## 50 1 0 신 4
## 51 3 0 신 4
## 52 3 0 심 4
## 53 2 1 양 4
## 54 2 0 엄 4
## 55 2 0 엄 4
## 56 3 0 오 4
## 57 2 0 오 4
## 58 1 0 오 4
## 59 2 0 우 5
## 60 1 1 유 4
## 61 4 1 이 NA
## 62 1 1 이 4
## 63 1 1 이 4
## 64 1 0 이 4
## 65 1 0 이 4
## 66 2 1 이 4
## 67 2 0 이 NA
## 68 1 0 이 5
## 69 2 1 이 NA
## 70 1 1 이 5
## 71 1 1 이 4
## 72 1 1 이 4
## 73 2 1 임 5
## 74 1 0 임 NA
## 75 1 0 장 5
## 76 2 0 정 4
## 77 1 0 정 4
## 78 1 0 조 3
## 79 4 0 조 4
## 80 3 1 조 5
## 81 1 1 조 3
## 82 1 0 조 4
## 83 1 1 최 4
## 84 2 1 한 4
## 85 1 1 한 4
## 86 3 0 현 4
## 87 2 0 홍 4
## 88 1 0 홍 4
## 89 2 0 황 4
## 90 2 0 황 5
class0902[, -c(1:3, 5:6)]
## 학년 X1 X2 X3 X4
## 1 4 <NA> <NA> NA <NA>
## 2 2 다 라 5 나다
## 3 1 다 라 3 가다
## 4 1 다 라 5 가다
## 5 2 다 마 4 다
## 6 2 다 라 5 가나다
## 7 1 가 마 4 가다
## 8 4 다 라 4 나다
## 9 1 다 라 5 가나다
## 10 2 가 라 4 가다
## 11 3 다 라 4 나다라
## 12 2 <NA> <NA> NA <NA>
## 13 4 <NA> <NA> NA <NA>
## 14 2 다 라 4 가나다
## 15 1 다 라 4 나다
## 16 2 다 다 5 가다
## 17 3 다 라 4 가나다
## 18 2 다 가 5 가다
## 19 3 다 라 4 가다
## 20 2 다 라 4 가다
## 21 2 다 다 4 가다
## 22 1 다 라 4 가다
## 23 1 <NA> <NA> NA <NA>
## 24 2 다 라 4 가다
## 25 2 다 라 4 가나다라
## 26 1 다 라 5 가나다
## 27 3 다 라 4 나다
## 28 3 다 라 4 나다
## 29 4 다 가 4 가나다라
## 30 3 다 라 5 가나다
## 31 3 <NA> <NA> NA <NA>
## 32 1 <NA> <NA> NA <NA>
## 33 1 가 다 4 나다
## 34 2 다 라 5 다
## 35 1 다 라 5 나다
## 36 1 다 라 2 나다
## 37 2 다 라 5 나다
## 38 3 다 라 4 가다
## 39 3 다 라 4 가다
## 40 1 다 라 4 나다
## 41 4 나 마 4 가다
## 42 1 다 다 5 가다
## 43 1 다 다 5 가나다라
## 44 1 다 라 5 가나다라
## 45 1 다 라 5 가다
## 46 3 다 라 4 나다
## 47 2 다 라 4 나다
## 48 3 다 라 4 다라
## 49 2 다 라 4 나다
## 50 1 다 라 4 가나다
## 51 1 다 다 4 나다
## 52 1 다 라 4 가나다
## 53 1 다 다 4 가나다
## 54 2 다 라 4 가나다
## 55 1 다 라 5 나다
## 56 2 다 라 5 나다
## 57 1 다 라 4 가다
## 58 1 다 라 4 가나다라
## 59 1 다 다 4 가다라
## 60 2 <NA> <NA> NA <NA>
## 61 2 다 라 4 가다
## 62 4 <NA> <NA> NA <NA>
## 63 3 다 라 5 나다
## 64 1 다 라 5 나다
## 65 1 다 라 5 가나다
## 66 2 다 라 5 가나다
## 67 1 다 라 4 가다
## 68 3 다 라 4 나다
## 69 2 다 라 4 나다
## 70 1 <NA> <NA> NA <NA>
## 71 2 다 라 4 나다라
## 72 2 다 라 5 가나다
## 73 NA 다 라 5 가나다
## 74 NA 다 라 5 나다
## 75 NA 다 라 5 나다
## 76 NA 다 다 4 나다
ls()
## [1] "cb" "class.join" "class0831" "class0902" "E.Mail.list" "f.name.df" "f.name.df.order"
## [8] "mail.com" "mail.df" "mail.df.order" "odd.even" "stat.national.priority"
library(plyr)
class.join <- join(class0831, class0902, by="학.직.번", type="full")
class.join[, -c(1:3, 5:6)]
## 학년 odd.even f.name before X1 X2 X3 X4
## 1 1 1 강 NA <NA> <NA> NA <NA>
## 2 2 1 강 5 다 라 5 나다
## 3 1 0 구 3 다 라 3 가다
## 4 1 0 권 4 다 라 5 가다
## 5 2 0 권 4 다 마 4 다
## 6 2 1 권 5 다 라 5 가나다
## 7 1 1 권 3 가 마 4 가다
## 8 2 1 금 3 <NA> <NA> NA <NA>
## 9 4 0 김 4 다 라 4 나다
## 10 1 1 김 4 다 라 5 가나다
## 11 3 1 김 4 다 라 5 나다
## 12 2 1 김 4 가 라 4 가다
## 13 3 1 김 4 <NA> <NA> NA <NA>
## 14 3 1 김 4 다 라 4 나다라
## 15 4 1 김 4 <NA> <NA> NA <NA>
## 16 2 1 김 4 다 라 4 가나다
## 17 1 0 김 4 다 라 4 나다
## 18 2 0 김 NA 다 다 5 가다
## 19 3 1 김 NA 다 다 4 나다
## 20 3 0 김 4 다 라 4 가나다
## 21 2 1 김 NA <NA> <NA> NA <NA>
## 22 4 1 김 NA <NA> <NA> NA <NA>
## 23 2 1 김 4 다 가 5 가다
## 24 3 0 김 NA 다 라 4 가다
## 25 2 1 김 NA 다 라 4 가다
## 26 1 0 김 4 다 라 4 가다
## 27 1 0 김 NA <NA> <NA> NA <NA>
## 28 2 0 김 4 다 라 4 가나다라
## 29 1 1 남 5 다 라 5 가나다
## 30 3 0 노 3 다 라 4 나다
## 31 3 0 박 4 다 라 4 나다
## 32 4 0 박 4 다 가 4 가나다라
## 33 3 1 박 5 다 라 5 가나다
## 34 3 1 박 4 <NA> <NA> NA <NA>
## 35 3 1 박 4 다 라 5 가나다
## 36 2 0 박 4 <NA> <NA> NA <NA>
## 37 1 1 박 4 <NA> <NA> NA <NA>
## 38 2 0 박 4 <NA> <NA> NA <NA>
## 39 1 0 박 4 가 다 4 나다
## 40 2 0 박 5 다 라 5 다
## 41 1 0 박 5 다 라 5 나다
## 42 1 1 방 4 다 라 2 나다
## 43 2 0 방 4 다 라 5 나다
## 44 3 0 변 NA 다 라 4 가다
## 45 3 0 서 3 다 라 4 가다
## 46 1 0 서 4 다 라 4 나다
## 47 4 1 서 4 나 마 4 가다
## 48 1 1 신 5 다 다 5 가다
## 49 1 0 신 5 다 다 5 가나다라
## 50 1 0 신 5 다 라 5 가나다라
## 51 1 0 신 4 다 라 5 가다
## 52 3 0 신 4 다 라 4 나다
## 53 3 0 심 4 <NA> <NA> NA <NA>
## 54 2 1 양 4 <NA> <NA> NA <NA>
## 55 2 0 엄 4 다 라 4 나다
## 56 2 0 엄 4 <NA> <NA> NA <NA>
## 57 3 0 오 4 다 라 4 다라
## 58 2 0 오 4 다 라 4 나다
## 59 1 0 오 4 다 라 4 가나다
## 60 2 0 우 5 <NA> <NA> NA <NA>
## 61 1 1 유 4 다 다 4 나다
## 62 4 1 이 NA <NA> <NA> NA <NA>
## 63 1 1 이 4 다 라 4 가나다
## 64 1 1 이 4 <NA> <NA> NA <NA>
## 65 1 0 이 4 <NA> <NA> NA <NA>
## 66 1 0 이 4 다 다 4 가나다
## 67 2 1 이 4 다 라 4 가나다
## 68 2 0 이 NA <NA> <NA> NA <NA>
## 69 1 0 이 5 다 라 5 나다
## 70 2 1 이 NA <NA> <NA> NA <NA>
## 71 1 1 이 5 <NA> <NA> NA <NA>
## 72 1 1 이 4 다 라 4 가다
## 73 1 1 이 4 다 라 4 가나다라
## 74 2 1 임 5 다 라 5 나다
## 75 1 0 임 NA <NA> <NA> NA <NA>
## 76 1 0 장 5 다 다 4 가다라
## 77 2 0 정 4 다 라 4 가다
## 78 1 0 정 4 <NA> <NA> NA <NA>
## 79 1 0 조 3 <NA> <NA> NA <NA>
## 80 4 0 조 4 <NA> <NA> NA <NA>
## 81 3 1 조 5 다 라 5 나다
## 82 1 1 조 3 <NA> <NA> NA <NA>
## 83 1 0 조 4 다 라 5 나다
## 84 1 1 최 4 <NA> <NA> NA <NA>
## 85 2 1 한 4 다 라 5 가나다
## 86 1 1 한 4 다 라 4 가다
## 87 3 0 현 4 다 라 4 나다
## 88 2 0 홍 4 다 라 4 나다
## 89 1 0 홍 4 <NA> <NA> NA <NA>
## 90 2 0 황 4 다 라 4 나다라
## 91 2 0 황 5 다 라 5 가나다
## 92 4 NA <NA> NA <NA> <NA> NA <NA>
## 93 2 NA <NA> NA <NA> <NA> NA <NA>
## 94 2 NA <NA> NA 다 다 4 가다
## 95 2 NA <NA> NA 다 라 4 가다
## 96 2 NA <NA> NA 다 라 5 나다
## 97 2 NA <NA> NA <NA> <NA> NA <NA>
## 98 1 NA <NA> NA 다 라 5 가나다
names(class.join)
## [1] "학과" "학.직.번" "이름" "학년" "E.Mail" "핸드폰번호" "odd.even" "f.name" "before" "X1" "X2" "X3" "X4"
names(class.join)[12] <- "after"
names(class.join)[13] <- "sejong"
names(class.join)
## [1] "학과" "학.직.번" "이름" "학년" "E.Mail" "핸드폰번호" "odd.even" "f.name" "before" "X1" "X2" "after" "sejong"
class.join$diff <- class.join$after - class.join$before
table(class.join$diff, useNA="ifany")
##
## -2 -1 0 1 <NA>
## 1 1 44 12 40
- paired t.test 해 보겠지만 의미가 있는지 생각해 볼 것.
t.test(class.join$diff, alternative="greater")
##
## One Sample t-test
##
## data: class.join$diff
## t = 2.2587, df = 57, p-value = 0.01387
## alternative hypothesis: true mean is greater than 0
## 95 percent confidence interval:
## 0.04030347 Inf
## sample estimates:
## mean of x
## 0.1551724
table(class.join$sejong, useNA="ifany")
##
## 가나다 가나다라 가다 가다라 나다 나다라 다 다라 <NA>
## 14 5 19 1 23 2 2 1 31
class.join$sejong.tf <- factor(ifelse(class.join$sejong == "가나다", "Right", "Wrong"))
table(class.join$sejong.tf, useNA="ifany")
##
## Right Wrong <NA>
## 14 53 31
options(digits=2)
prop.table(table(class.join$sejong.tf, useNA="ifany"))*100
##
## Right Wrong <NA>
## 14 54 32
table(mail.com)
## mail.com
## daum.net gmail.com hanmail.net NA nate.com naver.com outlook.com
## 1 5 11 1 10 61 1
mail.df <- as.data.frame(table(mail.com, useNA="ifany"), stringsAsFactors=TRUE)
mail.df
## mail.com Freq
## 1 daum.net 1
## 2 gmail.com 5
## 3 hanmail.net 11
## 4 NA 1
## 5 nate.com 10
## 6 naver.com 61
## 7 outlook.com 1
mail.df.order <- mail.df[order(mail.df$Freq, decreasing=TRUE), ]
mail.df.order
## mail.com Freq
## 6 naver.com 61
## 3 hanmail.net 11
## 5 nate.com 10
## 2 gmail.com 5
## 1 daum.net 1
## 4 NA 1
## 7 outlook.com 1
table(class.join$f.name, useNA="ifany")
##
## 강 구 권 금 김 남 노 박 방 변 서 신 심 양 엄 오 우 유 이 임 장 정 조 최 한 현 홍 황 <NA>
## 2 1 4 1 20 1 1 11 2 1 3 5 1 1 2 3 1 1 12 2 1 2 5 1 2 1 2 2 7
f.name.df <- as.data.frame(table(class.join$f.name, useNA="ifany"), stringsAsFactors=TRUE)
f.name.df.order <- f.name.df[order(f.name.df$Freq, decreasing=TRUE),]
f.name.df.order
## Var1 Freq
## 5 김 20
## 19 이 12
## 8 박 11
## 29 <NA> 7
## 12 신 5
## 23 조 5
## 3 권 4
## 11 서 3
## 16 오 3
## 1 강 2
## 9 방 2
## 15 엄 2
## 20 임 2
## 22 정 2
## 25 한 2
## 27 홍 2
## 28 황 2
## 2 구 1
## 4 금 1
## 6 남 1
## 7 노 1
## 10 변 1
## 13 심 1
## 14 양 1
## 17 우 1
## 18 유 1
## 21 장 1
## 24 최 1
## 26 현 1
save.image(file="class0906.rda")