https://rpubs.com/koyobib/bm13 の続き
library(readr)
library(openxlsx)
library(stringr)
library(stringdist)
library(dplyr)
library(RMeCab)
library(igraph)
library(rvest)
library(gt)
library(gtExtras)
library(openxlsx)
library(purrr)とりあえず，特集の趣旨はこんな感じだった。
https://www.jset.gr.jp/journal/journal-3421/
現状，キーワードが多い(189語)のと，特集の趣旨とは離れる語も含まれる(一応，広くとるために入れてみた)ので，類似語をまとめたり(文字コードや空白の有無で，同じ単語を分けて抽出したりもしたため)，くくれるものはくくってみる。くくる作業は(仕方なく)スプレッドシートで実施し，保存した。
kw2 <- read.xlsx("../Keywords/KW2.xlsx")
DT::datatable(kw2)new.kw <- kw2$New_KW
new.kw.unique <- data.frame(unique(new.kw))
new.kw.unique <- na.omit(new.kw.unique)
new.kw.unique$row <- row(new.kw.unique)
new.kw.unique$New_Code <- paste("nkw_", new.kw.unique$row, sep = "")
new.kw.code <- new.kw.unique[c(1,3)]
colnames(new.kw.code) <- c("New_KW", "NCode")kw2.comp.tab_ <- kw2[c("Code", "keyword", "New_KW")]
kw2.comp.tab <- dplyr::inner_join(kw2.comp.tab_, new.kw.code, by = "New_KW")
write.xlsx(kw2.comp.tab, "")
DT::datatable(kw2.comp.tab)jjer.res <- read.csv("../Tagged/jjer_tag.csv")
jjep.res <- read.csv("../Tagged/jjep_tag.csv")
jset.res <- read.csv("../Tagged/jset_tag.csv")
rjem.res <- read.csv("../Tagged/rjem_tag.csv") ../Keywords/KW2_COMP_TAB.xlsxを使ってスプレッドシートで条件文を書く(../Keywords/KW2_COMP_mutate.xlsxとして格納してある)。
unique(kw2.comp.tab$NCode)## [1] "nkw_1" "nkw_2" "nkw_3" "nkw_4" "nkw_5" "nkw_6" "nkw_7" "nkw_8"
## [9] "nkw_9" "nkw_10" "nkw_11" "nkw_12" "nkw_13" "nkw_14" "nkw_15" "nkw_16"
## [17] "nkw_17" "nkw_18" "nkw_19" "nkw_20" "nkw_21" "nkw_22" "nkw_23" "nkw_24"
## [25] "nkw_25" "nkw_26" "nkw_27" "nkw_28" "nkw_29" "nkw_30" "nkw_31" "nkw_32"
## [33] "nkw_33" "nkw_34" "nkw_35" "nkw_36" "nkw_37" "nkw_38" "nkw_39" "nkw_40"
## [41] "nkw_41" "nkw_42" "nkw_43" "nkw_44" "nkw_45"1から45ある。条件文を書くために，確認していく。
kakunin <- kw2.comp.tab[c("NCode", "Code")]
#i = 1; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 2; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 3; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 4; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 5; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 6; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 7; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 8; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 9; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 10; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 11; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 12; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 13; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 14; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 15; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 16; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 17; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 18; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 19; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 20; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 21; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 22; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 23; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 24; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 25; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 26; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 27; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 28; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 29; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 30; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 31; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 32; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 33; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 34; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 35; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 36; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 37; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 38; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 39; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 40; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 41; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 42; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 43; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 44; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)
#i = 45; nkw_ <- paste("nkw_", i, sep = ""); kakunin %>% dplyr::filter(NCode == nkw_)jjer.nkw_1_ <- jjer.res %>% mutate(nkw_1 = if_else(kw_1 == 1 | kw_101 == 1, 1, 0))
jjer.nkw_2_ <- jjer.res %>% mutate(nkw_2 = if_else(kw_2 == 1 | kw_129 == 1, 1, 0))
jjer.nkw_3_ <- jjer.res %>% mutate(nkw_3 = if_else(kw_3 == 1 | kw_5 == 1 |
kw_6 == 1 | kw_9 == 1 |
kw_19 == 1 | kw_45 == 1 |
kw_79 == 1 | kw_81 == 1 |
kw_125 == 1, 1, 0))
jjer.nkw_4_ <- jjer.res %>% mutate(nkw_4 = if_else(kw_4 == 1 | kw_184 == 1 |
kw_185 == 1 | kw_186 == 1 |
kw_187 == 1, 1, 0))
jjer.nkw_5_ <- jjer.res %>% mutate(nkw_5 = if_else(kw_21 == 1 | kw_42 == 1 |
kw_43 == 1 | kw_89 == 1 |
kw_100 == 1 | kw_104 == 1, 1, 0))
jjer.nkw_6_ <- jjer.res %>% mutate(nkw_6 = if_else(kw_29 == 1 | kw_30 == 1 |
kw_171 == 1, 1, 0))
jjer.nkw_7_ <- jjer.res %>% mutate(nkw_7 = if_else(kw_32 == 1 | kw_73 == 1 |
kw_87 == 1 | kw_183 == 1, 1, 0))
jjer.nkw_8_ <- jjer.res %>% mutate(nkw_8 = if_else(kw_33 == 1, 1, 0))
jjer.nkw_9_ <- jjer.res %>% mutate(nkw_9 = if_else(kw_35 == 1 | kw_136 == 1, 1, 0))
jjer.nkw_10_ <- jjer.res %>% mutate(nkw_10 = if_else(kw_48 == 1 | kw_51 == 1, 1, 0))
jjer.nkw_11_ <- jjer.res %>% mutate(nkw_11 = if_else(kw_49 == 1 | kw_58 == 1, 1, 0))
jjer.nkw_12_ <- jjer.res %>% mutate(nkw_12 = if_else(kw_53 == 1, 1, 0))
jjer.nkw_13_ <- jjer.res %>% mutate(nkw_13 = if_else(kw_54 == 1 | kw_55 == 1, 1, 0))
jjer.nkw_14_ <- jjer.res %>% mutate(nkw_14 = if_else(kw_66 == 1 | kw_67 == 1 |
kw_102 == 1 | kw_103 == 1 |
kw_128 == 1 | kw_170 == 1, 1, 0))
#jjer.nkw_15_ <- jjer.res %>% mutate(nkw_15 = if_else(kw_71 == 1, 1, 0))
jjer.nkw_16_ <- jjer.res %>% mutate(nkw_16 = if_else(kw_74 == 1, 1, 0))
jjer.nkw_17_ <- jjer.res %>% mutate(nkw_17 = if_else(kw_75 == 1 | kw_76 == 1 |
kw_77 == 1 | kw_78 == 1 |
kw_83 == 1 | kw_85 == 1 |
kw_86 == 1 | kw_175 == 1 |
kw_176 == 1 | kw_177 == 1 |
kw_178 == 1 | kw_179 == 1 |
kw_180 == 1 | kw_181 == 1, 1, 0))
jjer.nkw_18_ <- jjer.res %>% mutate(nkw_18 = if_else(kw_80 == 1 | kw_130 == 1 |
kw_174 == 1, 1, 0))
jjer.nkw_19_ <- jjer.res %>% mutate(nkw_19 = if_else(kw_82 == 1, 1, 0))
jjer.nkw_20_ <- jjer.res %>% mutate(nkw_20 = if_else(kw_90 == 1 | kw_91 == 1 |
kw_135 == 1, 1, 0))
jjer.nkw_21_ <- jjer.res %>% mutate(nkw_21 = if_else(kw_92 == 1, 1, 0))
jjer.nkw_22_ <- jjer.res %>% mutate(nkw_22 = if_else(kw_93 == 1 | kw_126 == 1, 1, 0))
jjer.nkw_23_ <- jjer.res %>% mutate(nkw_23 = if_else(kw_94 == 1, 1, 0))
jjer.nkw_24_ <- jjer.res %>% mutate(nkw_24 = if_else(kw_95 == 1 | kw_96 == 1 |
kw_97 == 1 | kw_105 == 1 |
kw_173 == 1, 1, 0))
jjer.nkw_25_ <- jjer.res %>% mutate(nkw_25 = if_else(kw_98 == 1 | kw_164 == 1, 1, 0))
jjer.nkw_26_ <- jjer.res %>% mutate(nkw_26 = if_else(kw_99 == 1 | kw_133 == 1, 1, 0))
jjer.nkw_27_ <- jjer.res %>% mutate(nkw_27 = if_else(kw_106 == 1, 1, 0))
jjer.nkw_28_ <- jjer.res %>% mutate(nkw_28 = if_else(kw_107 == 1 | kw_110 == 1 |
kw_160 == 1, 1, 0))
jjer.nkw_29_ <- jjer.res %>% mutate(nkw_29 = if_else(kw_108 == 1, 1, 0))
jjer.nkw_30_ <- jjer.res %>% mutate(nkw_30 = if_else(kw_111 == 1 | kw_167 == 1, 1, 0))
jjer.nkw_31_ <- jjer.res %>% mutate(nkw_31 = if_else(kw_112 == 1 | kw_166 == 1, 1, 0))
jjer.nkw_32_ <- jjer.res %>% mutate(nkw_32 = if_else(kw_113 == 1 | kw_115 == 1 |
kw_116 == 1 | kw_121 == 1 |
kw_154 == 1, 1, 0))
jjer.nkw_33_ <- jjer.res %>% mutate(nkw_33 = if_else(kw_114 == 1 | kw_161 == 1 |
kw_188 == 1 | kw_189 == 1, 1, 0))
jjer.nkw_34_ <- jjer.res %>% mutate(nkw_34 = if_else(kw_117 == 1 | kw_163 == 1, 1, 0))
jjer.nkw_35_ <- jjer.res %>% mutate(nkw_35 = if_else(kw_118 == 1 | kw_127 == 1, 1, 0))
jjer.nkw_36_ <- jjer.res %>% mutate(nkw_36 = if_else(kw_120 == 1, 1, 0))
jjer.nkw_37_ <- jjer.res %>% mutate(nkw_37 = if_else(kw_122 == 1 | kw_123 == 1 |
kw_134 == 1 | kw_155 == 1 |
kw_157 == 1 | kw_158 == 1, 1, 0))
jjer.nkw_38_ <- jjer.res %>% mutate(nkw_38 = if_else(kw_124 == 1 | kw_148 == 1 |
kw_149 == 1, 1, 0))
jjer.nkw_39_ <- jjer.res %>% mutate(nkw_39 = if_else(kw_132 == 1, 1, 0))
#jjer.nkw_40_ <- jjer.res %>% mutate(nkw_40 = if_else(kw_149 == 1, 1, 0))
jjer.nkw_41_ <- jjer.res %>% mutate(nkw_41 = if_else(kw_150 == 1 | kw_151 == 1, 1, 0))
jjer.nkw_42_ <- jjer.res %>% mutate(nkw_42 = if_else(kw_159 == 1 | kw_162 == 1, 1, 0))
jjer.nkw_43_ <- jjer.res %>% mutate(nkw_43 = if_else(kw_165 == 1, 1, 0))
jjer.nkw_44_ <- jjer.res %>% mutate(nkw_44 = if_else(kw_168 == 1, 1, 0))
jjer.nkw_45_ <- jjer.res %>% mutate(nkw_45 = if_else(kw_169 == 1, 1, 0))
jjer.nkw_1 <- jjer.nkw_1_[c(2, 193)]; colnames(jjer.nkw_1) <- c("DOI", "nkw_1")
jjer.nkw_2 <- jjer.nkw_2_[c(2, 193)]; colnames(jjer.nkw_2) <- c("DOI", "nkw_2")
jjer.nkw_3 <- jjer.nkw_3_[c(2, 193)]; colnames(jjer.nkw_3) <- c("DOI", "nkw_3")
jjer.nkw_4 <- jjer.nkw_4_[c(2, 193)]; colnames(jjer.nkw_4) <- c("DOI", "nkw_4")
jjer.nkw_5 <- jjer.nkw_5_[c(2, 193)]; colnames(jjer.nkw_5) <- c("DOI", "nkw_5")
jjer.nkw_6 <- jjer.nkw_6_[c(2, 193)]; colnames(jjer.nkw_6) <- c("DOI", "nkw_6")
jjer.nkw_7 <- jjer.nkw_7_[c(2, 193)]; colnames(jjer.nkw_7) <- c("DOI", "nkw_7")
jjer.nkw_8 <- jjer.nkw_8_[c(2, 193)]; colnames(jjer.nkw_8) <- c("DOI", "nkw_8")
jjer.nkw_9 <- jjer.nkw_9_[c(2, 193)]; colnames(jjer.nkw_9) <- c("DOI", "nkw_9")
jjer.nkw_10 <- jjer.nkw_10_[c(2, 193)]; colnames(jjer.nkw_10) <- c("DOI", "nkw_10")
jjer.nkw_11 <- jjer.nkw_11_[c(2, 193)]; colnames(jjer.nkw_11) <- c("DOI", "nkw_11")
jjer.nkw_12 <- jjer.nkw_12_[c(2, 193)]; colnames(jjer.nkw_12) <- c("DOI", "nkw_12")
jjer.nkw_13 <- jjer.nkw_13_[c(2, 193)]; colnames(jjer.nkw_13) <- c("DOI", "nkw_13")
jjer.nkw_14 <- jjer.nkw_14_[c(2, 193)]; colnames(jjer.nkw_14) <- c("DOI", "nkw_14")
#jjer.nkw_15 <- jjer.nkw_15_[c(2, 193)]; colnames(jjer.nkw_15) <- c("DOI", "nkw_15")
jjer.nkw_16 <- jjer.nkw_16_[c(2, 193)]; colnames(jjer.nkw_16) <- c("DOI", "nkw_16")
jjer.nkw_17 <- jjer.nkw_17_[c(2, 193)]; colnames(jjer.nkw_17) <- c("DOI", "nkw_17")
jjer.nkw_18 <- jjer.nkw_18_[c(2, 193)]; colnames(jjer.nkw_18) <- c("DOI", "nkw_18")
jjer.nkw_19 <- jjer.nkw_19_[c(2, 193)]; colnames(jjer.nkw_19) <- c("DOI", "nkw_19")
jjer.nkw_20 <- jjer.nkw_20_[c(2, 193)]; colnames(jjer.nkw_20) <- c("DOI", "nkw_20")
jjer.nkw_21 <- jjer.nkw_21_[c(2, 193)]; colnames(jjer.nkw_21) <- c("DOI", "nkw_21")
jjer.nkw_22 <- jjer.nkw_22_[c(2, 193)]; colnames(jjer.nkw_22) <- c("DOI", "nkw_22")
jjer.nkw_23 <- jjer.nkw_23_[c(2, 193)]; colnames(jjer.nkw_23) <- c("DOI", "nkw_23")
jjer.nkw_24 <- jjer.nkw_24_[c(2, 193)]; colnames(jjer.nkw_24) <- c("DOI", "nkw_24")
jjer.nkw_25 <- jjer.nkw_25_[c(2, 193)]; colnames(jjer.nkw_25) <- c("DOI", "nkw_25")
jjer.nkw_26 <- jjer.nkw_26_[c(2, 193)]; colnames(jjer.nkw_26) <- c("DOI", "nkw_26")
jjer.nkw_27 <- jjer.nkw_27_[c(2, 193)]; colnames(jjer.nkw_27) <- c("DOI", "nkw_27")
jjer.nkw_28 <- jjer.nkw_28_[c(2, 193)]; colnames(jjer.nkw_28) <- c("DOI", "nkw_28")
jjer.nkw_29 <- jjer.nkw_29_[c(2, 193)]; colnames(jjer.nkw_29) <- c("DOI", "nkw_29")
jjer.nkw_30 <- jjer.nkw_30_[c(2, 193)]; colnames(jjer.nkw_30) <- c("DOI", "nkw_30")
jjer.nkw_31 <- jjer.nkw_31_[c(2, 193)]; colnames(jjer.nkw_31) <- c("DOI", "nkw_31")
jjer.nkw_32 <- jjer.nkw_32_[c(2, 193)]; colnames(jjer.nkw_32) <- c("DOI", "nkw_32")
jjer.nkw_33 <- jjer.nkw_33_[c(2, 193)]; colnames(jjer.nkw_33) <- c("DOI", "nkw_33")
jjer.nkw_34 <- jjer.nkw_34_[c(2, 193)]; colnames(jjer.nkw_34) <- c("DOI", "nkw_34")
jjer.nkw_35 <- jjer.nkw_35_[c(2, 193)]; colnames(jjer.nkw_35) <- c("DOI", "nkw_35")
jjer.nkw_36 <- jjer.nkw_36_[c(2, 193)]; colnames(jjer.nkw_36) <- c("DOI", "nkw_36")
jjer.nkw_37 <- jjer.nkw_37_[c(2, 193)]; colnames(jjer.nkw_37) <- c("DOI", "nkw_37")
jjer.nkw_38 <- jjer.nkw_38_[c(2, 193)]; colnames(jjer.nkw_38) <- c("DOI", "nkw_38")
jjer.nkw_39 <- jjer.nkw_39_[c(2, 193)]; colnames(jjer.nkw_39) <- c("DOI", "nkw_39")
#jjer.nkw_40 <- jjer.nkw_40_[c(2, 193)]; colnames(jjer.nkw_40) <- c("DOI", "nkw_40")
jjer.nkw_41 <- jjer.nkw_41_[c(2, 193)]; colnames(jjer.nkw_41) <- c("DOI", "nkw_41")
jjer.nkw_42 <- jjer.nkw_42_[c(2, 193)]; colnames(jjer.nkw_42) <- c("DOI", "nkw_42")
jjer.nkw_43 <- jjer.nkw_43_[c(2, 193)]; colnames(jjer.nkw_43) <- c("DOI", "nkw_43")
jjer.nkw_44 <- jjer.nkw_44_[c(2, 193)]; colnames(jjer.nkw_44) <- c("DOI", "nkw_44")
jjer.nkw_45 <- jjer.nkw_45_[c(2, 193)]; colnames(jjer.nkw_45) <- c("DOI", "nkw_45")
jjer.doi <- data.frame(jjer.nkw_1[c(1)])
jjer.nkw <- dplyr::bind_cols(jjer.doi,
jjer.nkw_1[c(2)], jjer.nkw_2[c(2)], jjer.nkw_3[c(2)],
jjer.nkw_4[c(2)], jjer.nkw_5[c(2)], jjer.nkw_6[c(2)],
jjer.nkw_7[c(2)], jjer.nkw_8[c(2)], jjer.nkw_9[c(2)],
jjer.nkw_10[c(2)], jjer.nkw_11[c(2)], jjer.nkw_12[c(2)],
jjer.nkw_13[c(2)], jjer.nkw_14[c(2)], #jjer.nkw_15[c(2)],
jjer.nkw_16[c(2)], jjer.nkw_17[c(2)], jjer.nkw_18[c(2)],
jjer.nkw_19[c(2)], jjer.nkw_20[c(2)], jjer.nkw_21[c(2)],
jjer.nkw_22[c(2)], jjer.nkw_23[c(2)], jjer.nkw_24[c(2)],
jjer.nkw_25[c(2)], jjer.nkw_26[c(2)], jjer.nkw_27[c(2)],
jjer.nkw_28[c(2)], jjer.nkw_29[c(2)], jjer.nkw_30[c(2)],
jjer.nkw_31[c(2)], jjer.nkw_32[c(2)], jjer.nkw_33[c(2)],
jjer.nkw_34[c(2)], jjer.nkw_35[c(2)], jjer.nkw_36[c(2)],
jjer.nkw_37[c(2)], jjer.nkw_38[c(2)], jjer.nkw_39[c(2)],
#jjer.nkw_40[c(2)],
jjer.nkw_41[c(2)], jjer.nkw_42[c(2)],
jjer.nkw_43[c(2)], jjer.nkw_44[c(2)], jjer.nkw_45[c(2)])
# 確認
jjer.nkw$sum <- jjer.nkw %>% select(contains("nkw_")) %>% rowSums
jjer.nkw.1 <- jjer.nkw %>% dplyr::filter(sum > 0)
jjer.nkw.0 <- jjer.nkw %>% dplyr::filter(sum == 0)
nrow(jjer.nkw.1)## [1] 47nrow(jjer.nkw.0)## [1] 304# 保存
write.csv(jjer.nkw, "../Tagged/jjer_nkw.csv")
DT::datatable(jjer.nkw)jjep.nkw_1_ <- jjep.res %>% mutate(nkw_1 = if_else(kw_1 == 1 | kw_101 == 1, 1, 0))
jjep.nkw_2_ <- jjep.res %>% mutate(nkw_2 = if_else(kw_2 == 1 | kw_129 == 1, 1, 0))
jjep.nkw_3_ <- jjep.res %>% mutate(nkw_3 = if_else(kw_3 == 1 | kw_5 == 1 |
kw_6 == 1 | kw_9 == 1 |
kw_19 == 1 | kw_45 == 1 |
kw_79 == 1 | kw_81 == 1 |
kw_125 == 1, 1, 0))
jjep.nkw_4_ <- jjep.res %>% mutate(nkw_4 = if_else(kw_4 == 1 | kw_184 == 1 |
kw_185 == 1 | kw_186 == 1 |
kw_187 == 1, 1, 0))
jjep.nkw_5_ <- jjep.res %>% mutate(nkw_5 = if_else(kw_21 == 1 | kw_42 == 1 |
kw_43 == 1 | kw_89 == 1 |
kw_100 == 1 | kw_104 == 1, 1, 0))
jjep.nkw_6_ <- jjep.res %>% mutate(nkw_6 = if_else(kw_29 == 1 | kw_30 == 1 |
kw_171 == 1, 1, 0))
jjep.nkw_7_ <- jjep.res %>% mutate(nkw_7 = if_else(kw_32 == 1 | kw_73 == 1 |
kw_87 == 1 | kw_183 == 1, 1, 0))
jjep.nkw_8_ <- jjep.res %>% mutate(nkw_8 = if_else(kw_33 == 1, 1, 0))
jjep.nkw_9_ <- jjep.res %>% mutate(nkw_9 = if_else(kw_35 == 1 | kw_136 == 1, 1, 0))
jjep.nkw_10_ <- jjep.res %>% mutate(nkw_10 = if_else(kw_48 == 1 | kw_51 == 1, 1, 0))
jjep.nkw_11_ <- jjep.res %>% mutate(nkw_11 = if_else(kw_49 == 1 | kw_58 == 1, 1, 0))
jjep.nkw_12_ <- jjep.res %>% mutate(nkw_12 = if_else(kw_53 == 1, 1, 0))
jjep.nkw_13_ <- jjep.res %>% mutate(nkw_13 = if_else(kw_54 == 1 | kw_55 == 1, 1, 0))
jjep.nkw_14_ <- jjep.res %>% mutate(nkw_14 = if_else(kw_66 == 1 | kw_67 == 1 |
kw_102 == 1 | kw_103 == 1 |
kw_128 == 1 | kw_170 == 1, 1, 0))
#jjep.nkw_15_ <- jjep.res %>% mutate(nkw_15 = if_else(kw_71 == 1, 1, 0))
jjep.nkw_16_ <- jjep.res %>% mutate(nkw_16 = if_else(kw_74 == 1, 1, 0))
jjep.nkw_17_ <- jjep.res %>% mutate(nkw_17 = if_else(kw_75 == 1 | kw_76 == 1 |
kw_77 == 1 | kw_78 == 1 |
kw_83 == 1 | kw_85 == 1 |
kw_86 == 1 | kw_175 == 1 |
kw_176 == 1 | kw_177 == 1 |
kw_178 == 1 | kw_179 == 1 |
kw_180 == 1 | kw_181 == 1, 1, 0))
jjep.nkw_18_ <- jjep.res %>% mutate(nkw_18 = if_else(kw_80 == 1 | kw_130 == 1 |
kw_174 == 1, 1, 0))
jjep.nkw_19_ <- jjep.res %>% mutate(nkw_19 = if_else(kw_82 == 1, 1, 0))
jjep.nkw_20_ <- jjep.res %>% mutate(nkw_20 = if_else(kw_90 == 1 | kw_91 == 1 |
kw_135 == 1, 1, 0))
jjep.nkw_21_ <- jjep.res %>% mutate(nkw_21 = if_else(kw_92 == 1, 1, 0))
jjep.nkw_22_ <- jjep.res %>% mutate(nkw_22 = if_else(kw_93 == 1 | kw_126 == 1, 1, 0))
jjep.nkw_23_ <- jjep.res %>% mutate(nkw_23 = if_else(kw_94 == 1, 1, 0))
jjep.nkw_24_ <- jjep.res %>% mutate(nkw_24 = if_else(kw_95 == 1 | kw_96 == 1 |
kw_97 == 1 | kw_105 == 1 |
kw_173 == 1, 1, 0))
jjep.nkw_25_ <- jjep.res %>% mutate(nkw_25 = if_else(kw_98 == 1 | kw_164 == 1, 1, 0))
jjep.nkw_26_ <- jjep.res %>% mutate(nkw_26 = if_else(kw_99 == 1 | kw_133 == 1, 1, 0))
jjep.nkw_27_ <- jjep.res %>% mutate(nkw_27 = if_else(kw_106 == 1, 1, 0))
jjep.nkw_28_ <- jjep.res %>% mutate(nkw_28 = if_else(kw_107 == 1 | kw_110 == 1 |
kw_160 == 1, 1, 0))
jjep.nkw_29_ <- jjep.res %>% mutate(nkw_29 = if_else(kw_108 == 1, 1, 0))
jjep.nkw_30_ <- jjep.res %>% mutate(nkw_30 = if_else(kw_111 == 1 | kw_167 == 1, 1, 0))
jjep.nkw_31_ <- jjep.res %>% mutate(nkw_31 = if_else(kw_112 == 1 | kw_166 == 1, 1, 0))
# jjepのSNSは引っかけないように
jjep.nkw_32_ <- jjep.res %>% mutate(nkw_32 = if_else(kw_113 == 0 | kw_115 == 1 |
kw_116 == 1 | kw_121 == 1 |
kw_154 == 1, 1, 0))
jjep.nkw_33_ <- jjep.res %>% mutate(nkw_33 = if_else(kw_114 == 1 | kw_161 == 1 |
kw_188 == 1 | kw_189 == 1, 1, 0))
jjep.nkw_34_ <- jjep.res %>% mutate(nkw_34 = if_else(kw_117 == 1 | kw_163 == 1, 1, 0))
jjep.nkw_35_ <- jjep.res %>% mutate(nkw_35 = if_else(kw_118 == 1 | kw_127 == 1, 1, 0))
jjep.nkw_36_ <- jjep.res %>% mutate(nkw_36 = if_else(kw_120 == 1, 1, 0))
jjep.nkw_37_ <- jjep.res %>% mutate(nkw_37 = if_else(kw_122 == 1 | kw_123 == 1 |
kw_134 == 1 | kw_155 == 1 |
kw_157 == 1 | kw_158 == 1, 1, 0))
jjep.nkw_38_ <- jjep.res %>% mutate(nkw_38 = if_else(kw_124 == 1 | kw_148 == 1 |
kw_149 == 1, 1, 0))
jjep.nkw_39_ <- jjep.res %>% mutate(nkw_39 = if_else(kw_132 == 1, 1, 0))
#jjep.nkw_40_ <- jjep.res %>% mutate(nkw_40 = if_else(kw_149 == 1, 1, 0))
jjep.nkw_41_ <- jjep.res %>% mutate(nkw_41 = if_else(kw_150 == 1 | kw_151 == 1, 1, 0))
jjep.nkw_42_ <- jjep.res %>% mutate(nkw_42 = if_else(kw_159 == 1 | kw_162 == 1, 1, 0))
jjep.nkw_43_ <- jjep.res %>% mutate(nkw_43 = if_else(kw_165 == 1, 1, 0))
jjep.nkw_44_ <- jjep.res %>% mutate(nkw_44 = if_else(kw_168 == 1, 1, 0))
jjep.nkw_45_ <- jjep.res %>% mutate(nkw_45 = if_else(kw_169 == 1, 1, 0))
jjep.nkw_1 <- jjep.nkw_1_[c(2, 193)]; colnames(jjep.nkw_1) <- c("DOI", "nkw_1")
jjep.nkw_2 <- jjep.nkw_2_[c(2, 193)]; colnames(jjep.nkw_2) <- c("DOI", "nkw_2")
jjep.nkw_3 <- jjep.nkw_3_[c(2, 193)]; colnames(jjep.nkw_3) <- c("DOI", "nkw_3")
jjep.nkw_4 <- jjep.nkw_4_[c(2, 193)]; colnames(jjep.nkw_4) <- c("DOI", "nkw_4")
jjep.nkw_5 <- jjep.nkw_5_[c(2, 193)]; colnames(jjep.nkw_5) <- c("DOI", "nkw_5")
jjep.nkw_6 <- jjep.nkw_6_[c(2, 193)]; colnames(jjep.nkw_6) <- c("DOI", "nkw_6")
jjep.nkw_7 <- jjep.nkw_7_[c(2, 193)]; colnames(jjep.nkw_7) <- c("DOI", "nkw_7")
jjep.nkw_8 <- jjep.nkw_8_[c(2, 193)]; colnames(jjep.nkw_8) <- c("DOI", "nkw_8")
jjep.nkw_9 <- jjep.nkw_9_[c(2, 193)]; colnames(jjep.nkw_9) <- c("DOI", "nkw_9")
jjep.nkw_10 <- jjep.nkw_10_[c(2, 193)]; colnames(jjep.nkw_10) <- c("DOI", "nkw_10")
jjep.nkw_11 <- jjep.nkw_11_[c(2, 193)]; colnames(jjep.nkw_11) <- c("DOI", "nkw_11")
jjep.nkw_12 <- jjep.nkw_12_[c(2, 193)]; colnames(jjep.nkw_12) <- c("DOI", "nkw_12")
jjep.nkw_13 <- jjep.nkw_13_[c(2, 193)]; colnames(jjep.nkw_13) <- c("DOI", "nkw_13")
jjep.nkw_14 <- jjep.nkw_14_[c(2, 193)]; colnames(jjep.nkw_14) <- c("DOI", "nkw_14")
#jjep.nkw_15 <- jjep.nkw_15_[c(2, 193)]; colnames(jjep.nkw_15) <- c("DOI", "nkw_15")
jjep.nkw_16 <- jjep.nkw_16_[c(2, 193)]; colnames(jjep.nkw_16) <- c("DOI", "nkw_16")
jjep.nkw_17 <- jjep.nkw_17_[c(2, 193)]; colnames(jjep.nkw_17) <- c("DOI", "nkw_17")
jjep.nkw_18 <- jjep.nkw_18_[c(2, 193)]; colnames(jjep.nkw_18) <- c("DOI", "nkw_18")
jjep.nkw_19 <- jjep.nkw_19_[c(2, 193)]; colnames(jjep.nkw_19) <- c("DOI", "nkw_19")
jjep.nkw_20 <- jjep.nkw_20_[c(2, 193)]; colnames(jjep.nkw_20) <- c("DOI", "nkw_20")
jjep.nkw_21 <- jjep.nkw_21_[c(2, 193)]; colnames(jjep.nkw_21) <- c("DOI", "nkw_21")
jjep.nkw_22 <- jjep.nkw_22_[c(2, 193)]; colnames(jjep.nkw_22) <- c("DOI", "nkw_22")
jjep.nkw_23 <- jjep.nkw_23_[c(2, 193)]; colnames(jjep.nkw_23) <- c("DOI", "nkw_23")
jjep.nkw_24 <- jjep.nkw_24_[c(2, 193)]; colnames(jjep.nkw_24) <- c("DOI", "nkw_24")
jjep.nkw_25 <- jjep.nkw_25_[c(2, 193)]; colnames(jjep.nkw_25) <- c("DOI", "nkw_25")
jjep.nkw_26 <- jjep.nkw_26_[c(2, 193)]; colnames(jjep.nkw_26) <- c("DOI", "nkw_26")
jjep.nkw_27 <- jjep.nkw_27_[c(2, 193)]; colnames(jjep.nkw_27) <- c("DOI", "nkw_27")
jjep.nkw_28 <- jjep.nkw_28_[c(2, 193)]; colnames(jjep.nkw_28) <- c("DOI", "nkw_28")
jjep.nkw_29 <- jjep.nkw_29_[c(2, 193)]; colnames(jjep.nkw_29) <- c("DOI", "nkw_29")
jjep.nkw_30 <- jjep.nkw_30_[c(2, 193)]; colnames(jjep.nkw_30) <- c("DOI", "nkw_30")
jjep.nkw_31 <- jjep.nkw_31_[c(2, 193)]; colnames(jjep.nkw_31) <- c("DOI", "nkw_31")
jjep.nkw_32 <- jjep.nkw_32_[c(2, 193)]; colnames(jjep.nkw_32) <- c("DOI", "nkw_32")
jjep.nkw_33 <- jjep.nkw_33_[c(2, 193)]; colnames(jjep.nkw_33) <- c("DOI", "nkw_33")
jjep.nkw_34 <- jjep.nkw_34_[c(2, 193)]; colnames(jjep.nkw_34) <- c("DOI", "nkw_34")
jjep.nkw_35 <- jjep.nkw_35_[c(2, 193)]; colnames(jjep.nkw_35) <- c("DOI", "nkw_35")
jjep.nkw_36 <- jjep.nkw_36_[c(2, 193)]; colnames(jjep.nkw_36) <- c("DOI", "nkw_36")
jjep.nkw_37 <- jjep.nkw_37_[c(2, 193)]; colnames(jjep.nkw_37) <- c("DOI", "nkw_37")
jjep.nkw_38 <- jjep.nkw_38_[c(2, 193)]; colnames(jjep.nkw_38) <- c("DOI", "nkw_38")
jjep.nkw_39 <- jjep.nkw_39_[c(2, 193)]; colnames(jjep.nkw_39) <- c("DOI", "nkw_39")
#jjep.nkw_40 <- jjep.nkw_40_[c(2, 193)]; colnames(jjep.nkw_40) <- c("DOI", "nkw_40")
jjep.nkw_41 <- jjep.nkw_41_[c(2, 193)]; colnames(jjep.nkw_41) <- c("DOI", "nkw_41")
jjep.nkw_42 <- jjep.nkw_42_[c(2, 193)]; colnames(jjep.nkw_42) <- c("DOI", "nkw_42")
jjep.nkw_43 <- jjep.nkw_43_[c(2, 193)]; colnames(jjep.nkw_43) <- c("DOI", "nkw_43")
jjep.nkw_44 <- jjep.nkw_44_[c(2, 193)]; colnames(jjep.nkw_44) <- c("DOI", "nkw_44")
jjep.nkw_45 <- jjep.nkw_45_[c(2, 193)]; colnames(jjep.nkw_45) <- c("DOI", "nkw_45")
jjep.doi <- data.frame(jjep.nkw_1[c(1)])
jjep.nkw <- dplyr::bind_cols(jjep.doi,
jjep.nkw_1[c(2)], jjep.nkw_2[c(2)], jjep.nkw_3[c(2)],
jjep.nkw_4[c(2)], jjep.nkw_5[c(2)], jjep.nkw_6[c(2)],
jjep.nkw_7[c(2)], jjep.nkw_8[c(2)], jjep.nkw_9[c(2)],
jjep.nkw_10[c(2)], jjep.nkw_11[c(2)], jjep.nkw_12[c(2)],
jjep.nkw_13[c(2)], jjep.nkw_14[c(2)], #jjep.nkw_15[c(2)],
jjep.nkw_16[c(2)], jjep.nkw_17[c(2)], jjep.nkw_18[c(2)],
jjep.nkw_19[c(2)], jjep.nkw_20[c(2)], jjep.nkw_21[c(2)],
jjep.nkw_22[c(2)], jjep.nkw_23[c(2)], jjep.nkw_24[c(2)],
jjep.nkw_25[c(2)], jjep.nkw_26[c(2)], jjep.nkw_27[c(2)],
jjep.nkw_28[c(2)], jjep.nkw_29[c(2)], jjep.nkw_30[c(2)],
jjep.nkw_31[c(2)], jjep.nkw_32[c(2)], jjep.nkw_33[c(2)],
jjep.nkw_34[c(2)], jjep.nkw_35[c(2)], jjep.nkw_36[c(2)],
jjep.nkw_37[c(2)], jjep.nkw_38[c(2)], jjep.nkw_39[c(2)],
#jjep.nkw_40[c(2)],
jjep.nkw_41[c(2)], jjep.nkw_42[c(2)],
jjep.nkw_43[c(2)], jjep.nkw_44[c(2)], jjep.nkw_45[c(2)])
# 確認
jjep.nkw$sum <- jjep.nkw %>% select(contains("nkw_")) %>% rowSums
jjep.nkw.1 <- jjep.nkw %>% dplyr::filter(sum > 0)
jjep.nkw.0 <- jjep.nkw %>% dplyr::filter(sum == 0)
nrow(jjep.nkw.1)## [1] 590nrow(jjep.nkw.0)## [1] 1# 保存
write.csv(jjep.nkw, "../Tagged/jjep_nkw.csv")
DT::datatable(jjep.nkw)jset.nkw_1_ <- jset.res %>% mutate(nkw_1 = if_else(kw_1 == 1 | kw_101 == 1, 1, 0))
jset.nkw_2_ <- jset.res %>% mutate(nkw_2 = if_else(kw_2 == 1 | kw_129 == 1, 1, 0))
jset.nkw_3_ <- jset.res %>% mutate(nkw_3 = if_else(kw_3 == 1 | kw_5 == 1 |
kw_6 == 1 | kw_9 == 1 |
kw_19 == 1 | kw_45 == 1 |
kw_79 == 1 | kw_81 == 1 |
kw_125 == 1, 1, 0))
jset.nkw_4_ <- jset.res %>% mutate(nkw_4 = if_else(kw_4 == 1 | kw_184 == 1 |
kw_185 == 1 | kw_186 == 1 |
kw_187 == 1, 1, 0))
jset.nkw_5_ <- jset.res %>% mutate(nkw_5 = if_else(kw_21 == 1 | kw_42 == 1 |
kw_43 == 1 | kw_89 == 1 |
kw_100 == 1 | kw_104 == 1, 1, 0))
jset.nkw_6_ <- jset.res %>% mutate(nkw_6 = if_else(kw_29 == 1 | kw_30 == 1 |
kw_171 == 1, 1, 0))
jset.nkw_7_ <- jset.res %>% mutate(nkw_7 = if_else(kw_32 == 1 | kw_73 == 1 |
kw_87 == 1 | kw_183 == 1, 1, 0))
jset.nkw_8_ <- jset.res %>% mutate(nkw_8 = if_else(kw_33 == 1, 1, 0))
jset.nkw_9_ <- jset.res %>% mutate(nkw_9 = if_else(kw_35 == 1 | kw_136 == 1, 1, 0))
jset.nkw_10_ <- jset.res %>% mutate(nkw_10 = if_else(kw_48 == 1 | kw_51 == 1, 1, 0))
jset.nkw_11_ <- jset.res %>% mutate(nkw_11 = if_else(kw_49 == 1 | kw_58 == 1, 1, 0))
jset.nkw_12_ <- jset.res %>% mutate(nkw_12 = if_else(kw_53 == 1, 1, 0))
jset.nkw_13_ <- jset.res %>% mutate(nkw_13 = if_else(kw_54 == 1 | kw_55 == 1, 1, 0))
jset.nkw_14_ <- jset.res %>% mutate(nkw_14 = if_else(kw_66 == 1 | kw_67 == 1 |
kw_102 == 1 | kw_103 == 1 |
kw_128 == 1 | kw_170 == 1, 1, 0))
#jset.nkw_15_ <- jset.res %>% mutate(nkw_15 = if_else(kw_71 == 1, 1, 0))
jset.nkw_16_ <- jset.res %>% mutate(nkw_16 = if_else(kw_74 == 1, 1, 0))
jset.nkw_17_ <- jset.res %>% mutate(nkw_17 = if_else(kw_75 == 1 | kw_76 == 1 |
kw_77 == 1 | kw_78 == 1 |
kw_83 == 1 | kw_85 == 1 |
kw_86 == 1 | kw_175 == 1 |
kw_176 == 1 | kw_177 == 1 |
kw_178 == 1 | kw_179 == 1 |
kw_180 == 1 | kw_181 == 1, 1, 0))
jset.nkw_18_ <- jset.res %>% mutate(nkw_18 = if_else(kw_80 == 1 | kw_130 == 1 |
kw_174 == 1, 1, 0))
jset.nkw_19_ <- jset.res %>% mutate(nkw_19 = if_else(kw_82 == 1, 1, 0))
jset.nkw_20_ <- jset.res %>% mutate(nkw_20 = if_else(kw_90 == 1 | kw_91 == 1 |
kw_135 == 1, 1, 0))
jset.nkw_21_ <- jset.res %>% mutate(nkw_21 = if_else(kw_92 == 1, 1, 0))
jset.nkw_22_ <- jset.res %>% mutate(nkw_22 = if_else(kw_93 == 1 | kw_126 == 1, 1, 0))
jset.nkw_23_ <- jset.res %>% mutate(nkw_23 = if_else(kw_94 == 1, 1, 0))
jset.nkw_24_ <- jset.res %>% mutate(nkw_24 = if_else(kw_95 == 1 | kw_96 == 1 |
kw_97 == 1 | kw_105 == 1 |
kw_173 == 1, 1, 0))
jset.nkw_25_ <- jset.res %>% mutate(nkw_25 = if_else(kw_98 == 1 | kw_164 == 1, 1, 0))
jset.nkw_26_ <- jset.res %>% mutate(nkw_26 = if_else(kw_99 == 1 | kw_133 == 1, 1, 0))
jset.nkw_27_ <- jset.res %>% mutate(nkw_27 = if_else(kw_106 == 1, 1, 0))
jset.nkw_28_ <- jset.res %>% mutate(nkw_28 = if_else(kw_107 == 1 | kw_110 == 1 |
kw_160 == 1, 1, 0))
jset.nkw_29_ <- jset.res %>% mutate(nkw_29 = if_else(kw_108 == 1, 1, 0))
jset.nkw_30_ <- jset.res %>% mutate(nkw_30 = if_else(kw_111 == 1 | kw_167 == 1, 1, 0))
jset.nkw_31_ <- jset.res %>% mutate(nkw_31 = if_else(kw_112 == 1 | kw_166 == 1, 1, 0))
jset.nkw_32_ <- jset.res %>% mutate(nkw_32 = if_else(kw_113 == 1 | kw_115 == 1 |
kw_116 == 1 | kw_121 == 1 |
kw_154 == 1, 1, 0))
jset.nkw_33_ <- jset.res %>% mutate(nkw_33 = if_else(kw_114 == 1 | kw_161 == 1 |
kw_188 == 1 | kw_189 == 1, 1, 0))
jset.nkw_34_ <- jset.res %>% mutate(nkw_34 = if_else(kw_117 == 1 | kw_163 == 1, 1, 0))
jset.nkw_35_ <- jset.res %>% mutate(nkw_35 = if_else(kw_118 == 1 | kw_127 == 1, 1, 0))
jset.nkw_36_ <- jset.res %>% mutate(nkw_36 = if_else(kw_120 == 1, 1, 0))
jset.nkw_37_ <- jset.res %>% mutate(nkw_37 = if_else(kw_122 == 1 | kw_123 == 1 |
kw_134 == 1 | kw_155 == 1 |
kw_157 == 1 | kw_158 == 1, 1, 0))
jset.nkw_38_ <- jset.res %>% mutate(nkw_38 = if_else(kw_124 == 1 | kw_148 == 1 |
kw_149 == 1, 1, 0))
jset.nkw_39_ <- jset.res %>% mutate(nkw_39 = if_else(kw_132 == 1, 1, 0))
#jset.nkw_40_ <- jset.res %>% mutate(nkw_40 = if_else(kw_149 == 1, 1, 0))
jset.nkw_41_ <- jset.res %>% mutate(nkw_41 = if_else(kw_150 == 1 | kw_151 == 1, 1, 0))
jset.nkw_42_ <- jset.res %>% mutate(nkw_42 = if_else(kw_159 == 1 | kw_162 == 1, 1, 0))
jset.nkw_43_ <- jset.res %>% mutate(nkw_43 = if_else(kw_165 == 1, 1, 0))
jset.nkw_44_ <- jset.res %>% mutate(nkw_44 = if_else(kw_168 == 1, 1, 0))
jset.nkw_45_ <- jset.res %>% mutate(nkw_45 = if_else(kw_169 == 1, 1, 0))
jset.nkw_1 <- jset.nkw_1_[c(2, 193)]; colnames(jset.nkw_1) <- c("DOI", "nkw_1")
jset.nkw_2 <- jset.nkw_2_[c(2, 193)]; colnames(jset.nkw_2) <- c("DOI", "nkw_2")
jset.nkw_3 <- jset.nkw_3_[c(2, 193)]; colnames(jset.nkw_3) <- c("DOI", "nkw_3")
jset.nkw_4 <- jset.nkw_4_[c(2, 193)]; colnames(jset.nkw_4) <- c("DOI", "nkw_4")
jset.nkw_5 <- jset.nkw_5_[c(2, 193)]; colnames(jset.nkw_5) <- c("DOI", "nkw_5")
jset.nkw_6 <- jset.nkw_6_[c(2, 193)]; colnames(jset.nkw_6) <- c("DOI", "nkw_6")
jset.nkw_7 <- jset.nkw_7_[c(2, 193)]; colnames(jset.nkw_7) <- c("DOI", "nkw_7")
jset.nkw_8 <- jset.nkw_8_[c(2, 193)]; colnames(jset.nkw_8) <- c("DOI", "nkw_8")
jset.nkw_9 <- jset.nkw_9_[c(2, 193)]; colnames(jset.nkw_9) <- c("DOI", "nkw_9")
jset.nkw_10 <- jset.nkw_10_[c(2, 193)]; colnames(jset.nkw_10) <- c("DOI", "nkw_10")
jset.nkw_11 <- jset.nkw_11_[c(2, 193)]; colnames(jset.nkw_11) <- c("DOI", "nkw_11")
jset.nkw_12 <- jset.nkw_12_[c(2, 193)]; colnames(jset.nkw_12) <- c("DOI", "nkw_12")
jset.nkw_13 <- jset.nkw_13_[c(2, 193)]; colnames(jset.nkw_13) <- c("DOI", "nkw_13")
jset.nkw_14 <- jset.nkw_14_[c(2, 193)]; colnames(jset.nkw_14) <- c("DOI", "nkw_14")
#jset.nkw_15 <- jset.nkw_15_[c(2, 193)]; colnames(jset.nkw_15) <- c("DOI", "nkw_15")
jset.nkw_16 <- jset.nkw_16_[c(2, 193)]; colnames(jset.nkw_16) <- c("DOI", "nkw_16")
jset.nkw_17 <- jset.nkw_17_[c(2, 193)]; colnames(jset.nkw_17) <- c("DOI", "nkw_17")
jset.nkw_18 <- jset.nkw_18_[c(2, 193)]; colnames(jset.nkw_18) <- c("DOI", "nkw_18")
jset.nkw_19 <- jset.nkw_19_[c(2, 193)]; colnames(jset.nkw_19) <- c("DOI", "nkw_19")
jset.nkw_20 <- jset.nkw_20_[c(2, 193)]; colnames(jset.nkw_20) <- c("DOI", "nkw_20")
jset.nkw_21 <- jset.nkw_21_[c(2, 193)]; colnames(jset.nkw_21) <- c("DOI", "nkw_21")
jset.nkw_22 <- jset.nkw_22_[c(2, 193)]; colnames(jset.nkw_22) <- c("DOI", "nkw_22")
jset.nkw_23 <- jset.nkw_23_[c(2, 193)]; colnames(jset.nkw_23) <- c("DOI", "nkw_23")
jset.nkw_24 <- jset.nkw_24_[c(2, 193)]; colnames(jset.nkw_24) <- c("DOI", "nkw_24")
jset.nkw_25 <- jset.nkw_25_[c(2, 193)]; colnames(jset.nkw_25) <- c("DOI", "nkw_25")
jset.nkw_26 <- jset.nkw_26_[c(2, 193)]; colnames(jset.nkw_26) <- c("DOI", "nkw_26")
jset.nkw_27 <- jset.nkw_27_[c(2, 193)]; colnames(jset.nkw_27) <- c("DOI", "nkw_27")
jset.nkw_28 <- jset.nkw_28_[c(2, 193)]; colnames(jset.nkw_28) <- c("DOI", "nkw_28")
jset.nkw_29 <- jset.nkw_29_[c(2, 193)]; colnames(jset.nkw_29) <- c("DOI", "nkw_29")
jset.nkw_30 <- jset.nkw_30_[c(2, 193)]; colnames(jset.nkw_30) <- c("DOI", "nkw_30")
jset.nkw_31 <- jset.nkw_31_[c(2, 193)]; colnames(jset.nkw_31) <- c("DOI", "nkw_31")
jset.nkw_32 <- jset.nkw_32_[c(2, 193)]; colnames(jset.nkw_32) <- c("DOI", "nkw_32")
jset.nkw_33 <- jset.nkw_33_[c(2, 193)]; colnames(jset.nkw_33) <- c("DOI", "nkw_33")
jset.nkw_34 <- jset.nkw_34_[c(2, 193)]; colnames(jset.nkw_34) <- c("DOI", "nkw_34")
jset.nkw_35 <- jset.nkw_35_[c(2, 193)]; colnames(jset.nkw_35) <- c("DOI", "nkw_35")
jset.nkw_36 <- jset.nkw_36_[c(2, 193)]; colnames(jset.nkw_36) <- c("DOI", "nkw_36")
jset.nkw_37 <- jset.nkw_37_[c(2, 193)]; colnames(jset.nkw_37) <- c("DOI", "nkw_37")
jset.nkw_38 <- jset.nkw_38_[c(2, 193)]; colnames(jset.nkw_38) <- c("DOI", "nkw_38")
jset.nkw_39 <- jset.nkw_39_[c(2, 193)]; colnames(jset.nkw_39) <- c("DOI", "nkw_39")
#jset.nkw_40 <- jset.nkw_40_[c(2, 193)]; colnames(jset.nkw_40) <- c("DOI", "nkw_40")
jset.nkw_41 <- jset.nkw_41_[c(2, 193)]; colnames(jset.nkw_41) <- c("DOI", "nkw_41")
jset.nkw_42 <- jset.nkw_42_[c(2, 193)]; colnames(jset.nkw_42) <- c("DOI", "nkw_42")
jset.nkw_43 <- jset.nkw_43_[c(2, 193)]; colnames(jset.nkw_43) <- c("DOI", "nkw_43")
jset.nkw_44 <- jset.nkw_44_[c(2, 193)]; colnames(jset.nkw_44) <- c("DOI", "nkw_44")
jset.nkw_45 <- jset.nkw_45_[c(2, 193)]; colnames(jset.nkw_45) <- c("DOI", "nkw_45")
jset.doi <- data.frame(jset.nkw_1[c(1)])
jset.nkw <- dplyr::bind_cols(jset.doi,
jset.nkw_1[c(2)], jset.nkw_2[c(2)], jset.nkw_3[c(2)],
jset.nkw_4[c(2)], jset.nkw_5[c(2)], jset.nkw_6[c(2)],
jset.nkw_7[c(2)], jset.nkw_8[c(2)], jset.nkw_9[c(2)],
jset.nkw_10[c(2)], jset.nkw_11[c(2)], jset.nkw_12[c(2)],
jset.nkw_13[c(2)], jset.nkw_14[c(2)], #jset.nkw_15[c(2)],
jset.nkw_16[c(2)], jset.nkw_17[c(2)], jset.nkw_18[c(2)],
jset.nkw_19[c(2)], jset.nkw_20[c(2)], jset.nkw_21[c(2)],
jset.nkw_22[c(2)], jset.nkw_23[c(2)], jset.nkw_24[c(2)],
jset.nkw_25[c(2)], jset.nkw_26[c(2)], jset.nkw_27[c(2)],
jset.nkw_28[c(2)], jset.nkw_29[c(2)], jset.nkw_30[c(2)],
jset.nkw_31[c(2)], jset.nkw_32[c(2)], jset.nkw_33[c(2)],
jset.nkw_34[c(2)], jset.nkw_35[c(2)], jset.nkw_36[c(2)],
jset.nkw_37[c(2)], jset.nkw_38[c(2)], jset.nkw_39[c(2)],
#jset.nkw_40[c(2)],
jset.nkw_41[c(2)], jset.nkw_42[c(2)],
jset.nkw_43[c(2)], jset.nkw_44[c(2)], jset.nkw_45[c(2)])
# 確認
jset.nkw$sum <- jset.nkw %>% select(contains("nkw_")) %>% rowSums
jset.nkw.1 <- jset.nkw %>% dplyr::filter(sum > 0)
jset.nkw.0 <- jset.nkw %>% dplyr::filter(sum == 0)
nrow(jset.nkw.1)## [1] 259nrow(jset.nkw.0)## [1] 417# 保存
write.csv(jset.nkw, "../Tagged/jset_nkw.csv")
DT::datatable(jset.nkw)rjem.nkw_1_ <- rjem.res %>% mutate(nkw_1 = if_else(kw_1 == 1 | kw_101 == 1, 1, 0))
rjem.nkw_2_ <- rjem.res %>% mutate(nkw_2 = if_else(kw_2 == 1 | kw_129 == 1, 1, 0))
rjem.nkw_3_ <- rjem.res %>% mutate(nkw_3 = if_else(kw_3 == 1 | kw_5 == 1 |
kw_6 == 1 | kw_9 == 1 |
kw_19 == 1 | kw_45 == 1 |
kw_79 == 1 | kw_81 == 1 |
kw_125 == 1, 1, 0))
rjem.nkw_4_ <- rjem.res %>% mutate(nkw_4 = if_else(kw_4 == 1 | kw_184 == 1 |
kw_185 == 1 | kw_186 == 1 |
kw_187 == 1, 1, 0))
rjem.nkw_5_ <- rjem.res %>% mutate(nkw_5 = if_else(kw_21 == 1 | kw_42 == 1 |
kw_43 == 1 | kw_89 == 1 |
kw_100 == 1 | kw_104 == 1, 1, 0))
rjem.nkw_6_ <- rjem.res %>% mutate(nkw_6 = if_else(kw_29 == 1 | kw_30 == 1 |
kw_171 == 1, 1, 0))
rjem.nkw_7_ <- rjem.res %>% mutate(nkw_7 = if_else(kw_32 == 1 | kw_73 == 1 |
kw_87 == 1 | kw_183 == 1, 1, 0))
rjem.nkw_8_ <- rjem.res %>% mutate(nkw_8 = if_else(kw_33 == 1, 1, 0))
rjem.nkw_9_ <- rjem.res %>% mutate(nkw_9 = if_else(kw_35 == 1 | kw_136 == 1, 1, 0))
rjem.nkw_10_ <- rjem.res %>% mutate(nkw_10 = if_else(kw_48 == 1 | kw_51 == 1, 1, 0))
rjem.nkw_11_ <- rjem.res %>% mutate(nkw_11 = if_else(kw_49 == 1 | kw_58 == 1, 1, 0))
rjem.nkw_12_ <- rjem.res %>% mutate(nkw_12 = if_else(kw_53 == 1, 1, 0))
rjem.nkw_13_ <- rjem.res %>% mutate(nkw_13 = if_else(kw_54 == 1 | kw_55 == 1, 1, 0))
rjem.nkw_14_ <- rjem.res %>% mutate(nkw_14 = if_else(kw_66 == 1 | kw_67 == 1 |
kw_102 == 1 | kw_103 == 1 |
kw_128 == 1 | kw_170 == 1, 1, 0))
#rjem.nkw_15_ <- rjem.res %>% mutate(nkw_15 = if_else(kw_71 == 1, 1, 0))
rjem.nkw_16_ <- rjem.res %>% mutate(nkw_16 = if_else(kw_74 == 1, 1, 0))
rjem.nkw_17_ <- rjem.res %>% mutate(nkw_17 = if_else(kw_75 == 1 | kw_76 == 1 |
kw_77 == 1 | kw_78 == 1 |
kw_83 == 1 | kw_85 == 1 |
kw_86 == 1 | kw_175 == 1 |
kw_176 == 1 | kw_177 == 1 |
kw_178 == 1 | kw_179 == 1 |
kw_180 == 1 | kw_181 == 1, 1, 0))
rjem.nkw_18_ <- rjem.res %>% mutate(nkw_18 = if_else(kw_80 == 1 | kw_130 == 1 |
kw_174 == 1, 1, 0))
rjem.nkw_19_ <- rjem.res %>% mutate(nkw_19 = if_else(kw_82 == 1, 1, 0))
rjem.nkw_20_ <- rjem.res %>% mutate(nkw_20 = if_else(kw_90 == 1 | kw_91 == 1 |
kw_135 == 1, 1, 0))
rjem.nkw_21_ <- rjem.res %>% mutate(nkw_21 = if_else(kw_92 == 1, 1, 0))
rjem.nkw_22_ <- rjem.res %>% mutate(nkw_22 = if_else(kw_93 == 1 | kw_126 == 1, 1, 0))
rjem.nkw_23_ <- rjem.res %>% mutate(nkw_23 = if_else(kw_94 == 1, 1, 0))
rjem.nkw_24_ <- rjem.res %>% mutate(nkw_24 = if_else(kw_95 == 1 | kw_96 == 1 |
kw_97 == 1 | kw_105 == 1 |
kw_173 == 1, 1, 0))
rjem.nkw_25_ <- rjem.res %>% mutate(nkw_25 = if_else(kw_98 == 1 | kw_164 == 1, 1, 0))
rjem.nkw_26_ <- rjem.res %>% mutate(nkw_26 = if_else(kw_99 == 1 | kw_133 == 1, 1, 0))
rjem.nkw_27_ <- rjem.res %>% mutate(nkw_27 = if_else(kw_106 == 1, 1, 0))
rjem.nkw_28_ <- rjem.res %>% mutate(nkw_28 = if_else(kw_107 == 1 | kw_110 == 1 |
kw_160 == 1, 1, 0))
rjem.nkw_29_ <- rjem.res %>% mutate(nkw_29 = if_else(kw_108 == 1, 1, 0))
rjem.nkw_30_ <- rjem.res %>% mutate(nkw_30 = if_else(kw_111 == 1 | kw_167 == 1, 1, 0))
rjem.nkw_31_ <- rjem.res %>% mutate(nkw_31 = if_else(kw_112 == 1 | kw_166 == 1, 1, 0))
rjem.nkw_32_ <- rjem.res %>% mutate(nkw_32 = if_else(kw_113 == 1 | kw_115 == 1 |
kw_116 == 1 | kw_121 == 1 |
kw_154 == 1, 1, 0))
rjem.nkw_33_ <- rjem.res %>% mutate(nkw_33 = if_else(kw_114 == 1 | kw_161 == 1 |
kw_188 == 1 | kw_189 == 1, 1, 0))
rjem.nkw_34_ <- rjem.res %>% mutate(nkw_34 = if_else(kw_117 == 1 | kw_163 == 1, 1, 0))
rjem.nkw_35_ <- rjem.res %>% mutate(nkw_35 = if_else(kw_118 == 1 | kw_127 == 1, 1, 0))
rjem.nkw_36_ <- rjem.res %>% mutate(nkw_36 = if_else(kw_120 == 1, 1, 0))
rjem.nkw_37_ <- rjem.res %>% mutate(nkw_37 = if_else(kw_122 == 1 | kw_123 == 1 |
kw_134 == 1 | kw_155 == 1 |
kw_157 == 1 | kw_158 == 1, 1, 0))
rjem.nkw_38_ <- rjem.res %>% mutate(nkw_38 = if_else(kw_124 == 1 | kw_148 == 1 |
kw_149 == 1, 1, 0))
rjem.nkw_39_ <- rjem.res %>% mutate(nkw_39 = if_else(kw_132 == 1, 1, 0))
#rjem.nkw_40_ <- rjem.res %>% mutate(nkw_40 = if_else(kw_149 == 1, 1, 0))
rjem.nkw_41_ <- rjem.res %>% mutate(nkw_41 = if_else(kw_150 == 1 | kw_151 == 1, 1, 0))
rjem.nkw_42_ <- rjem.res %>% mutate(nkw_42 = if_else(kw_159 == 1 | kw_162 == 1, 1, 0))
rjem.nkw_43_ <- rjem.res %>% mutate(nkw_43 = if_else(kw_165 == 1, 1, 0))
rjem.nkw_44_ <- rjem.res %>% mutate(nkw_44 = if_else(kw_168 == 1, 1, 0))
rjem.nkw_45_ <- rjem.res %>% mutate(nkw_45 = if_else(kw_169 == 1, 1, 0))
rjem.nkw_1 <- rjem.nkw_1_[c(2, 193)]; colnames(rjem.nkw_1) <- c("DOI", "nkw_1")
rjem.nkw_2 <- rjem.nkw_2_[c(2, 193)]; colnames(rjem.nkw_2) <- c("DOI", "nkw_2")
rjem.nkw_3 <- rjem.nkw_3_[c(2, 193)]; colnames(rjem.nkw_3) <- c("DOI", "nkw_3")
rjem.nkw_4 <- rjem.nkw_4_[c(2, 193)]; colnames(rjem.nkw_4) <- c("DOI", "nkw_4")
rjem.nkw_5 <- rjem.nkw_5_[c(2, 193)]; colnames(rjem.nkw_5) <- c("DOI", "nkw_5")
rjem.nkw_6 <- rjem.nkw_6_[c(2, 193)]; colnames(rjem.nkw_6) <- c("DOI", "nkw_6")
rjem.nkw_7 <- rjem.nkw_7_[c(2, 193)]; colnames(rjem.nkw_7) <- c("DOI", "nkw_7")
rjem.nkw_8 <- rjem.nkw_8_[c(2, 193)]; colnames(rjem.nkw_8) <- c("DOI", "nkw_8")
rjem.nkw_9 <- rjem.nkw_9_[c(2, 193)]; colnames(rjem.nkw_9) <- c("DOI", "nkw_9")
rjem.nkw_10 <- rjem.nkw_10_[c(2, 193)]; colnames(rjem.nkw_10) <- c("DOI", "nkw_10")
rjem.nkw_11 <- rjem.nkw_11_[c(2, 193)]; colnames(rjem.nkw_11) <- c("DOI", "nkw_11")
rjem.nkw_12 <- rjem.nkw_12_[c(2, 193)]; colnames(rjem.nkw_12) <- c("DOI", "nkw_12")
rjem.nkw_13 <- rjem.nkw_13_[c(2, 193)]; colnames(rjem.nkw_13) <- c("DOI", "nkw_13")
rjem.nkw_14 <- rjem.nkw_14_[c(2, 193)]; colnames(rjem.nkw_14) <- c("DOI", "nkw_14")
#rjem.nkw_15 <- rjem.nkw_15_[c(2, 193)]; colnames(rjem.nkw_15) <- c("DOI", "nkw_15")
rjem.nkw_16 <- rjem.nkw_16_[c(2, 193)]; colnames(rjem.nkw_16) <- c("DOI", "nkw_16")
rjem.nkw_17 <- rjem.nkw_17_[c(2, 193)]; colnames(rjem.nkw_17) <- c("DOI", "nkw_17")
rjem.nkw_18 <- rjem.nkw_18_[c(2, 193)]; colnames(rjem.nkw_18) <- c("DOI", "nkw_18")
rjem.nkw_19 <- rjem.nkw_19_[c(2, 193)]; colnames(rjem.nkw_19) <- c("DOI", "nkw_19")
rjem.nkw_20 <- rjem.nkw_20_[c(2, 193)]; colnames(rjem.nkw_20) <- c("DOI", "nkw_20")
rjem.nkw_21 <- rjem.nkw_21_[c(2, 193)]; colnames(rjem.nkw_21) <- c("DOI", "nkw_21")
rjem.nkw_22 <- rjem.nkw_22_[c(2, 193)]; colnames(rjem.nkw_22) <- c("DOI", "nkw_22")
rjem.nkw_23 <- rjem.nkw_23_[c(2, 193)]; colnames(rjem.nkw_23) <- c("DOI", "nkw_23")
rjem.nkw_24 <- rjem.nkw_24_[c(2, 193)]; colnames(rjem.nkw_24) <- c("DOI", "nkw_24")
rjem.nkw_25 <- rjem.nkw_25_[c(2, 193)]; colnames(rjem.nkw_25) <- c("DOI", "nkw_25")
rjem.nkw_26 <- rjem.nkw_26_[c(2, 193)]; colnames(rjem.nkw_26) <- c("DOI", "nkw_26")
rjem.nkw_27 <- rjem.nkw_27_[c(2, 193)]; colnames(rjem.nkw_27) <- c("DOI", "nkw_27")
rjem.nkw_28 <- rjem.nkw_28_[c(2, 193)]; colnames(rjem.nkw_28) <- c("DOI", "nkw_28")
rjem.nkw_29 <- rjem.nkw_29_[c(2, 193)]; colnames(rjem.nkw_29) <- c("DOI", "nkw_29")
rjem.nkw_30 <- rjem.nkw_30_[c(2, 193)]; colnames(rjem.nkw_30) <- c("DOI", "nkw_30")
rjem.nkw_31 <- rjem.nkw_31_[c(2, 193)]; colnames(rjem.nkw_31) <- c("DOI", "nkw_31")
rjem.nkw_32 <- rjem.nkw_32_[c(2, 193)]; colnames(rjem.nkw_32) <- c("DOI", "nkw_32")
rjem.nkw_33 <- rjem.nkw_33_[c(2, 193)]; colnames(rjem.nkw_33) <- c("DOI", "nkw_33")
rjem.nkw_34 <- rjem.nkw_34_[c(2, 193)]; colnames(rjem.nkw_34) <- c("DOI", "nkw_34")
rjem.nkw_35 <- rjem.nkw_35_[c(2, 193)]; colnames(rjem.nkw_35) <- c("DOI", "nkw_35")
rjem.nkw_36 <- rjem.nkw_36_[c(2, 193)]; colnames(rjem.nkw_36) <- c("DOI", "nkw_36")
rjem.nkw_37 <- rjem.nkw_37_[c(2, 193)]; colnames(rjem.nkw_37) <- c("DOI", "nkw_37")
rjem.nkw_38 <- rjem.nkw_38_[c(2, 193)]; colnames(rjem.nkw_38) <- c("DOI", "nkw_38")
rjem.nkw_39 <- rjem.nkw_39_[c(2, 193)]; colnames(rjem.nkw_39) <- c("DOI", "nkw_39")
#rjem.nkw_40 <- rjem.nkw_40_[c(2, 193)]; colnames(rjem.nkw_40) <- c("DOI", "nkw_40")
rjem.nkw_41 <- rjem.nkw_41_[c(2, 193)]; colnames(rjem.nkw_41) <- c("DOI", "nkw_41")
rjem.nkw_42 <- rjem.nkw_42_[c(2, 193)]; colnames(rjem.nkw_42) <- c("DOI", "nkw_42")
rjem.nkw_43 <- rjem.nkw_43_[c(2, 193)]; colnames(rjem.nkw_43) <- c("DOI", "nkw_43")
rjem.nkw_44 <- rjem.nkw_44_[c(2, 193)]; colnames(rjem.nkw_44) <- c("DOI", "nkw_44")
rjem.nkw_45 <- rjem.nkw_45_[c(2, 193)]; colnames(rjem.nkw_45) <- c("DOI", "nkw_45")
rjem.doi <- data.frame(rjem.nkw_1[c(1)])
rjem.nkw <- dplyr::bind_cols(rjem.doi,
rjem.nkw_1[c(2)], rjem.nkw_2[c(2)], rjem.nkw_3[c(2)],
rjem.nkw_4[c(2)], rjem.nkw_5[c(2)], rjem.nkw_6[c(2)],
rjem.nkw_7[c(2)], rjem.nkw_8[c(2)], rjem.nkw_9[c(2)],
rjem.nkw_10[c(2)], rjem.nkw_11[c(2)], rjem.nkw_12[c(2)],
rjem.nkw_13[c(2)], rjem.nkw_14[c(2)], #rjem.nkw_15[c(2)],
rjem.nkw_16[c(2)], rjem.nkw_17[c(2)], rjem.nkw_18[c(2)],
rjem.nkw_19[c(2)], rjem.nkw_20[c(2)], rjem.nkw_21[c(2)],
rjem.nkw_22[c(2)], rjem.nkw_23[c(2)], rjem.nkw_24[c(2)],
rjem.nkw_25[c(2)], rjem.nkw_26[c(2)], rjem.nkw_27[c(2)],
rjem.nkw_28[c(2)], rjem.nkw_29[c(2)], rjem.nkw_30[c(2)],
rjem.nkw_31[c(2)], rjem.nkw_32[c(2)], rjem.nkw_33[c(2)],
rjem.nkw_34[c(2)], rjem.nkw_35[c(2)], rjem.nkw_36[c(2)],
rjem.nkw_37[c(2)], rjem.nkw_38[c(2)], rjem.nkw_39[c(2)],
#rjem.nkw_40[c(2)],
rjem.nkw_41[c(2)], rjem.nkw_42[c(2)],
rjem.nkw_43[c(2)], rjem.nkw_44[c(2)], rjem.nkw_45[c(2)])
# 確認
rjem.nkw$sum <- rjem.nkw %>% select(contains("nkw_")) %>% rowSums
rjem.nkw.1 <- rjem.nkw %>% dplyr::filter(sum > 0)
rjem.nkw.0 <- rjem.nkw %>% dplyr::filter(sum == 0)
nrow(rjem.nkw.1)## [1] 18nrow(rjem.nkw.0)## [1] 154# 保存
write.csv(rjem.nkw, "../Tagged/rjem_nkw.csv")
DT::datatable(rjem.nkw)# 読み込み
jjer <- read.csv("../Data_nkf/JJER_ABST.csv") #教育学研究
jjep <- read.csv("../Data_nkf/JJEP_ABST.csv") #教育心理学研究
jset <- read.csv("../Data_nkf/JSET_ABST.csv") #教育工学会論文誌
rjem <- read.csv("../Data_nkf/RJEM_ABST.csv") #教育方法学研究
# 加工
jjer.doi.year <- jjer[c("DOI", "Year")]
jjep.doi.year <- jjep[c("DOI", "Year")]
jset.doi.year <- jset[c("DOI", "Year")]
rjem.doi.year <- rjem[c("DOI", "Year")]
# キーワード出現状況データとの結合
jjer.year.kw <- dplyr::full_join(jjer.doi.year, jjer.nkw, by = "DOI")
jjep.year.kw <- dplyr::full_join(jjep.doi.year, jjep.nkw, by = "DOI")
jset.year.kw <- dplyr::full_join(jset.doi.year, jset.nkw, by = "DOI")
rjem.year.kw <- dplyr::full_join(rjem.doi.year, rjem.nkw, by = "DOI")
# 確認
head(jjer.year.kw)## DOI Year nkw_1 nkw_2 nkw_3 nkw_4 nkw_5 nkw_6 nkw_7 nkw_8 nkw_9
## 1 kyoiku.89.4_514 2022 0 0 0 0 0 0 0 0 0
## 2 kyoiku.89.4_526 2022 0 0 0 0 0 0 0 0 0
## 3 kyoiku.89.4_539 2022 0 0 0 0 0 0 0 0 0
## 4 kyoiku.89.4_552 2022 0 0 0 0 0 0 0 0 0
## 5 kyoiku.89.4_565 2022 0 0 0 0 0 0 0 0 0
## 6 kyoiku.89.4_579 2022 0 0 0 0 0 0 0 0 0
## nkw_10 nkw_11 nkw_12 nkw_13 nkw_14 nkw_16 nkw_17 nkw_18 nkw_19 nkw_20 nkw_21
## 1 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0
## nkw_22 nkw_23 nkw_24 nkw_25 nkw_26 nkw_27 nkw_28 nkw_29 nkw_30 nkw_31 nkw_32
## 1 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0
## nkw_33 nkw_34 nkw_35 nkw_36 nkw_37 nkw_38 nkw_39 nkw_41 nkw_42 nkw_43 nkw_44
## 1 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0
## nkw_45 sum
## 1 0 0
## 2 0 0
## 3 0 0
## 4 0 0
## 5 0 0
## 6 0 0head(jjep.year.kw)## DOI Year nkw_1 nkw_2 nkw_3 nkw_4 nkw_5 nkw_6 nkw_7 nkw_8 nkw_9 nkw_10
## 1 jjep.70.333 2022 0 0 0 0 0 0 0 0 0 0
## 2 jjep.70.347 2022 0 0 1 0 0 0 0 0 0 0
## 3 jjep.70.362 2022 0 0 0 0 0 0 0 0 0 0
## 4 jjep.70.376 2022 0 0 0 0 0 0 0 0 0 0
## 5 jjep.70.389 2022 0 0 0 0 0 0 0 0 0 0
## 6 jjep.70.404 2022 1 0 0 0 0 0 0 0 0 0
## nkw_11 nkw_12 nkw_13 nkw_14 nkw_16 nkw_17 nkw_18 nkw_19 nkw_20 nkw_21 nkw_22
## 1 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0
## nkw_23 nkw_24 nkw_25 nkw_26 nkw_27 nkw_28 nkw_29 nkw_30 nkw_31 nkw_32 nkw_33
## 1 0 0 0 0 0 0 0 0 0 1 0
## 2 0 0 0 0 0 0 0 0 0 1 0
## 3 0 0 0 0 0 0 0 0 0 1 0
## 4 0 0 0 0 0 0 0 0 0 1 0
## 5 0 0 0 0 0 0 0 0 0 1 0
## 6 0 1 0 0 0 0 0 0 0 1 0
## nkw_34 nkw_35 nkw_36 nkw_37 nkw_38 nkw_39 nkw_41 nkw_42 nkw_43 nkw_44 nkw_45
## 1 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0
## sum
## 1 1
## 2 2
## 3 1
## 4 1
## 5 1
## 6 3head(jset.year.kw)## DOI Year nkw_1 nkw_2 nkw_3 nkw_4 nkw_5 nkw_6 nkw_7 nkw_8 nkw_9 nkw_10
## 1 jjet.46135 2022 0 0 0 0 0 0 0 0 0 0
## 2 jjet.46136 2022 1 0 0 0 0 0 0 0 0 0
## 3 jjet.46021 2022 0 0 0 0 0 0 0 0 0 0
## 4 jjet.46022 2022 0 0 0 0 0 0 0 0 0 0
## 5 jjet.46024 2022 0 1 0 0 0 0 0 0 0 0
## 6 jjet.46032 2022 1 0 0 0 0 0 0 0 0 0
## nkw_11 nkw_12 nkw_13 nkw_14 nkw_16 nkw_17 nkw_18 nkw_19 nkw_20 nkw_21 nkw_22
## 1 0 0 0 0 0 0 0 0 0 0 1
## 2 0 0 0 0 0 0 0 0 0 0 1
## 3 0 0 0 0 0 0 0 0 0 0 1
## 4 0 0 0 0 0 0 0 0 0 0 1
## 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0
## nkw_23 nkw_24 nkw_25 nkw_26 nkw_27 nkw_28 nkw_29 nkw_30 nkw_31 nkw_32 nkw_33
## 1 0 1 0 0 0 0 0 0 0 0 0
## 2 0 1 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 0 1 0 0 0 0 0 0 0 0 0
## 6 0 1 0 0 0 0 0 0 0 0 0
## nkw_34 nkw_35 nkw_36 nkw_37 nkw_38 nkw_39 nkw_41 nkw_42 nkw_43 nkw_44 nkw_45
## 1 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0
## sum
## 1 2
## 2 3
## 3 1
## 4 1
## 5 2
## 6 2head(rjem.year.kw)## DOI Year nkw_1 nkw_2 nkw_3 nkw_4 nkw_5 nkw_6 nkw_7 nkw_8
## 1 nasemjournal.47.0_1 2022 0 0 0 1 0 0 0 0
## 2 nasemjournal.47.0_13 2022 0 0 0 0 0 0 0 0
## 3 nasemjournal.47.0_25 2022 0 0 0 0 0 0 0 0
## 4 nasemjournal.47.0_35 2022 0 0 0 0 0 0 0 0
## 5 nasemjournal.47.0_47 2022 0 0 0 0 0 0 0 0
## 6 nasemjournal.46.0_1 2021 0 0 0 0 0 0 1 0
## nkw_9 nkw_10 nkw_11 nkw_12 nkw_13 nkw_14 nkw_16 nkw_17 nkw_18 nkw_19 nkw_20
## 1 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0
## nkw_21 nkw_22 nkw_23 nkw_24 nkw_25 nkw_26 nkw_27 nkw_28 nkw_29 nkw_30 nkw_31
## 1 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0
## nkw_32 nkw_33 nkw_34 nkw_35 nkw_36 nkw_37 nkw_38 nkw_39 nkw_41 nkw_42 nkw_43
## 1 0 0 0 0 0 0 0 0 0 0 0
## 2 0 0 0 0 0 0 0 0 0 0 0
## 3 0 0 0 0 0 0 0 0 0 0 0
## 4 0 0 0 0 0 0 0 0 0 0 0
## 5 0 0 0 0 0 0 0 0 0 0 0
## 6 0 0 0 0 0 0 0 0 0 0 0
## nkw_44 nkw_45 sum
## 1 0 0 1
## 2 0 0 0
## 3 0 0 0
## 4 0 0 0
## 5 0 0 0
## 6 0 0 1# 年別合計
jjer.2006.kw <- jjer.year.kw %>% dplyr::filter(Year == 2006) %>% dplyr::select(contains("nkw")) %>% colSums
jjer.2007.kw <- jjer.year.kw %>% dplyr::filter(Year == 2007) %>% dplyr::select(contains("nkw")) %>% colSums
jjer.2008.kw <- jjer.year.kw %>% dplyr::filter(Year == 2008) %>% dplyr::select(contains("nkw")) %>% colSums
jjer.2009.kw <- jjer.year.kw %>% dplyr::filter(Year == 2009) %>% dplyr::select(contains("nkw")) %>% colSums
jjer.2010.kw <- jjer.year.kw %>% dplyr::filter(Year == 2010) %>% dplyr::select(contains("nkw")) %>% colSums
jjer.2011.kw <- jjer.year.kw %>% dplyr::filter(Year == 2011) %>% dplyr::select(contains("nkw")) %>% colSums
jjer.2012.kw <- jjer.year.kw %>% dplyr::filter(Year == 2012) %>% dplyr::select(contains("nkw")) %>% colSums
jjer.2013.kw <- jjer.year.kw %>% dplyr::filter(Year == 2013) %>% dplyr::select(contains("nkw")) %>% colSums
jjer.2014.kw <- jjer.year.kw %>% dplyr::filter(Year == 2014) %>% dplyr::select(contains("nkw")) %>% colSums
jjer.2015.kw <- jjer.year.kw %>% dplyr::filter(Year == 2015) %>% dplyr::select(contains("nkw")) %>% colSums
jjer.2016.kw <- jjer.year.kw %>% dplyr::filter(Year == 2016) %>% dplyr::select(contains("nkw")) %>% colSums
jjer.2017.kw <- jjer.year.kw %>% dplyr::filter(Year == 2017) %>% dplyr::select(contains("nkw")) %>% colSums
jjer.2018.kw <- jjer.year.kw %>% dplyr::filter(Year == 2018) %>% dplyr::select(contains("nkw")) %>% colSums
jjer.2019.kw <- jjer.year.kw %>% dplyr::filter(Year == 2019) %>% dplyr::select(contains("nkw")) %>% colSums
jjer.2020.kw <- jjer.year.kw %>% dplyr::filter(Year == 2020) %>% dplyr::select(contains("nkw")) %>% colSums
jjer.2021.kw <- jjer.year.kw %>% dplyr::filter(Year == 2021) %>% dplyr::select(contains("nkw")) %>% colSums
jjer.2022.kw <- jjer.year.kw %>% dplyr::filter(Year == 2022) %>% dplyr::select(contains("nkw")) %>% colSums
# 結合用の処理
jjer.2006.kw <- data.frame(jjer.2006.kw); colnames(jjer.2006.kw) <- c("jjer.2006")
jjer.2007.kw <- data.frame(jjer.2007.kw); colnames(jjer.2007.kw) <- c("jjer.2007")
jjer.2008.kw <- data.frame(jjer.2008.kw); colnames(jjer.2008.kw) <- c("jjer.2008")
jjer.2009.kw <- data.frame(jjer.2009.kw); colnames(jjer.2009.kw) <- c("jjer.2009")
jjer.2010.kw <- data.frame(jjer.2010.kw); colnames(jjer.2010.kw) <- c("jjer.2010")
jjer.2011.kw <- data.frame(jjer.2011.kw); colnames(jjer.2011.kw) <- c("jjer.2011")
jjer.2012.kw <- data.frame(jjer.2012.kw); colnames(jjer.2012.kw) <- c("jjer.2012")
jjer.2013.kw <- data.frame(jjer.2013.kw); colnames(jjer.2013.kw) <- c("jjer.2013")
jjer.2014.kw <- data.frame(jjer.2014.kw); colnames(jjer.2014.kw) <- c("jjer.2014")
jjer.2015.kw <- data.frame(jjer.2015.kw); colnames(jjer.2015.kw) <- c("jjer.2015")
jjer.2016.kw <- data.frame(jjer.2016.kw); colnames(jjer.2016.kw) <- c("jjer.2016")
jjer.2017.kw <- data.frame(jjer.2017.kw); colnames(jjer.2017.kw) <- c("jjer.2017")
jjer.2018.kw <- data.frame(jjer.2018.kw); colnames(jjer.2018.kw) <- c("jjer.2018")
jjer.2019.kw <- data.frame(jjer.2019.kw); colnames(jjer.2019.kw) <- c("jjer.2019")
jjer.2020.kw <- data.frame(jjer.2020.kw); colnames(jjer.2020.kw) <- c("jjer.2020")
jjer.2021.kw <- data.frame(jjer.2021.kw); colnames(jjer.2021.kw) <- c("jjer.2021")
jjer.2022.kw <- data.frame(jjer.2022.kw); colnames(jjer.2022.kw) <- c("jjer.2022")
# 結合
jjer.year.tab <- dplyr::bind_cols(jjer.2006.kw, jjer.2007.kw, jjer.2008.kw, jjer.2009.kw,
jjer.2010.kw, jjer.2011.kw, jjer.2012.kw, jjer.2013.kw,
jjer.2014.kw, jjer.2015.kw, jjer.2016.kw, jjer.2017.kw,
jjer.2018.kw, jjer.2019.kw, jjer.2020.kw, jjer.2021.kw,
jjer.2022.kw)
# 行合計
jjer.year.tab$jjer.sum <- jjer.year.tab %>% rowSums
# 保存
write.xlsx(jjer.year.tab, "../Table/jjer_year_tab.xlsx")
DT::datatable(jjer.year.tab)# 年別合計
jjep.2006.kw <- jjep.year.kw %>% dplyr::filter(Year == 2006) %>% dplyr::select(contains("nkw")) %>% colSums
jjep.2007.kw <- jjep.year.kw %>% dplyr::filter(Year == 2007) %>% dplyr::select(contains("nkw")) %>% colSums
jjep.2008.kw <- jjep.year.kw %>% dplyr::filter(Year == 2008) %>% dplyr::select(contains("nkw")) %>% colSums
jjep.2009.kw <- jjep.year.kw %>% dplyr::filter(Year == 2009) %>% dplyr::select(contains("nkw")) %>% colSums
jjep.2010.kw <- jjep.year.kw %>% dplyr::filter(Year == 2010) %>% dplyr::select(contains("nkw")) %>% colSums
jjep.2011.kw <- jjep.year.kw %>% dplyr::filter(Year == 2011) %>% dplyr::select(contains("nkw")) %>% colSums
jjep.2012.kw <- jjep.year.kw %>% dplyr::filter(Year == 2012) %>% dplyr::select(contains("nkw")) %>% colSums
jjep.2013.kw <- jjep.year.kw %>% dplyr::filter(Year == 2013) %>% dplyr::select(contains("nkw")) %>% colSums
jjep.2014.kw <- jjep.year.kw %>% dplyr::filter(Year == 2014) %>% dplyr::select(contains("nkw")) %>% colSums
jjep.2015.kw <- jjep.year.kw %>% dplyr::filter(Year == 2015) %>% dplyr::select(contains("nkw")) %>% colSums
jjep.2016.kw <- jjep.year.kw %>% dplyr::filter(Year == 2016) %>% dplyr::select(contains("nkw")) %>% colSums
jjep.2017.kw <- jjep.year.kw %>% dplyr::filter(Year == 2017) %>% dplyr::select(contains("nkw")) %>% colSums
jjep.2018.kw <- jjep.year.kw %>% dplyr::filter(Year == 2018) %>% dplyr::select(contains("nkw")) %>% colSums
jjep.2019.kw <- jjep.year.kw %>% dplyr::filter(Year == 2019) %>% dplyr::select(contains("nkw")) %>% colSums
jjep.2020.kw <- jjep.year.kw %>% dplyr::filter(Year == 2020) %>% dplyr::select(contains("nkw")) %>% colSums
jjep.2021.kw <- jjep.year.kw %>% dplyr::filter(Year == 2021) %>% dplyr::select(contains("nkw")) %>% colSums
jjep.2022.kw <- jjep.year.kw %>% dplyr::filter(Year == 2022) %>% dplyr::select(contains("nkw")) %>% colSums
# 結合用の処理
jjep.2006.kw <- data.frame(jjep.2006.kw); colnames(jjep.2006.kw) <- c("jjep.2006")
jjep.2007.kw <- data.frame(jjep.2007.kw); colnames(jjep.2007.kw) <- c("jjep.2007")
jjep.2008.kw <- data.frame(jjep.2008.kw); colnames(jjep.2008.kw) <- c("jjep.2008")
jjep.2009.kw <- data.frame(jjep.2009.kw); colnames(jjep.2009.kw) <- c("jjep.2009")
jjep.2010.kw <- data.frame(jjep.2010.kw); colnames(jjep.2010.kw) <- c("jjep.2010")
jjep.2011.kw <- data.frame(jjep.2011.kw); colnames(jjep.2011.kw) <- c("jjep.2011")
jjep.2012.kw <- data.frame(jjep.2012.kw); colnames(jjep.2012.kw) <- c("jjep.2012")
jjep.2013.kw <- data.frame(jjep.2013.kw); colnames(jjep.2013.kw) <- c("jjep.2013")
jjep.2014.kw <- data.frame(jjep.2014.kw); colnames(jjep.2014.kw) <- c("jjep.2014")
jjep.2015.kw <- data.frame(jjep.2015.kw); colnames(jjep.2015.kw) <- c("jjep.2015")
jjep.2016.kw <- data.frame(jjep.2016.kw); colnames(jjep.2016.kw) <- c("jjep.2016")
jjep.2017.kw <- data.frame(jjep.2017.kw); colnames(jjep.2017.kw) <- c("jjep.2017")
jjep.2018.kw <- data.frame(jjep.2018.kw); colnames(jjep.2018.kw) <- c("jjep.2018")
jjep.2019.kw <- data.frame(jjep.2019.kw); colnames(jjep.2019.kw) <- c("jjep.2019")
jjep.2020.kw <- data.frame(jjep.2020.kw); colnames(jjep.2020.kw) <- c("jjep.2020")
jjep.2021.kw <- data.frame(jjep.2021.kw); colnames(jjep.2021.kw) <- c("jjep.2021")
jjep.2022.kw <- data.frame(jjep.2022.kw); colnames(jjep.2022.kw) <- c("jjep.2022")
# 結合
jjep.year.tab <- dplyr::bind_cols(jjep.2006.kw, jjep.2007.kw, jjep.2008.kw, jjep.2009.kw,
jjep.2010.kw, jjep.2011.kw, jjep.2012.kw, jjep.2013.kw,
jjep.2014.kw, jjep.2015.kw, jjep.2016.kw, jjep.2017.kw,
jjep.2018.kw, jjep.2019.kw, jjep.2020.kw, jjep.2021.kw,
jjep.2022.kw)
# 行合計
jjep.year.tab$jjep.sum <- jjep.year.tab %>% rowSums
# 保存
write.xlsx(jjep.year.tab, "../Table/jjep_year_tab.xlsx")
DT::datatable(jjep.year.tab)# 年別合計
jset.2006.kw <- jset.year.kw %>% dplyr::filter(Year == 2006) %>% dplyr::select(contains("nkw")) %>% colSums
jset.2007.kw <- jset.year.kw %>% dplyr::filter(Year == 2007) %>% dplyr::select(contains("nkw")) %>% colSums
jset.2008.kw <- jset.year.kw %>% dplyr::filter(Year == 2008) %>% dplyr::select(contains("nkw")) %>% colSums
jset.2009.kw <- jset.year.kw %>% dplyr::filter(Year == 2009) %>% dplyr::select(contains("nkw")) %>% colSums
jset.2010.kw <- jset.year.kw %>% dplyr::filter(Year == 2010) %>% dplyr::select(contains("nkw")) %>% colSums
jset.2011.kw <- jset.year.kw %>% dplyr::filter(Year == 2011) %>% dplyr::select(contains("nkw")) %>% colSums
jset.2012.kw <- jset.year.kw %>% dplyr::filter(Year == 2012) %>% dplyr::select(contains("nkw")) %>% colSums
jset.2013.kw <- jset.year.kw %>% dplyr::filter(Year == 2013) %>% dplyr::select(contains("nkw")) %>% colSums
jset.2014.kw <- jset.year.kw %>% dplyr::filter(Year == 2014) %>% dplyr::select(contains("nkw")) %>% colSums
jset.2015.kw <- jset.year.kw %>% dplyr::filter(Year == 2015) %>% dplyr::select(contains("nkw")) %>% colSums
jset.2016.kw <- jset.year.kw %>% dplyr::filter(Year == 2016) %>% dplyr::select(contains("nkw")) %>% colSums
jset.2017.kw <- jset.year.kw %>% dplyr::filter(Year == 2017) %>% dplyr::select(contains("nkw")) %>% colSums
jset.2018.kw <- jset.year.kw %>% dplyr::filter(Year == 2018) %>% dplyr::select(contains("nkw")) %>% colSums
jset.2019.kw <- jset.year.kw %>% dplyr::filter(Year == 2019) %>% dplyr::select(contains("nkw")) %>% colSums
jset.2020.kw <- jset.year.kw %>% dplyr::filter(Year == 2020) %>% dplyr::select(contains("nkw")) %>% colSums
jset.2021.kw <- jset.year.kw %>% dplyr::filter(Year == 2021) %>% dplyr::select(contains("nkw")) %>% colSums
jset.2022.kw <- jset.year.kw %>% dplyr::filter(Year == 2022) %>% dplyr::select(contains("nkw")) %>% colSums
# 結合用の処理
jset.2006.kw <- data.frame(jset.2006.kw); colnames(jset.2006.kw) <- c("jset.2006")
jset.2007.kw <- data.frame(jset.2007.kw); colnames(jset.2007.kw) <- c("jset.2007")
jset.2008.kw <- data.frame(jset.2008.kw); colnames(jset.2008.kw) <- c("jset.2008")
jset.2009.kw <- data.frame(jset.2009.kw); colnames(jset.2009.kw) <- c("jset.2009")
jset.2010.kw <- data.frame(jset.2010.kw); colnames(jset.2010.kw) <- c("jset.2010")
jset.2011.kw <- data.frame(jset.2011.kw); colnames(jset.2011.kw) <- c("jset.2011")
jset.2012.kw <- data.frame(jset.2012.kw); colnames(jset.2012.kw) <- c("jset.2012")
jset.2013.kw <- data.frame(jset.2013.kw); colnames(jset.2013.kw) <- c("jset.2013")
jset.2014.kw <- data.frame(jset.2014.kw); colnames(jset.2014.kw) <- c("jset.2014")
jset.2015.kw <- data.frame(jset.2015.kw); colnames(jset.2015.kw) <- c("jset.2015")
jset.2016.kw <- data.frame(jset.2016.kw); colnames(jset.2016.kw) <- c("jset.2016")
jset.2017.kw <- data.frame(jset.2017.kw); colnames(jset.2017.kw) <- c("jset.2017")
jset.2018.kw <- data.frame(jset.2018.kw); colnames(jset.2018.kw) <- c("jset.2018")
jset.2019.kw <- data.frame(jset.2019.kw); colnames(jset.2019.kw) <- c("jset.2019")
jset.2020.kw <- data.frame(jset.2020.kw); colnames(jset.2020.kw) <- c("jset.2020")
jset.2021.kw <- data.frame(jset.2021.kw); colnames(jset.2021.kw) <- c("jset.2021")
jset.2022.kw <- data.frame(jset.2022.kw); colnames(jset.2022.kw) <- c("jset.2022")
# 結合
jset.year.tab <- dplyr::bind_cols(jset.2006.kw, jset.2007.kw, jset.2008.kw, jset.2009.kw,
jset.2010.kw, jset.2011.kw, jset.2012.kw, jset.2013.kw,
jset.2014.kw, jset.2015.kw, jset.2016.kw, jset.2017.kw,
jset.2018.kw, jset.2019.kw, jset.2020.kw, jset.2021.kw,
jset.2022.kw)
# 行合計
jset.year.tab$jset.sum <- jset.year.tab %>% rowSums
# 保存
write.xlsx(jset.year.tab, "../Table/jset_year_tab.xlsx")
DT::datatable(jset.year.tab)# 年別合計
rjem.2006.kw <- rjem.year.kw %>% dplyr::filter(Year == 2006) %>% dplyr::select(contains("nkw")) %>% colSums
rjem.2007.kw <- rjem.year.kw %>% dplyr::filter(Year == 2007) %>% dplyr::select(contains("nkw")) %>% colSums
rjem.2008.kw <- rjem.year.kw %>% dplyr::filter(Year == 2008) %>% dplyr::select(contains("nkw")) %>% colSums
rjem.2009.kw <- rjem.year.kw %>% dplyr::filter(Year == 2009) %>% dplyr::select(contains("nkw")) %>% colSums
rjem.2010.kw <- rjem.year.kw %>% dplyr::filter(Year == 2010) %>% dplyr::select(contains("nkw")) %>% colSums
rjem.2011.kw <- rjem.year.kw %>% dplyr::filter(Year == 2011) %>% dplyr::select(contains("nkw")) %>% colSums
rjem.2012.kw <- rjem.year.kw %>% dplyr::filter(Year == 2012) %>% dplyr::select(contains("nkw")) %>% colSums
rjem.2013.kw <- rjem.year.kw %>% dplyr::filter(Year == 2013) %>% dplyr::select(contains("nkw")) %>% colSums
rjem.2014.kw <- rjem.year.kw %>% dplyr::filter(Year == 2014) %>% dplyr::select(contains("nkw")) %>% colSums
rjem.2015.kw <- rjem.year.kw %>% dplyr::filter(Year == 2015) %>% dplyr::select(contains("nkw")) %>% colSums
rjem.2016.kw <- rjem.year.kw %>% dplyr::filter(Year == 2016) %>% dplyr::select(contains("nkw")) %>% colSums
rjem.2017.kw <- rjem.year.kw %>% dplyr::filter(Year == 2017) %>% dplyr::select(contains("nkw")) %>% colSums
rjem.2018.kw <- rjem.year.kw %>% dplyr::filter(Year == 2018) %>% dplyr::select(contains("nkw")) %>% colSums
rjem.2019.kw <- rjem.year.kw %>% dplyr::filter(Year == 2019) %>% dplyr::select(contains("nkw")) %>% colSums
rjem.2020.kw <- rjem.year.kw %>% dplyr::filter(Year == 2020) %>% dplyr::select(contains("nkw")) %>% colSums
rjem.2021.kw <- rjem.year.kw %>% dplyr::filter(Year == 2021) %>% dplyr::select(contains("nkw")) %>% colSums
rjem.2022.kw <- rjem.year.kw %>% dplyr::filter(Year == 2022) %>% dplyr::select(contains("nkw")) %>% colSums
# 結合用の処理
rjem.2006.kw <- data.frame(rjem.2006.kw); colnames(rjem.2006.kw) <- c("rjem.2006")
rjem.2007.kw <- data.frame(rjem.2007.kw); colnames(rjem.2007.kw) <- c("rjem.2007")
rjem.2008.kw <- data.frame(rjem.2008.kw); colnames(rjem.2008.kw) <- c("rjem.2008")
rjem.2009.kw <- data.frame(rjem.2009.kw); colnames(rjem.2009.kw) <- c("rjem.2009")
rjem.2010.kw <- data.frame(rjem.2010.kw); colnames(rjem.2010.kw) <- c("rjem.2010")
rjem.2011.kw <- data.frame(rjem.2011.kw); colnames(rjem.2011.kw) <- c("rjem.2011")
rjem.2012.kw <- data.frame(rjem.2012.kw); colnames(rjem.2012.kw) <- c("rjem.2012")
rjem.2013.kw <- data.frame(rjem.2013.kw); colnames(rjem.2013.kw) <- c("rjem.2013")
rjem.2014.kw <- data.frame(rjem.2014.kw); colnames(rjem.2014.kw) <- c("rjem.2014")
rjem.2015.kw <- data.frame(rjem.2015.kw); colnames(rjem.2015.kw) <- c("rjem.2015")
rjem.2016.kw <- data.frame(rjem.2016.kw); colnames(rjem.2016.kw) <- c("rjem.2016")
rjem.2017.kw <- data.frame(rjem.2017.kw); colnames(rjem.2017.kw) <- c("rjem.2017")
rjem.2018.kw <- data.frame(rjem.2018.kw); colnames(rjem.2018.kw) <- c("rjem.2018")
rjem.2019.kw <- data.frame(rjem.2019.kw); colnames(rjem.2019.kw) <- c("rjem.2019")
rjem.2020.kw <- data.frame(rjem.2020.kw); colnames(rjem.2020.kw) <- c("rjem.2020")
rjem.2021.kw <- data.frame(rjem.2021.kw); colnames(rjem.2021.kw) <- c("rjem.2021")
rjem.2022.kw <- data.frame(rjem.2022.kw); colnames(rjem.2022.kw) <- c("rjem.2022")
# 結合
rjem.year.tab <- dplyr::bind_cols(rjem.2006.kw, rjem.2007.kw, rjem.2008.kw, rjem.2009.kw,
rjem.2010.kw, rjem.2011.kw, rjem.2012.kw, rjem.2013.kw,
rjem.2014.kw, rjem.2015.kw, rjem.2016.kw, rjem.2017.kw,
rjem.2018.kw, rjem.2019.kw, rjem.2020.kw, rjem.2021.kw,
rjem.2022.kw)
# 行合計
rjem.year.tab$rjem.sum <- rjem.year.tab %>% rowSums
# 保存
write.xlsx(rjem.year.tab, "../Table/rjem_year_tab.xlsx")
DT::datatable(rjem.year.tab)このあとの作業
## user system elapsed
## 1.367 0.136 2.058