質問編集履歴
2
パッケージ等の追加
test
CHANGED
File without changes
|
test
CHANGED
@@ -68,6 +68,18 @@
|
|
68
68
|
|
69
69
|
```R
|
70
70
|
|
71
|
+
install.packages("igraph")
|
72
|
+
|
73
|
+
library(igraph)
|
74
|
+
|
75
|
+
|
76
|
+
|
77
|
+
install.packages("dplyr")
|
78
|
+
|
79
|
+
library(dplyr)
|
80
|
+
|
81
|
+
|
82
|
+
|
71
83
|
d <- read.csv(file='res_0322_test.csv', header=T, sep=",", fileEncoding = "UTF-8")
|
72
84
|
|
73
85
|
|
@@ -88,7 +100,7 @@
|
|
88
100
|
|
89
101
|
{
|
90
102
|
|
91
|
-
ds <- with(d, d[year==year_list[c], , drop=F])
|
103
|
+
ds <- with(d, d[year==year_list[c], , drop=F]) #年度ごとに行を抽出
|
92
104
|
|
93
105
|
g1 <- graph.data.frame(ds[,3:4],directed=F) #3-4列目にユーザIDの1:1のペアが入っている
|
94
106
|
|
@@ -102,11 +114,13 @@
|
|
102
114
|
|
103
115
|
|
104
116
|
|
117
|
+
#困っている箇所はこの辺り
|
118
|
+
|
105
|
-
|
119
|
+
deg <- as.matrix(deg)
|
106
120
|
|
107
121
|
colnames(deg) <- c("degree")
|
108
122
|
|
109
|
-
deg.all <- bind_rows(list(deg.all, deg))
|
123
|
+
deg.all <- bind_rows(list(deg.all, deg))
|
110
124
|
|
111
125
|
|
112
126
|
|
@@ -194,7 +208,7 @@
|
|
194
208
|
|
195
209
|
|
196
210
|
|
197
|
-
- 算出結果
|
211
|
+
- 算出結果(単純にprint(deg),print(clo)で出力したもの↓)
|
198
212
|
|
199
213
|
222 401 758
|
200
214
|
|
1
インプットのカラム名修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -12,7 +12,7 @@
|
|
12
12
|
|
13
13
|
- インプットデータはdata frameで処理している。
|
14
14
|
|
15
|
-
-
|
15
|
+
- 2つある中心性の結果はvector型。
|
16
16
|
|
17
17
|
- リスト年度ごとに対象ユーザID数が異なる。
|
18
18
|
|
@@ -126,7 +126,7 @@
|
|
126
126
|
|
127
127
|
- インプット
|
128
128
|
|
129
|
-
|
129
|
+
year name_no.x name_no.y N
|
130
130
|
|
131
131
|
2016 222 758 1
|
132
132
|
|