この記事はR Advent Calendar 2014の12月28日の配当記事(28日に申し込んだと思ったら27日で登録されているけど)
かつ
ごちうさ住民 Advent Calendar 2014の第28日目の記事です(勝手に継続しちゃう
です。
声優統計第五号は完売しました。
元ネタはこちらなのだが、コミケ前になってクラスタリングしてみたという記事が出てしまって完全に二番煎じ感が否めないが無視した。
対象が声優に限定してあること、Jensen–Shannon divergenceを使って投稿時間分布の類似度を計算し、Ward法を使ってクラスタリングしたこと、それなりに意味のありそうな集団に分けられたのでそれなりにインパクトがあるということにしよう。
声優のTwitterアカウントを集めて投稿時間分布の類似度を計算する。
今回は離散的な確率分布, に対して、
から、対称性を持って距離として扱えるように、との平均的な分布を用いて
で定義されるJensen–Shannon divergenceを使う。
24時間単位と1週間単位で投稿時間分布を計算し、クラスタリングした。
一日あたりの投稿回数はべき乗則、次回ツイートまでの待機時間は2.2分, 10.2時間を極大値とする二峰性(かそれ以上)の分布が得られた。ツイートの待機時間は待ち行列と同じで、前回ツイートが次回ツイートに影響しない(無記憶性)ならばポアソン過程、待機時間は指数関数になりそうだが、そうはなっていないのは声優が24時間周期および6〜8時間周期で生活するヒトであること、TwitterというSNSにより外部から刺激を受けるからだそうと思う。
24時間単位
午前中から分布が増加している朝から元気な声優()、夕方にかけて尻上がりにツイートが増え、深夜の増加が顕著な声優()、朝7〜9時にツイートが多いおはよう声優()に分類された。
1週間単位
週末にツイートが減る声優()と、反対に増える声優()に分類された。よく分からない声優()は放置した。
Replyしてくれそうな声優
声優がフォローしている(friends)ユーザー以外へどれくらいreplyしてくれるか計算した。RTの扱いは困った。
:@ tweetのうち,retweetを除いた割合。
:@ tweetからretweetを除いたうち,フォローしている(friends)ユーザーへのreplyの割合。
:すべてのtweetのうち,フォローしている(friends)ユーザーへではないユーザーへのreplyの割合。
上の, 集合も合わせて掲載する。
ごちうさ声優の佐藤聡美、徳井青空も含まれているのでごちうさ成分をなんとか保ったよ。
声優 ID F G friends n at RT at.RT reply reply.RT R1 R2 R3 逢川奈々 aikawanana 1 1 18034 3199 1912 3 1910 602 600 0.597 0.314 0.188 相沢舞 moririnmonson 2 1 5395 3317 2214 962 1255 388 271 0.378 0.216 0.082 相田さやか sayaka_aida 2 1 1925 3202 2052 221 1835 1151 1033 0.573 0.563 0.323 青山桐子 aoyaman105 1 1 2108 3378 2963 775 2194 786 584 0.649 0.266 0.173 青葉りんご aobaringo 3 1 2464 3437 1606 174 1457 1069 999 0.424 0.686 0.291 赤崎千夏 R172 2 2 1119 2817 1516 325 1196 724 687 0.425 0.574 0.244 秋野かほり akino_kaori 2 2 1870 3525 2465 252 2217 528 428 0.629 0.193 0.121 あきやまかおる hakokao 2 2 8461 3601 2070 405 1669 367 261 0.463 0.156 0.072 阿久津加菜 akusas 1 2 1494 3257 804 694 431 114 63 0.132 0.146 0.019 明坂聡美 AkesakaSatomi 1 2 2935 3178 1109 663 768 194 110 0.242 0.143 0.035 浅井清己 kiyoasa 1 1 799 2145 1071 6 1067 293 292 0.497 0.274 0.136 浅川悠 Julia320 2 1 1450 3347 1817 641 1189 654 214 0.355 0.18 0.064 浅倉杏美 asakura_azumi 1 2 0 3200 2067 1009 1062 0 0 0.332 0 0 浅野真澄 masumi_asano 1 2 2813 3347 1369 512 861 410 44 0.257 0.051 0.013 阿部玲子 reiko1009 1 1 2385 3482 1707 874 869 268 176 0.25 0.203 0.051 歩河みぃな ayumeena 1 2 4802 3295 1215 876 345 502 138 0.105 0.4 0.042 荒浪和沙 kazusa_aranami 1 1 2865 3359 2163 943 1237 894 707 0.368 0.572 0.21 有栖川みや美 arisugawamiyabi 2 2 2446 3267 1316 1202 118 93 11 0.036 0.093 0.003 五十嵐浩子 rasico 1 1 4451 3714 3146 931 2238 473 375 0.603 0.168 0.101 五十嵐裕美 HiRoMi_ig 1 2 5236 3579 2508 1048 1487 924 496 0.415 0.334 0.139 池澤春菜 haluna7 3 2 3673 3311 1703 483 1241 559 325 0.375 0.262 0.098 伊瀬茉莉也 Mariya_i NA NA NA NA NA NA NA NA NA NA NA NA 磯村知美 isocchi_la_al 2 1 3200 3535 2077 1331 830 404 57 0.235 0.069 0.016 一色ヒカル issiki_hikaru 2 1 0 3227 619 610 27 0 0 0.008 0 0 伊東久美子 kumi_ito 1 2 2050 3423 1813 418 1397 493 358 0.408 0.256 0.105 伊藤実華 M_ika3 3 1 1642 3227 1911 516 1396 352 184 0.433 0.132 0.057 稲村優奈 yuna_inamura 1 2 2305 3321 1225 296 931 641 554 0.28 0.595 0.167 井上直美 inouenaomi 1 2 2645 3232 2292 310 1994 1250 1194 0.617 0.599 0.369 井ノ上奈々 inouenana 1 1 6178 3645 1815 856 1008 340 240 0.277 0.238 0.066 井上麻里奈 Mari_navi 2 2 2114 3286 1883 375 1513 578 529 0.46 0.35 0.161 井上みゆ miyubomb 1 2 25942 3189 2917 396 2522 897 824 0.791 0.327 0.258 今井麻美 asamingosu 3 2 2384 3253 2011 426 1585 1218 1154 0.487 0.728 0.355 岩男潤子 iwaojunko 1 2 461390 3209 1865 1710 165 180 59 0.051 0.358 0.018 岩村琴美 chibi_koto 1 2 634 3361 1599 14 1586 1263 1260 0.472 0.794 0.375 上田朱音 akane_u 2 1 3552 3476 2971 789 2216 1666 1619 0.638 0.731 0.466 植田佳奈 uedakana 2 2 9384 3518 2106 685 1457 475 195 0.414 0.134 0.055 植原みゆき MyumyU_Uehara 1 1 2045 3406 1944 197 1757 390 325 0.516 0.185 0.095 内田彩 aya_uchida 1 2 1817 3433 1365 1262 174 241 29 0.051 0.167 0.008 内海慶子 utsumikeiko 1 2 1300 3232 1837 268 1590 1357 1254 0.492 0.789 0.388 宇和川恵美 uwaemi 1 2 1603 3526 2470 141 2335 1527 1497 0.662 0.641 0.425 雨蘭咲木子 uran_sakiko 1 2 7194 2950 1905 144 1764 186 177 0.598 0.1 0.06 榎津まお enokidu_mao 1 1 1441 3454 2577 38 2543 1538 1524 0.736 0.599 0.441 榎本温子 atsuko_bewe 2 2 4931 3940 2068 1003 1092 918 472 0.277 0.432 0.12 江里夏 erikafortuna 3 1 1803 121 80 0 80 24 24 0.661 0.3 0.198 及川ひとみ h_oikawa 1 2 1442 1156 722 34 688 255 242 0.595 0.352 0.209 近江知永 ohmi_003 1 2 2487 3294 1811 197 1646 699 674 0.5 0.409 0.205 大久保藍子 aiko_okb 2 2 3232 3286 2099 470 1652 532 414 0.503 0.251 0.126 大竹みゆ primlog 1 1 2020 3543 1445 596 854 727 541 0.241 0.633 0.153 大橋歩夕 ayuruohashi 1 2 2065 2955 1570 464 1119 447 249 0.379 0.223 0.084 大原桃子 MomoJule 3 1 1281 2070 644 140 511 123 79 0.247 0.155 0.038 大本眞基子 Makiko_Ohmoto 1 1 1335 3293 1606 469 1154 648 479 0.35 0.415 0.145 緒方恵美 Megumi_Ogata 1 2 2724 4193 2627 1525 1155 1020 253 0.275 0.219 0.06 奥川久美子 okuck 1 2 2254 3529 2421 1159 1279 772 465 0.362 0.364 0.132 沖佳苗 okikanae 3 1 697 1807 332 60 272 123 113 0.151 0.415 0.063 緒田マリ odamakkori 2 1 3787 3348 2755 1924 884 1109 343 0.264 0.388 0.102 小野涼子 ono_ryoko 2 1 2102 3268 2085 172 1927 934 870 0.59 0.451 0.266 甲斐田ゆき KAIDA_YUKI 2 1 2245 3231 2246 245 2031 285 222 0.629 0.109 0.069 貝原怜奈 kaiharareina 1 1 1785 3434 2265 632 1655 997 884 0.482 0.534 0.257 かかずゆみ yumi_kakazu 3 1 3169 3306 2027 675 1462 700 583 0.442 0.399 0.176 陰山真寿美 masumi_kage 1 1 2500 3575 2525 1099 1427 467 163 0.399 0.114 0.046 梶田夕貴 kazikazi1021 3 1 1492 3215 1369 355 1025 407 266 0.319 0.26 0.083 勝生真沙子 GAKOSAMADA 3 1 1241 3317 1788 110 1679 889 837 0.506 0.499 0.252 葛城七穂 nanahokatsuragi 1 2 2165 3127 1333 300 1039 1310 1024 0.332 0.986 0.327 加藤英美里 Emiryun 1 2 1874 3382 1249 620 634 265 50 0.187 0.079 0.015 加藤優子 katou_yu 1 1 3834 3431 2476 591 1887 716 605 0.55 0.321 0.176 門脇舞以 kadomaita 2 2 4456 3302 1922 826 1178 205 69 0.357 0.059 0.021 笠原あきら kasahara_akira 2 2 2547 3452 1707 1585 126 191 14 0.037 0.111 0.004 勝田詩織 shiori_k_0914 1 1 1689 3264 1800 308 1499 707 600 0.459 0.4 0.184 かないみか MIkAKANAI3018 3 1 5377 3606 2519 944 1576 401 255 0.437 0.162 0.071 鹿野優以 kanoyui 2 1 1948 3386 1654 189 1468 495 424 0.434 0.289 0.125 神村ひな hina_kami 1 2 1468 3191 2343 1692 665 1424 334 0.208 0.502 0.105 カンザキカナリ canarism 3 1 4302 3796 2144 415 1740 727 515 0.458 0.296 0.136 神田朱未 akemikanda 1 2 1595 2379 1087 220 868 224 196 0.365 0.226 0.082 菊地由美 Kikuchi__Yumi 1 1 1843 3322 1921 1166 764 626 382 0.23 0.5 0.115 喜多村英梨 KITAxERI 1 2 81 3255 1484 380 1117 1318 1029 0.343 0.921 0.316 橘田いずみ izugyoza 1 1 2098 3371 1430 1328 107 263 30 0.032 0.28 0.009 樹元オリエ oriepenguin 1 2 1019 3316 2191 747 1447 592 498 0.436 0.344 0.15 くじら kujityan 1 1 1842 1501 933 22 911 301 296 0.607 0.325 0.197 久保田恵 kubota_megumi 3 1 941 3416 2945 146 2811 2656 2596 0.823 0.924 0.76 倉田雅世 nejimakiya521 3 2 2416 3551 1913 1153 797 539 112 0.224 0.141 0.032 倉田まりや kurata_mariya 1 2 1211 2151 388 56 334 87 55 0.155 0.165 0.026 栗林みな実 minami_kuri 1 2 2003 3164 1942 699 1245 1092 866 0.393 0.696 0.274 桑門そら sorakuwakado 2 2 982 2080 734 302 433 316 261 0.208 0.603 0.125 國府田マリ子 nyarukomariko 1 2 8726 1445 244 321 2 242 2 0.001 1 0.001 倖月美和 happymoon_miwa 3 2 620 1028 484 304 180 132 59 0.175 0.328 0.057 五行なずな nazutan 2 3 28 19 1 1 0 0 0 0 NA 0 國立幸 kokuryuhapiness 1 1 1162 2187 1125 457 812 390 293 0.371 0.361 0.134 小暮英麻 koguema 2 1 851 3265 2116 619 1513 1254 926 0.463 0.612 0.284 小菅真美 KosugeMami 1 1 2519 3257 2648 122 2526 1902 1889 0.776 0.748 0.58 小島幸子 chiffons3 1 2 863 1388 245 62 184 120 90 0.133 0.489 0.065 児玉明日美 kodamaichigo 1 2 507 3178 629 118 512 128 63 0.161 0.123 0.02 後藤麻衣 gomatsubu 1 1 3245 3353 2189 562 1656 168 32 0.494 0.019 0.01 このえゆずこ konoyu 1 1 1821 3191 2287 286 2033 1464 1425 0.637 0.701 0.447 小林由美子 shubi0618 3 1 1616 3239 1744 21 1723 665 658 0.532 0.382 0.203 小松未可子 mikakokomatsu 2 2 2463 4012 1754 959 806 404 23 0.201 0.029 0.006 こやまきみこ koyamakimiko 1 2 676 1205 459 150 309 41 26 0.256 0.084 0.022 近藤佳奈子 kana0606 1 2 2452 3371 1195 415 821 305 259 0.244 0.315 0.077 斎藤綾 ayatangogo 1 2 2160 3286 1410 439 1036 434 406 0.315 0.392 0.124 斉藤貴美子 kimikokimi 2 2 6785 4107 3658 109 3549 1459 1451 0.864 0.409 0.353 酒井香奈子 SAKAI_KANAKO 2 2 4840 3555 1650 690 974 750 452 0.274 0.464 0.127 坂本美里 sakamisato 2 2 4136 3363 2415 1089 1363 454 375 0.405 0.275 0.112 咲乃藍里 Grace_Airi 1 2 885 3253 1239 269 990 543 431 0.304 0.435 0.132 櫻井ありす alice_sakurai 1 2 3173 4347 2562 1149 1588 941 598 0.365 0.377 0.138 桜井ういよ uiyo_cherry 2 1 4690 3550 2693 248 2446 1611 1524 0.689 0.623 0.429 櫻井智 tomo_channel910 1 3 NA NA NA NA NA NA NA NA NA NA 笹川亜矢奈 sasagawaayana 2 1 2045 1015 681 80 601 289 269 0.592 0.448 0.265 ささきのぞみ nozooooo 1 2 2544 3180 1804 411 1514 503 429 0.476 0.283 0.135 佐々木未来 mikoiwate_351 1 2 4050 3265 1354 499 881 40 26 0.27 0.03 0.008 笹島かほる sasa_kaorun 1 2 1226 3335 2778 91 2687 1471 1459 0.806 0.543 0.437 笹本優子 sasayou 1 1 10484 3676 2380 676 1749 540 337 0.476 0.193 0.092 佐藤朱 info_akechi 1 2 2464 3354 2083 837 1251 907 543 0.373 0.434 0.162 佐藤聡美 satosatomi58 1 1 945 2449 1398 1096 335 339 8 0.137 0.024 0.003 さとう実琴 mikosato 1 1 938 3188 1767 92 1676 1053 1021 0.526 0.609 0.32 サトウユキ yukimurasato 1 1 NA NA NA NA NA NA NA NA NA NA 佐藤利奈 rinasatoh 2 2 3495 3255 2198 895 1347 342 192 0.414 0.143 0.059 真田アサミ AsamiSanada 1 1 2292 3369 2094 1451 681 598 51 0.202 0.075 0.015 沢口千恵 sawaguchi_chie 1 1 2259 3222 1535 340 1207 702 605 0.375 0.501 0.188 Jenya jenya_jp 2 2 213462 3750 1855 460 1412 386 256 0.377 0.181 0.068 紫苑みやび shionmiyabi 2 1 10700 3654 1339 80 1274 912 885 0.349 0.695 0.242 宍戸留美 RumiShishido 1 1 630547 3474 2650 2320 351 101 26 0.101 0.074 0.007 島形麻衣奈 mainashimagata 1 2 NA NA NA NA NA NA NA NA NA NA 島涼香 RYOKAchin 1 1 978 3334 2108 406 1702 627 524 0.51 0.308 0.157 清水愛 aitter_smz 2 2 12794 3426 2441 485 2062 463 376 0.602 0.182 0.11 清水香里 ShimizuKaori 1 1 3551 3285 2000 474 1529 222 101 0.465 0.066 0.031 下田麻美 shimoda_asami 1 2 3799 3212 1962 249 1727 134 83 0.538 0.048 0.026 霜月優 shimotsukiyuu 3 1 10600 4099 2947 1165 1790 988 360 0.437 0.201 0.088 真堂圭 shindokei 2 1 366 841 514 22 492 189 186 0.585 0.378 0.221 新堂真弓 410www 1 1 88443 3723 3204 641 2578 304 136 0.692 0.053 0.037 鈴木麗子 uryan 1 1 9446 3202 1094 21 1090 153 153 0.34 0.14 0.048 須藤祐実 yumi8823 2 2 866 3239 2008 450 1598 316 239 0.493 0.15 0.074 関山美沙紀 Sekiyama_Misaki 1 2 2424 3286 1479 543 946 491 332 0.288 0.351 0.101 世戸さおり saoriseto 1 1 1114 1929 1237 79 1184 596 577 0.614 0.487 0.299 仙台エリ e_ringo 1 1 2769 3313 2388 510 1884 829 733 0.569 0.389 0.221 園崎未恵 Sonozaki_mie 2 2 17480 4270 2725 596 2162 785 525 0.506 0.243 0.123 高井戸雫 takaidoshizuku 1 3 NA NA NA NA NA NA NA NA NA NA 高岡香 takaoka_kaori 2 1 1775 3233 2536 200 2345 1525 1465 0.725 0.625 0.453 高城みつ bonyarimie 1 2 2108 3745 2347 942 1436 869 650 0.383 0.453 0.174 高梁碧 peki0808 1 2 2472 3367 2280 729 1573 703 488 0.467 0.31 0.145 たかはし智秋 chiaking58 2 2 1058 3265 1300 408 899 724 512 0.275 0.57 0.157 高橋美佳子 takahashimikako 2 2 0 1954 343 38 307 0 0 0.157 0 0 瀧本富士子 inkarose77 2 2 2995 4113 3096 293 2808 1914 1855 0.683 0.661 0.451 田口宏子 _HIROKOCCUS_ 3 1 960 3284 1705 1196 510 1255 190 0.155 0.373 0.058 竹田えり Eri_Takeda 3 2 27066 3171 2321 1126 1195 1027 537 0.377 0.449 0.169 竹達彩奈 Ayana_take 1 1 2082 3292 1332 469 863 93 50 0.262 0.058 0.015 竹内順子 junkotakeuchi45 1 1 845 1937 770 77 696 79 66 0.359 0.095 0.034 田所ちさ chidokoro 3 2 4495 3354 2096 667 1436 152 49 0.428 0.034 0.015 田中敦子 atuwosyousa 3 2 2315 3802 2079 1431 658 527 144 0.173 0.219 0.038 田中まりか marika_tanaka 2 1 1652 3311 2062 313 1751 543 479 0.529 0.274 0.145 田中理恵 tanakarie 3 1 2433 3183 1987 1187 801 1456 532 0.252 0.664 0.167 田中涼子 ryoko_tanaka 1 3 NA NA NA NA NA NA NA NA NA NA 民安ともえ tammy_now 1 2 0 3788 2622 448 2198 0 0 0.58 0 0 田村ゆかり yukari_tamura 1 1 1080 3184 1728 1513 219 1154 30 0.069 0.137 0.009 知桐京子 _chiki_ 1 1 2584 3250 1507 265 1279 186 149 0.394 0.116 0.046 千葉千恵巳 ChiemiChiba 1 1 1058 3232 1424 543 882 706 431 0.273 0.489 0.133 チャン・リーメイ matochiang 3 2 2372 2914 1235 639 596 630 265 0.205 0.445 0.091 津川祝子 shuku1017 2 2 4715 2976 1186 790 398 377 88 0.134 0.221 0.03 辻あゆみ tsuji_ayumi 2 1 1654 3201 1963 1115 889 645 384 0.278 0.432 0.12 土谷麻貴 tsuchiyamaki 1 1 1903 3627 2791 1266 1591 1249 471 0.439 0.296 0.13 土屋実紀 miki_tsuchiya 1 1 2133 3469 2264 229 2037 323 300 0.587 0.147 0.086 恒松あゆみ amyonn 1 2 6457 3387 1866 287 1580 840 729 0.466 0.461 0.215 寺崎裕香 terachan0804 1 1 4010 3536 2343 979 1402 169 41 0.396 0.029 0.012 天神林ともみ tenko_momi 2 1 NA NA NA NA NA NA NA NA NA NA 富樫美鈴 suzu_honey 1 2 2837 3129 1557 818 758 229 78 0.242 0.103 0.025 時田光 h_tokita 3 2 831 1435 488 138 350 146 98 0.244 0.28 0.068 徳井青空 tokui_sorangley 1 2 4632 3262 2597 2455 146 334 8 0.045 0.055 0.002 徳留しづか shizuka_t 1 1 1735 3164 1665 271 1399 900 833 0.442 0.595 0.263 永井真衣 nagaimai 2 2 2514 3409 2797 552 2253 1140 948 0.661 0.421 0.278 中川亜紀子 akiko12nakagawa 1 2 1334 1569 926 496 432 309 90 0.275 0.208 0.057 中島沙樹 sakicchons 1 1 2318 3274 1848 411 1486 658 514 0.454 0.346 0.157 長嶋はるか naruhodo_haruka 1 1 2550 3333 456 286 263 134 132 0.079 0.502 0.04 中嶋ヒロ hiro_2929 1 2 2382 3222 1947 210 1747 465 412 0.542 0.236 0.128 長瀬ゆずは yuzuha88 2 2 12242 4206 3111 256 2874 906 879 0.683 0.306 0.209 永田佳代 kayochi_now 3 1 2504 3207 2208 631 1577 393 152 0.492 0.096 0.047 中西悠 nakanishiharuka 1 1 3093 3372 2373 605 1782 230 186 0.528 0.104 0.055 名塚佳織 nazukakaori 1 1 382 220 29 5 24 8 6 0.109 0.25 0.027 並木のり子 nontan0619 3 1 4320 3229 1188 423 766 405 355 0.237 0.463 0.11 南條愛乃 nanjolno 2 1 4038 3254 1649 1059 818 173 40 0.251 0.049 0.012 ニーコ NEEKO21 1 2 4384 3276 2028 1117 955 1634 855 0.292 0.895 0.261 西川宏美 hiromi55nishi 3 1 1183 3233 1837 165 1673 139 132 0.517 0.079 0.041 西口杏里沙 ars03 1 1 2526 3364 1375 1161 292 426 28 0.087 0.096 0.008 西原さおり saolio 3 1 3249 3317 1597 491 1108 1357 931 0.334 0.84 0.281 西村愛菜 Aina_nishimura 3 2 9 92 92 92 0 12 0 0 NA 0 根本圭子 nemory1210 1 1 1959 3310 2057 218 1864 386 323 0.563 0.173 0.098 野川さくら sakura_nogawa 1 2 687 3134 2230 1141 1096 1894 943 0.35 0.86 0.301 野田順子 NODA_JUN 1 2 2233 3279 1548 187 1364 113 82 0.416 0.06 0.025 野田麻未 mame1001mame 1 2 1265 3184 2048 1424 720 2032 720 0.226 1 0.226 野引香里 nobinobiki 2 1 993 3271 1744 170 1586 485 414 0.485 0.261 0.127 野水伊織 nomizuiori 1 2 2733 3405 1440 1174 521 43 10 0.153 0.019 0.003 朴璐美 romiansaran 2 2 1386 3386 2297 1745 564 1155 381 0.167 0.676 0.113 花村怜美 satomi_hanamura 2 1 2152 3203 1025 333 705 127 84 0.22 0.119 0.026 葉山いくみ hayamaikumi 2 2 1850 3507 1494 862 641 123 115 0.183 0.179 0.033 早水リサ risa02h 2 2 0 202 5 1 4 0 0 0.02 0 0 原田ひとみ vhitomin 2 2 0 4229 1858 1857 4 0 0 0.001 0 0 春井柚佳 haruiyuka 1 2 24 3177 2611 339 2273 2239 1901 0.715 0.836 0.598 春河あかり akari_tter 1 1 708 3667 2701 350 2364 2162 2060 0.645 0.871 0.562 氷上恭子 chiffons3 1 2 NA NA NA NA NA NA NA NA NA NA 樋口あかり AkariHiguchi 1 1 2189 3475 1739 439 1364 368 295 0.393 0.216 0.085 日高里菜 rina_hidaka 2 2 79 3192 693 67 636 470 414 0.199 0.651 0.13 ひと美 hitomityan 1 2 1509 3220 2117 343 1784 1429 1371 0.554 0.768 0.426 日比野朱里 akarinn 3 2 1117 971 114 14 100 23 19 0.103 0.19 0.02 平田由季 yukichorinko 2 1 3792 3418 2135 282 1861 644 611 0.544 0.328 0.179 平野綾 Hysteric_Barbie 1 1 1559 3165 1280 807 477 513 295 0.151 0.618 0.093 平野文 hiranofumi 2 2 2489 3288 2173 1425 750 1005 377 0.228 0.503 0.115 平野妹 hiranomai 1 1 2143 3429 2178 466 1724 297 167 0.503 0.097 0.049 広江美奈 hiroemina 1 2 2885 3147 2280 380 1907 303 174 0.606 0.091 0.055 廣田詩夢 shionnu 2 1 1129 3184 2008 317 1692 705 670 0.531 0.396 0.21 深見梨加 ricafukami88 1 2 2105 3421 3019 345 2675 1997 1836 0.782 0.686 0.537 福圓美里 misa0110 1 2 3097 3285 1513 488 1039 216 93 0.316 0.09 0.028 藤田昌代 fujitama11 1 1 3723 3484 2730 716 2028 616 578 0.582 0.285 0.166 藤田由美子 ojojo1107honeey 1 1 2026 3393 1350 416 940 558 485 0.277 0.516 0.143 古川小百合 furukawasayuri 2 1 1490 3470 2403 192 2214 1615 1522 0.638 0.687 0.439 古原奈々 furunana 1 2 2992 3180 2064 182 1883 500 490 0.592 0.26 0.154 細野雅世 hsnmsy 1 1 1552 3197 1746 203 1565 408 340 0.49 0.217 0.106 堀江由衣 kuronekounion 1 1 41 3336 2182 2168 52 980 6 0.016 0.115 0.002 堀川千華 horikawachika 1 1 1028 3357 1576 337 1254 432 340 0.374 0.271 0.101 堀口あすか asukah0321 1 2 2695 3372 2015 301 1761 870 734 0.522 0.417 0.218 本名陽子 honnayoko 1 2 14447 3203 1807 428 1380 1052 851 0.431 0.617 0.266 前田愛 ai_max 2 2 2556 3180 2636 927 1715 741 626 0.539 0.365 0.197 前田綾乃 AYANO_MAEDA 2 2 867 3219 2255 129 2137 1641 1620 0.664 0.758 0.503 前田沙耶香 sayaka_san 1 2 1247 3201 1963 77 1886 1345 1317 0.589 0.698 0.411 まきいづみ maki_idumi 2 1 236883 3238 2507 512 1995 309 221 0.616 0.111 0.068 牧野由依 yuiyui_makino 2 2 2201 3231 1134 317 826 488 387 0.256 0.469 0.12 MAKO manya02 2 2 2117 3178 1282 314 969 104 70 0.305 0.072 0.022 増田ゆき chiffons3 1 2 NA NA NA NA NA NA NA NA NA NA 又吉愛 ai_love_voice 2 1 988 3206 1675 141 1539 724 647 0.48 0.42 0.202 松井菜桜子 42kg 1 1 6856 3222 2476 996 1501 559 276 0.466 0.184 0.086 松岡由貴 seika_oda 2 1 1586 3199 1885 1833 53 1046 18 0.017 0.34 0.006 松谷彼哉 kaya_matsutani 2 2 2320 3457 1659 380 1280 403 269 0.37 0.21 0.078 松本さち sachiouji 1 2 2775 3841 3057 420 2662 1783 1749 0.693 0.657 0.455 松元恵 matsugen 1 1 2733 3293 2189 1367 859 551 242 0.261 0.282 0.073 松本梨香 rica_matsumoto3 1 2 5399 3493 2516 908 1612 908 556 0.461 0.345 0.159 み〜こ miko2 1 2 32821 3739 2905 296 2622 655 611 0.701 0.233 0.163 三上枝織 mikami_shiori 1 2 2563 3577 1946 830 1172 494 234 0.328 0.2 0.065 味里 MisatoGrace 2 2 3660 3211 2130 1169 978 577 395 0.305 0.404 0.123 水落幸子 yukimiz 3 2 11699 4337 3605 785 2844 928 851 0.656 0.299 0.196 水野愛日 mizunomanabi 3 1 2218 3265 1215 207 1011 609 556 0.31 0.55 0.17 水野理紗 risamizuno 2 2 630 3586 1832 326 1514 955 800 0.422 0.528 0.223 水原薫 MizuharaKaoru NA NA NA NA NA NA NA NA NA NA NA NA 三森すずこ mimori_suzuko 1 2 2304 3274 1318 920 410 128 42 0.125 0.102 0.013 宮川美保 salondemiho 1 2 1652 2137 1306 103 1203 372 366 0.563 0.304 0.171 宮沢ゆあな yuana0319 2 1 47551 3149 2494 1070 1455 288 151 0.462 0.104 0.048 ミルノ純 mirumiruno 1 1 4513 3305 1732 674 1148 226 109 0.347 0.095 0.033 村田知沙 tomtomtomosa 1 2 1704 3402 2758 316 2443 1592 1533 0.718 0.628 0.451 目黒未奈 miinamiinamiina 1 2 1031 1850 646 289 358 226 127 0.194 0.355 0.069 桃井はるこ momoiktkr 2 2 8427 3164 1549 1371 184 596 77 0.058 0.418 0.024 森谷里美 Moriya_3103 1 1 2875 3382 2424 1097 1357 1069 882 0.401 0.65 0.261 矢澤りえか YAZAWA_RIEKA 2 1 NA NA NA NA NA NA NA NA NA NA やなせなつみ yanase_natsumi 2 2 164925 3632 2770 303 2471 226 166 0.68 0.067 0.046 やぶさきえみ yabusaki_emi 3 2 2969 3284 2065 1024 1053 493 164 0.321 0.156 0.05 山像かおり KaoriOkaki 1 2 5748 3317 1714 839 877 419 134 0.264 0.153 0.04 山川琴美 dekakoto 1 2 1897 3244 1952 169 1788 553 530 0.551 0.296 0.163 山崎バニラ YamazakiVanilla 1 2 2664 3244 2059 1595 500 1073 232 0.154 0.464 0.072 山下亜矢香 AYAKA_YAMASHITA 2 2 4384 3415 2518 296 2224 624 507 0.651 0.228 0.148 山田茉莉 yamadamari 1 1 899 3179 2132 204 1933 779 713 0.608 0.369 0.224 山本綾 macrop1720 1 1 1531 3253 2012 922 1152 305 257 0.354 0.223 0.079 山本彩乃 ayanon_y 2 1 4512 3396 2666 152 2514 1237 1199 0.74 0.477 0.353 山本麻里安 honeymilklatte 3 3 52 208 169 13 156 0 0 0.75 0 0 雪野五月 2011yukino 1 2 781 1583 475 278 197 92 31 0.124 0.157 0.02 柚木涼香 yuzuruu 2 2 4838 3285 1908 1247 671 284 49 0.204 0.073 0.015 ゆん bokeyun 1 1 1806 3215 1733 29 1705 645 643 0.53 0.377 0.2 吉川華生 kana_yoshikawa 2 2 336 3426 1600 724 891 929 723 0.26 0.811 0.211 吉田真弓 dama__ 2 2 1102 3455 1976 198 1787 261 208 0.517 0.116 0.06 吉成由貴 yuki_yoshinari 1 1 13074 3555 2480 826 1680 640 548 0.473 0.326 0.154 米澤円 yone_mado 1 2 2560 3330 1798 665 1136 517 259 0.341 0.228 0.078 理多 Ritaco25 1 1 64312 3164 1918 996 1029 257 71 0.325 0.069 0.022 渡部優衣 yuichupunch 1 1 1728 3476 1216 1062 220 279 52 0.063 0.236 0.015 浅沼晋太郎 sogorukyo 2 2 9200 3698 3023 401 2644 2264 2214 0.715 0.837 0.599 井口祐一 yuccho222 1 1 1554 2096 1103 703 416 298 88 0.198 0.212 0.042 石野竜三 Ryuzou_Ishino 3 2 7653 3630 1523 751 774 526 223 0.213 0.288 0.061 市来光弘 mitsuhiroichiki 1 2 5616 3374 2312 415 1911 119 62 0.566 0.032 0.018 一条和矢 ichijo0411 1 1 2510 3267 976 408 572 225 102 0.175 0.178 0.031 伊藤健太郎 itoken_k_show 1 1 2242 3238 1491 332 1159 617 525 0.358 0.453 0.162 稲田徹 trombe_boss 2 2 4192 3281 1576 509 1067 105 47 0.325 0.044 0.014 井上和彦 inouekazuhiko 3 2 1415 3217 906 319 587 289 211 0.182 0.359 0.066 井上剛 _Gou_ 1 1 360 3354 605 63 545 43 29 0.162 0.053 0.009 岩永哲哉 iwanagatetsuya 3 1 1614 3266 747 477 271 113 32 0.083 0.118 0.01 江口拓也 egutakuya 1 1 4944 3336 2436 1195 1291 322 78 0.387 0.06 0.023 大須賀純 oosuka_jun 1 2 4320 3685 2600 709 1960 179 27 0.532 0.014 0.007 太田哲治 otomeyakko 1 1 1695 3377 1727 260 1510 540 507 0.447 0.336 0.15 大塚明夫 AkioOtsuka 1 2 2096 3359 1786 434 1353 353 212 0.403 0.157 0.063 大橋隆昌 takamasaohashi NA NA NA NA NA NA NA NA NA NA NA NA 岡野浩介 okanokousuke 1 2 2622 4305 3223 691 2607 131 64 0.606 0.025 0.015 置鮎龍太郎 chikichikiko 1 2 8346 3979 2598 1571 1190 559 185 0.299 0.155 0.046 荻原秀樹 ogiharahideki 1 1 5922 3618 2628 1685 948 718 49 0.262 0.052 0.014 小田久史 hisafumi_0302 1 2 2011 3180 1204 290 915 318 272 0.288 0.297 0.086 落合弘治 ochiai1966 1 1 4193 3222 2565 657 1911 501 366 0.593 0.192 0.114 小野坂昌也 masayangest 2 2 386 3373 1173 650 524 287 74 0.155 0.141 0.022 小野友樹 onoyuki19840622 2 2 1425 3380 1619 966 658 716 380 0.195 0.578 0.112 加藤賢崇 kenso1978 3 2 9839 3588 2398 903 1501 774 292 0.418 0.195 0.081 梶裕貴 YUKI_KAJI 1 2 1315 2029 885 297 591 147 53 0.291 0.09 0.026 粕谷雄太 kasuyannko 2 1 4968 4015 2344 375 2006 306 225 0.5 0.112 0.056 加瀬康之 YASU_BASSO 1 1 989 2356 1053 49 1006 379 343 0.427 0.341 0.146 勝杏里 bigfatduck4 1 1 3397 3213 1815 457 1359 348 274 0.423 0.202 0.085 神谷明 kamiyaakira29 2 1 707 3185 1705 1354 356 559 133 0.112 0.374 0.042 川田紳司 kwkylegtxy 2 2 NA NA NA NA NA NA NA NA NA NA 川原慶久 Canopus_072 1 2 9126 1385 223 321 3 220 3 0.002 1 0.002 川本成 Runarurunaru 2 2 4114 3335 2133 977 1159 774 371 0.348 0.32 0.111 岸尾だいすけ daisacusacu 1 2 1862 2686 860 294 600 194 110 0.223 0.183 0.041 木部祥太 shotakibe 1 2 1382 3156 1725 408 1320 713 589 0.418 0.446 0.187 木村良平 Ryouhey_Drunk 1 2 1177 3244 1684 899 1007 329 183 0.31 0.182 0.056 肝付兼太 tonoma_zura_ 3 1 106 131 37 1 36 32 32 0.275 0.889 0.244 楠田敏之 KUSUDAman 1 2 2451 3259 1420 752 741 289 117 0.227 0.158 0.036 楠大典 TaitemKusunoki 2 2 3965 3225 1510 528 986 240 148 0.306 0.15 0.046 黒田崇矢 takayakuroda 1 1 1430 1099 187 31 160 59 57 0.146 0.356 0.052 小泉豊 imuziokyutaka 1 2 1469 3412 2171 580 1652 530 392 0.484 0.237 0.115 郷田ほづみ HOZMIX 1 1 1878 3266 820 630 192 417 124 0.059 0.646 0.038 小西克幸 KCONIQ 1 1 3640 3300 1941 1002 939 82 22 0.285 0.023 0.007 小山剛志 _higetter_ 2 2 4468 3300 1910 526 1389 316 104 0.421 0.075 0.032 笹田貴之 sasadatakayuki 3 2 3023 3285 1913 136 1785 226 214 0.543 0.12 0.065 佐藤拓也 5tAkUyA5 1 2 2107 3404 1492 808 738 229 34 0.217 0.046 0.01 佐藤雄大 yudai1023 1 2 264 273 79 3 76 46 45 0.278 0.592 0.165 四反田マイケル mike_truecolors 1 2 55112 3382 1262 334 931 307 266 0.275 0.286 0.079 島崎信長 nobunaga_s 2 2 3749 3390 2633 1019 1633 251 193 0.482 0.118 0.057 志村貴博 simusimu2 1 2 763 1671 835 157 683 218 193 0.409 0.283 0.115 下妻由幸 shimo_shimo 3 2 16729 4047 3151 967 2202 291 164 0.544 0.074 0.041 下山吉光 y_shimoyama 1 1 3734 3359 2151 1607 552 595 109 0.164 0.197 0.032 下和田ヒロキ hikagakurecords 3 2 2424 3243 1478 586 920 470 324 0.284 0.352 0.1 白石稔 minorunba69 3 2 9560 3563 2365 908 1460 768 505 0.41 0.346 0.142 杉田智和 sugitaLOV 2 2 2245 3416 2204 915 1290 449 213 0.378 0.165 0.062 鈴木智晴 suzukichan79 1 1 2970 3709 2039 973 1133 163 94 0.305 0.083 0.025 鈴木裕斗 yuto_suzuki 3 2 56119 3318 1249 427 827 101 69 0.249 0.083 0.021 須田勝也 s_katsuya 1 2 1088 3376 1795 315 1484 167 128 0.44 0.086 0.038 須藤翔 denkisho1107 3 1 11327 3215 1161 66 1095 308 276 0.341 0.252 0.086 諏訪部順一 MY_MURMUR 1 2 0 3459 26 3 26 0 0 0.008 0 0 関智一 seki0908 1 2 7602 3257 2560 640 1921 1557 1397 0.59 0.727 0.429 瀬水暁 AKERU_love 1 2 1438 1936 330 62 270 104 81 0.139 0.3 0.042 大河望 taiga_nozomu 1 1 960 3291 1385 1180 211 657 65 0.064 0.308 0.02 泰勇気 KuvoreGordon 1 2 4628 3814 2270 410 1862 627 577 0.488 0.31 0.151 高木俊 shunly317 2 2 3350 3373 1091 96 996 169 162 0.295 0.163 0.048 高塚正也 ameno_murakumo 1 1 795 3300 1941 509 1460 503 421 0.442 0.288 0.128 高橋圭一 vocalkei 2 2 2680 3583 2291 605 1703 424 331 0.475 0.194 0.092 高橋研二 george0116 2 1 6753 3755 2912 732 2214 76 2 0.59 0.001 0.001 武虎 taketora0131 1 2 3968 3992 2961 1118 1844 599 357 0.462 0.194 0.089 谷山紀章 kishownstarmaps 2 1 617 3194 1367 1328 47 1195 18 0.015 0.383 0.006 千葉繁 1kamisama1 1 1 3895 3442 2306 263 2043 1251 1182 0.594 0.579 0.343 千葉優輝 Yuki_Chiba_ 2 1 2155 3304 1004 235 772 164 55 0.234 0.071 0.017 茶風林 chafurin 1 2 696 1554 772 16 756 623 611 0.486 0.808 0.393 津久井教生 koubouya 1 2 3972 3516 1594 248 1347 351 302 0.383 0.224 0.086 津田健次郎 tsuda_ken 1 1 4686 3320 1979 1873 119 143 6 0.036 0.05 0.002 寺島拓篤 tackman1st NA NA NA NA NA NA NA NA NA NA NA NA てらそままさき terasomasaki 3 1 11 3316 14 3 12 13 11 0.004 0.917 0.003 寺本勲 teramotoisao 2 1 11210 3276 1696 526 1171 151 55 0.357 0.047 0.017 徳本恭敏 tokuchan777 3 1 4590 3435 2408 114 2295 127 117 0.668 0.051 0.034 鳥海勝美 toriumikatsumi 3 3 415 6 0 0 0 0 0 0 NA 0 中國卓郎 TaQ_Rou 1 2 2382 3323 1614 97 1521 621 610 0.458 0.401 0.184 中澤まさとも masatomo_ 1 2 4444 3530 1710 1241 622 214 23 0.176 0.037 0.007 中田譲治 joujinakata123 1 2 2166 4021 3258 1615 1668 1626 1014 0.415 0.608 0.252 中村俊洋 toshi7_7 1 2 3271 3305 1473 121 1356 125 101 0.41 0.074 0.031 中村悠一 nakamuraFF11 1 1 1967 3214 1646 242 1406 124 65 0.437 0.046 0.02 浪川大輔 namidai0402 1 1 2787 2140 724 262 462 107 53 0.216 0.115 0.025 奈良徹 NaraToru 1 1 2141 3444 2675 656 2030 609 575 0.589 0.283 0.167 根本幸多 cota_nemoto 2 2 2464 3351 1830 271 1568 282 194 0.468 0.124 0.058 野島健児 nojimakenji 1 2 4727 3258 1471 566 907 281 213 0.278 0.235 0.065 野島裕史 nojimahirofumi 1 1 2045 3193 2256 31 2228 397 386 0.698 0.173 0.121 乃村健次 nomukendono 1 1 2857 1661 1274 338 938 441 414 0.565 0.441 0.249 長谷川俊介 haseshun 1 1 1160 3050 1735 169 1568 221 186 0.514 0.119 0.061 波多野和俊 mikenekox 2 2 31 242 37 0 37 0 0 0.153 0 0 馬場圭介 ba2ksk 2 1 697 1555 1022 56 966 138 128 0.621 0.133 0.082 はらさわ晃綺 hanasama1204 1 1 1879 3328 1842 781 1262 338 172 0.379 0.136 0.052 藤本たかひろ TCSJ_TAKAHIRO 2 3 NA NA NA NA NA NA NA NA NA NA 布施雅英 soupnorm 1 1 1076 3224 2217 622 1612 265 111 0.5 0.069 0.034 古川登志夫 TOSHIO_FURUKAWA 1 2 3558 2089 1575 210 1365 344 286 0.653 0.21 0.137 星野貴紀 Shockhearts777 1 1 4792 3505 2482 1234 1281 676 261 0.365 0.204 0.074 堀井茶渡 chado_horii 2 1 3020 3771 1648 715 967 87 18 0.256 0.019 0.005 堀川りょう ryohorikawa 1 1 447 257 50 35 17 13 4 0.066 0.235 0.016 前田賢一朗 Ken16M 1 1 7401 3484 772 240 536 137 54 0.154 0.101 0.015 前田剛 maetake_ 1 2 3266 3220 1348 595 758 387 181 0.235 0.239 0.056 間島淳司 maji_opai 2 2 1160 3336 1814 87 1732 118 88 0.519 0.051 0.026 増川洋一 youithi 1 1 530 2538 274 42 232 45 42 0.091 0.181 0.017 増谷康紀 y_masutani 2 1 624 1274 510 44 467 272 270 0.367 0.578 0.212 増田裕生 masunmasun 2 2 1552 2968 1183 347 837 107 55 0.282 0.066 0.019 松風雅也 matsukazest 3 3 485 3300 2967 394 2573 2602 2461 0.78 0.956 0.746 松田健一郎 mochimochinomen 1 1 4557 2267 1091 29 1063 236 235 0.469 0.221 0.104 松野太紀 taikey1016 1 1 451 559 236 171 65 93 46 0.116 0.708 0.082 三浦祥朗 pihyoo3 1 2 1713 3316 525 49 476 20 15 0.144 0.032 0.005 宮健一 38doragan 1 2 6029 3701 1292 152 1142 198 169 0.309 0.148 0.046 宮下栄治 EIJI926 2 2 70616 3374 1838 687 1152 112 28 0.341 0.024 0.008 本橋尚土 mths7a0t0 2 3 NA NA NA NA NA NA NA NA NA NA 森久保祥太郎 MorikuBorn 1 1 3155 3337 1569 720 852 610 471 0.255 0.553 0.141 森田成一 edokko_dey 1 2 3057 3278 952 148 811 199 175 0.247 0.216 0.053 森訓久 morinandes 2 1 2539 3162 2363 380 1985 505 395 0.628 0.199 0.125 安元洋貴 __yasumoto__ 1 2 4742 3403 2266 752 1564 149 51 0.46 0.033 0.015 山口清裕 kiyohiro2011 3 2 NA NA NA NA NA NA NA NA NA NA 山田真一 yamada23 3 1 1194 3510 1998 1012 987 507 139 0.281 0.141 0.04 山寺宏一 yamachanoha 1 2 0 259 3 0 3 0 0 0.012 0 0 山口勝平 ENma_Dororon 3 2 4210 4144 2120 706 1461 1290 1116 0.353 0.764 0.269 山本和臣 kazutomi_tweet 2 2 3153 3447 1309 733 828 36 18 0.24 0.022 0.005 代永翼 numanumakapa 1 2 1875 2567 1151 518 634 110 43 0.247 0.068 0.017
# 投稿時間への変換 tweet_dist <- vector("list", nrow(cv)) names(tweet_dist) <- cv$V2 mat <- diag(NA, nrow(cv)) rownames(mat) <- colnames(mat) <- cv$V2 # 投稿日 twoneday <- vector("list", nrow(cv)) for(i in seq(nrow(cv))){ idx <- which(dat$V1 == as.character(cv$V1[i])) if(length(idx) > 0){ h <- table(mapply(function(x) format(x, "%Y%b%d"), z[idx])) twoneday[[i]] <- h } } w <- table(unlist(twoneday)) par(mfrow=c(1, 2), mar=c(4.5, 4.5, 2, 2), cex.lab=1.6, cex.axis=1.15) plot(as.integer(names(w)), as.integer(w), log="xy", pch=16, yaxt="n", xlab="一日の tweet 数", ylab="日数") for(i in 0:4){ axis(2, at=10^i, labels=substitute(10^x, list(x=i)), las=1)} text(10^par()$usr[1], 10^par()$usr[4], LETTERS[1], xpd=TRUE, cex=2.5, adj=c(3, 0)) #plot(log(as.integer(names(w)), 10), log(as.integer(w), 10)) # 次回までのツイート時間 hdiff <- vector("list", nrow(cv)) for(i in seq(nrow(cv))){ idx <- which(dat$V1 == as.character(cv$V1[i])) if(length(idx) > 0){ h <- mapply(function(x, y) difftime(z[[x]], z[[y]], units="hours"), head(idx, -1), tail(idx, -1)) hdiff[[i]] <- h } } hd <- sort(unlist(hdiff)) hd <- hd[hd > 0] plot(hd, type="l", log="y") tat <- c(1/3600, 1/60, 20/60, 1, 3, 8, 24, 24*3) tlab <- c("1秒", "1分", "20分", "1時間", "3時間", "8時間", "1日", "3日") d0 <- density(log(hd, 10)) inf1 <- d0$x[order(d0$y, decreasing=TRUE)[1]] # 変曲点1のx座標 inf2 <- d0$x[250:length(d0$x)][order(d0$y[250:length(d0$x)], decreasing=TRUE)[1]] # 変曲点2のx座標 par(mar=c(4.5, 4.5, 2, 2), cex.lab=1.6, cex.axis=1.15) plot(d0, xaxt="n", lwd=3, xlab="", ylab="確率密度", main="") axis(1, at=log(tat, 10), labels=NA) text(log(tat, 10), par()$usr[3], tlab, xpd=TRUE, adj=c(1.3, 1.4), srt=45, cex=1.2) mtext("次回 tweet までの時間", 1, cex=1.6, line=3.5) abline(v=c(inf1, inf2), lty=3) text(c(inf1, inf2), par()$usr[4], paste(round(c(10^c(inf1, inf2)*c(60, 1)), 1), c("分", "時間"), sep=""), xpd=TRUE, pos=3, cex=1.2) text(par()$usr[1], par()$usr[4], LETTERS[2], xpd=TRUE, cex=2.5, adj=c(3, 0))
# 24 hour pb <- txtProgressBar(max=nrow(cv), style=3) for(i in seq(nrow(cv))){ setTxtProgressBar(pb, i) idx <- which(dat$V1 == as.character(cv$V1[i])) h <- as.integer(mapply(function(x) format(x, "%H"), z[idx])) tweet_dist[[i]] <- h } # JSD pb <- txtProgressBar(max=nrow(cv)^2, style=3) counter <- 1 for(i in 1 : nrow(mat)){ t_i <- table(factor(tweet_dist[[i]], 0:23)) t_i <- t_i / sum(t_i) t_i <- ifelse(t_i != 0, t_i, 10e-10) for(j in 1 : ncol(mat)){ t_j <- table(factor(tweet_dist[[j]], 0:23)) t_j <- t_j / sum(t_j) t_j <- ifelse(t_j != 0, t_j, 10e-10) M <- (t_i + t_j)/2 kld_i <- try(KL.empirical(t_i, M, unit="log2"), silent=TRUE) kld_j <- try(KL.empirical(t_j, M, unit="log2"), silent=TRUE) if(class(kld_i) != "try-error"& class(kld_j) != "try-error") mat[i, j] <- (kld_i + kld_j)/2 setTxtProgressBar(pb, counter) counter <- counter + 1 } } td <- mapply(function(x) table(factor(x, 0:23)), tweet_dist) td <- sweep(td, 2, colSums(td), "/") na <- na.omit(mat) # クラスタリング用にNAは削除 mat1 <- na[, -attributes(na)$na.action] hcl <- hclust(as.dist(mat1), method="ward") ph <- as.phylo(hcl) ct <- cutree(hcl, k=3) # 適当にわけたら結局3グループくらい layout(matrix(c(1,2,3,4), nr=1), widths=c(1.5, 1, 1, 1)) par(mar=c(0, 2, 0, 2)) plot(ph, tip.color=ct, type="unrooted", use.edge.length=TRUE, show.tip.label=FALSE) lapply(x123, polygon, lty=3, lwd=1.5, xpd=TRUE) for(i in seq(t123$x)){ text(t123$x[i], t123$y[i], substitute(italic(F[x])~group("(", n==list(y), ")"), list(x=i, y=table(ct)[i])), cex=2, xpd=TRUE) } text(24.3, 19.5, substitute(italic(F[1])+italic(F[2])+italic(F[3])~group("(", n==325, ")")), cex=1.5, xpd=TRUE) text(par()$usr[1], par()$usr[4], LETTERS[1], xpd=TRUE, cex=2.7, adj=c(NA, 1.5)) par(mar=c(4.5, 4.5, 2, 1), cex.lab=1.6, cex.axis=1.2) #tmp <- ct[which(!is.na(match(ct, c(1,5,6))))] tmp <- ct[ct == 1] idx <- match(names(tmp), colnames(td)) matplot(0:23, td[,idx], type="l", col=grey(0.9), lty=1, xaxt="n", xlab="投稿時間", ylab="分布割合", ylim=yl) boxplot(t(td[,idx]), at=0:23, add=TRUE, cex=0.7, pch=16, yaxt="n", xaxt="n") axis(1, at=0:23, labels=0:23) lines(0:23, td[, idx], col="red", lwd=3) text(par()$usr[1], par()$usr[4], LETTERS[2], xpd=TRUE, cex=2.5, adj=c(3, 0)) legend("topleft", legend=substitute(italic(F[1])), bty="n", cex=2.5, adj=c(1, NA)) tmp <- ct[ct == 2] idx <- match(names(tmp), colnames(td)) matplot(0:23, td[,idx], type="l", col=grey(0.9), lty=1, xaxt="n", xlab="投稿時間", ylab="分布割合", ylim=yl) boxplot(t(td[,idx]), at=0:23, add=TRUE, cex=0.7, pch=16, yaxt="n", xaxt="n") axis(1, at=0:23, labels=0:23) lines(0:23, td[, idx], col="red", lwd=3) text(par()$usr[1], par()$usr[4], LETTERS[3], xpd=TRUE, cex=2.5, adj=c(2.5, 0)) legend("topleft", legend=substitute(italic(F[2])), bty="n", cex=2.5, adj=c(1, NA)) # おはよう声優 for(i in 3){ idx <- match(names(which(ct == i)), colnames(td)) yl <- c(0, max(td, na.rm=TRUE)) matplot(0:23, td[,idx], type="l", col=grey(0.9), lty=1, xaxt="n", xlab="投稿時間", ylab="分布割合", ylim=yl) boxplot(t(td[,idx]), at=0:23, add=TRUE, cex=0.7, pch=16, yaxt="n", xaxt="n") axis(1, at=0:23, labels=0:23) text(par()$usr[1], par()$usr[4], LETTERS[4], xpd=TRUE, cex=2.5, adj=c(2.7, 0)) legend("topleft", legend=substitute(italic(F[3])), bty="n", cex=2.5, adj=c(1, NA)) }
# week pb <- txtProgressBar(max=nrow(cv), style=3) for(i in seq(nrow(cv))){ setTxtProgressBar(pb, i) idx <- which(dat$V1 == as.character(cv$V1[i])) h <- sapply(z[idx], weekdays) tweet_dist[[i]] <- h } wk <- paste(c("Mon", "Tues", "Wednes", "Thurs", "Fri", "Satur", "Sun"), "day", sep="") wkj <- c("月", "火", "水", "木", "金", "土", "日") # JSD mat <- diag(NA, nrow(cv)) rownames(mat) <- colnames(mat) <- cv$V2 pb <- txtProgressBar(max=nrow(cv)^2, style=3) counter <- 1 for(i in 1 : nrow(mat)){ t_i <- table(factor(tweet_dist[[i]], wk)) t_i <- t_i / sum(t_i) t_i <- ifelse(t_i != 0, t_i, 10e-10) for(j in 1 : ncol(mat)){ t_j <- table(factor(tweet_dist[[j]], wk)) t_j <- t_j / sum(t_j) t_j <- ifelse(t_j != 0, t_j, 10e-10) M <- (t_i + t_j)/2 kld_i <- try(KL.empirical(t_i, M, unit="log2"), silent=TRUE) kld_j <- try(KL.empirical(t_j, M, unit="log2"), silent=TRUE) if(class(kld_i) != "try-error"& class(kld_j) != "try-error") mat[i, j] <- (kld_i + kld_j)/2 setTxtProgressBar(pb, counter) counter <- counter + 1 } } td <- mapply(function(x) table(factor(x, wk)), tweet_dist) td <- sweep(td, 2, colSums(td), "/") na <- na.omit(mat) mat1 <- na[, -attributes(na)$na.action] hcl <- hclust(as.dist(mat1), method="ward") ph <- as.phylo(hcl) ct <- cutree(hcl, k=3) layout(matrix(1:3, 1), widths=c(2, 1, 1)) par(mar=rep(2.5, 4)) plot(ph, tip.color=ct, type="unrooted", use.edge.length=TRUE, show.tip.label=FALSE) lapply(x123, polygon, lty=3, lwd=1.5) for(i in seq(3)){ text(t123$x[i], t123$y[i], substitute(italic(G[x])~group("(", n==list(y), ")"), list(x=i, y=tapply(table(ct), c(1,2,rep(3,4)), sum)[i])), cex=2) } text(par()$usr[1], par()$usr[4], LETTERS[1], xpd=TRUE, cex=2.5, adj=c(NA, 0)) par(mar=c(5, 4.5, 2, 1), cex.lab=1.6, cex.axis=1.5) for(i in 1:2){ idx <- match(names(which(ct == i)), colnames(td)) yl <- c(0, max(td, na.rm=TRUE)) matplot(seq(wk), td[,idx], type="l", col=grey(0.8), lty=1, xaxt="n", xlab="投稿時間", ylab="分布割合", ylim=yl) boxplot(t(td[,idx]), at=seq(wk), add=TRUE, cex=0.7, pch=16, frame=FALSE, xaxt="n", yaxt="n", boxwex=0.25) axis(1, at=seq(wk), labels=wkj) text(par()$usr[1], par()$usr[4], LETTERS[i+1], xpd=TRUE, cex=2.5, adj=c(2.7, 0)) legend("topleft", legend=substitute(italic(G[x]), list(x=i)), bty="n", cex=2.5, adj=c(1, NA)) }