Tokyo.rの輪
- 3. 作り⽅
1. ATND の api を使って参加者リストを
取得
ruby のライブラリ atnd4r を使⽤
2. ライブラリ arules で csv を読み込み
マトリックスにする
3. R のライブラリ ape で樹形図を丸くす
る
3
- 4. ATND の api で参加者リスト取得
1回 yokkuns,akiaki5516,teilnehmen,id322,Jxck,chihirovv,...
2回 yokkuns,mizutomo,まちゃ,ichikawadaisuke,bob3,teilnehmen,...
3回 yokkuns,hamadakoichi,dichika,syou6162,bob3,aad34210,oshiro40,...
4回 yokkuns,norio3bon,hamadakoichi,nokuno,flyer,...
5回 yokkuns,nob.kino＝Nikoriks,hamadakoichi,sstat3,...
6回 yokkuns,dichika,hamadakoichi,teramonagi,jmaeno,dimbula,taku.stdy...
...
Ruby のライブラリ atnd4r を使⽤
csv で保存
4
- 5. arulesを使って csv を 0,1 ⾏列に
tk<‐read.transactions("tokyor25.csv", sep=",")
tk.mt<‐as(tk, "matrix")
t(tk.mt)
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
@ActuaryDay 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1
@syoh11 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0
__youki__ 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0
_kohta 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 1 0 0 0 0 0
07c00 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
1mail2itoh3 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
3bon 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0
840kg 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0
a‐koike 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
...
参加した回は 1
5
- 7. 画⾯では⾒えないのでPDFに
pdf("tokyoR25.pdf", w=30, h=20,
family="Japan1GothicBBB")
plot(as.phylo(hclust(dist(t(tk.mt)))),
type="fan", cex=0.7, font=1, tip.color=col,
label.offset=0.01)
title(paste(main="#01‐#25 Tokyo.R¥ntotal",
dim(tk.mt)[2]), cex.main=2)
dev.off()
7
- 9. 同様に"対応分析"⾵に
plot(corresp(t(tk.mt), nf=2))
-1.0 -0.5 0.0 0.5 1.0 1.5 2.0
3
take1qaz
hiro1270jpn
kuwa_tw
kentaro714
chihirovv
sonots
taro-sansan
id322
1
teilnehmen
Jxck
2.0
のぶひろ
gof
shigex
mizutomo
naotsuk
ichikawadaisuke
st77261
2
2
1.5
ogashin
いちい386
A.Eguchi
NAKAOfujita
kaz Keisuke
syou6162
gabanz
whym
oskimura
ahirose
keiichimaeda
bonohu
1mail2itoh3
okemos
tota
urabe.shin
winmostar
nsaito0615
1.0
mitsudaa
まちゃ
khirano1 3
takah
唐澤英長
天才白菜
nkoまにゅきゃびあ
keijimaekawa
daikirin_info
bisawa-private
promisedhill
yo.Takahashi
ryojiminami
oka.yusuke
ramuji.kato
predictor.a
pandasan
akopochi
shnya_m
hiroy2y
ken5com ehara
gurohiko
kenzrx1
keurtime.tak
BPL
t=YUI
nao99999
Nakhirot
07c00
S.Takada
ImamuR
urasaki8823
wada.k
kaz_yos
t_otoda
jar2Tsukamoto
nanofi
Rico
ukoyakarizumu
YOUG_XX
1 下 山
MetallicanX
D.CHaaaNnobi00
hrunowroot
ntsugu_
kuyamakz23
toyouke
ysaito
errylikeboy
ytra
keimai
ABZ
mrt_akm
@ActuaryDay
暇人mitz321
Prunus1350
kogecoo
asaking01
_h_h_d_y
oni_field
n_shuyo
mamoru ta2c
Kobayashi
notti世
山名将之
stopher226
khtommy
s_3156
tsejam5
e_kamizato
yupio
kingyokkun
moguonyanko
mkataigi1
kkira1020
nomino100
wamura80
akizawa
ichiban 2 nbuy
komiya_atsushi
disktnk
iwacha3
zaazato
toma3
ukutuku
YOUG shin.arias
tashirohiro4
big_2nd
micchi
miwachan
ヤマちゃん
じーにょ
はざさん
replo
quattro_4
otani_yuji
oyamaKei
yondobo
fujinuma
ujifuji007
ythedaytoday
tmiyaz
hidekey
22 24
keaton
sanoche
arate405
eiiches hotoku66
iforce777
25 showyou
G.O.R.N okjam
k-tamura
0.5
zanjibar
maririnnh
otsuki mkataigi
flyer
tiwanaga
mutual_coherence
u_daisuke
ytesaki
keizo
hoswitch
mrorii
shinobon
norio3bon
minamishinji
Akihiro atg Kasahara
ixixi
obnym ikuyamada
masafumi.sano
nokuno 4
nob.kino＝Nikoriks
Keiku
アドファイブ代表 tmzo
mattun_s15 doradora09 水田孝信
yanashi
Hiro_macchan
dubian100
nissie Nikoriks
tetsuroito
you1025
SakaueTatsuyabob3 hamadakoichi akiaki5516
wakuteka
takanobu_mizuta
taku.stdyi31
kiyo.sug
noon.lamp
augold79da
tommy
yuya_takeyama
zhiping
mkouhei
Mariko Matsuura
onicchi
ActiveIndex
wk77
fuji_fujimon yanaoki5
yokkuns oshiro40 a-koike
0.0
doryokujin
kenchan0130_aki
horihorio yishiihalamy
yuga keigo.ky
0
はちみつるんぴ
yurayuramen aad34210 usuihiro
beiyame
nonpachi
dichika2
s_tkns
PE_kww
wdkz
21taquito
modeelf
Naru777
arshavin0909
motokikk
hereticreader
H.OXNPA
Thoru hisawotakase
Kurachi
toshi.k
handyfox
hiratake55
itochu0523 karubi kohta
sakuraeee teramonagigentlementatu
謎のクマしゃん
t_iwakawa
wmurase フライヤ
y-shindoh
6
nativecowboy
download_takeshi
Ingham_county
bado
tomokazuhattanda
TCBkimukou_26 sugimoriakihiro
kos59125 dichikajmaeno 7
sas20yen()
gen_hsnmy sfchaosnagayoshi3 suzatsu
sstat3
kerakera
dimbula
じへい
sleepy_yoshi
marutom
matsue
idoth2o
sugi_0000
Quasi_quant2010
suginoko 20
takemikamijingbay
Shinya_131
unaotogepuro manozo sato_sato_sato
quarterkota itoyan dada
holidayworking zgw21cn
kazuki.yoshidacarrion-crow
sumipan_
hitoshi.o mangantempyしげっくす
sla sleipnir002 t-ohmae 8
19 coroMonta
kktokkふゆきteruu aikayatsuta
ishioka
10 9
y00suke
ytoyoda
sleipnir
you2000
aeonstorm
hirotaka26
y_yammt
uokada
tsubosaka
Ted__Henry
11
あぐす
Keiku322 pochi178 nojima
hatappo
-0.5
millionsmile Sakai cTnT
s-miura keima.yama
Yoshiaki actuaryjpkawam
hnisiji
langstat rti7743
higashun
lawmn AntiBayesian 12
miyatender
hemge
@syoh11
yst.oshrio
tatsushim
koyamak kimiyuki
18kamiyashumei
nobyt mshino55
mari89just_do_neet
otanet12315 eizo01
こげすけ
ほどほど人
tetsuyai
sumipan11 fuzzysphere
nyanchu
ingham_county48825
Yas_Ijaisalmer992
mathfulu rindai87
myopomme
atgmacontnd あんちべ
nagaet
jiro_1978
iwanaga
midsan
tkshakmt
tkshf
msei01
understeer
uorat
kenzrx Khan
Salamoreradio
-1
16maitrikaruna
takako87
masatoh
_kohta
山本たかし primnum
keny81 jalpiner
gsd
jinmensou
oshiro
naritakke
3bon
shirokuma 840kg
matsuou1
ayacova
tempy
mail2tac
kingqwert
tokk17
yuuukioii
14
tsutatsuta
-1.0
Hiromatsu
くんち
a_bicky
asozure
horiyasu
antiplastics
gerumanium3_2
ogawatetsuo14
Oezy
she_knows_a_key
yasutoshi
Kentz
tsukihissa
mathfur
Nekopuni
kano4
ksk326
Tminoda
tishi
akyao
__youki__
shun0102
riem
yteruta311
isseing333
suima8 13
ふゆきち
yuca.y
mokjpn
Koji Muta
picco
ksugi
thinkring
akinosugi
ysd
jora
eztoyoda
yokumura
moda
marikod
T.Arahori
ShimizuJirocho
iPad
-1 0 1 2 3
9
- 11. ATNDのapi Rubyのソース
# encoding: utf‐8
require 'atnd4r'
r = Hash.new{|h,k|h[k]=[]}
#Tokyo.Rのevent_id #1..#25
for n in [2746, 3054, 3454, 3930, 4468, 5441, 6439, 7280, 7804, 9177, 12062, 13335, 14967, 16080, 17410, 19192, 19835,
21050, 22138, 24629, 24811, 26386, 28416, 29541, 30646]
a = Atnd4r::get_user_list({:event_id => n})
for i in a.events
for j in i.users
r[i.title.to_s] << j.nickname
end
end
end
for i in r.keys
puts r[i].join(",")
end
11
