回答編集履歴
2
test
CHANGED
|
@@ -7,8 +7,8 @@
|
|
|
7
7
|
library(tidyr); library(stringr) # long形式化で利用
|
|
8
8
|
|
|
9
9
|
# 注意 docDFはdata.frameでないとうまく動作しない (tibbleではダメ)
|
|
10
|
-
the_df <- as.data.frame(readr::read_csv("hoge/Book1.csv", col_names = NA))
|
|
10
|
+
the_df <- as.data.frame(readr::read_csv("hoge/Book1.csv", col_names = NA)) # もし列名があるなら、col_name = NAは除外
|
|
11
|
-
# (デフォ列名は X1,
|
|
11
|
+
# (デフォ列名は X1,X2,...。実際のデータの列数・列名に応じて適宜変更してください)
|
|
12
12
|
bigram <- docDF(the_df, col = "X1", type = 1, nDF = 1, N = 2, pos = c("名詞", "形容詞", "動詞"))
|
|
13
13
|
# wide形式
|
|
14
14
|
bigram
|
1
test
CHANGED
|
@@ -7,8 +7,9 @@
|
|
|
7
7
|
library(tidyr); library(stringr) # long形式化で利用
|
|
8
8
|
|
|
9
9
|
# 注意 docDFはdata.frameでないとうまく動作しない (tibbleではダメ)
|
|
10
|
-
the_df <- as.data.frame(readr::read_csv("hoge/Book1.csv", col_names = NA))
|
|
10
|
+
the_df <- as.data.frame(readr::read_csv("hoge/Book1.csv", col_names = NA))
|
|
11
|
+
# (デフォ列名は X1, 適宜実際のデータの列名に変更してください)
|
|
11
|
-
bigram <- docDF(the_df, col = "X1", type = 1, nDF = 1, N = 2, pos=c("名詞", "形容詞", "動詞"))
|
|
12
|
+
bigram <- docDF(the_df, col = "X1", type = 1, nDF = 1, N = 2, pos = c("名詞", "形容詞", "動詞"))
|
|
12
13
|
# wide形式
|
|
13
14
|
bigram
|
|
14
15
|
# N1 N2 POS1 POS2 Row1 Row2
|