�C���^�[�����[�h: Twitter��R�F���H�I R�Ŋw�ԓ��v��͂̊�b�i5�j�i1/2 �y�[�W�j

�����Twitter�Ƃ����g�߂ȑ�ނ��g���āAR�ɂ��f�[�^���W�ƉŽ���������Ă݂܂��BR�̖L�x�ȃ��C�u�������g���ΈӊO�Ɏ�y�ɂł��܂��B

» 2010�N09��15�� 00��00�� ���J
[����Y���C�o�N�t�[�������]

����͊ԑt�I��IT���̘b���

�@���̘A�ڂ́�IT�̘A�ڂł����Ȃ�ѐF�̈Ⴄ���e�ł��B����ɂ�������炸�O��܂ł�4��́A���v�I����������Ȃ蓱��������A���{���{�␢�E��s�̌o�ϓ��v�ɃA�N�Z�X���Ă݂���A����ɂ�WikiLeaks�̖\�I�f�[�^�𓝌v��͂��Ă݂���ƁA���Ȃ�n�[�h�R�A�ȓ��e�ɑ����Ă��܂��܂����B

�@��4��́u���Ƃ����v�ł͓����H���œ˂����낤�Ƃ������Ƃ�\���グ�Ă����̂ł����A����͊ԑt�i�C���^�����[�h�j�Ƃ��āA��聗IT�炵���AIT���̘b������グ�����Ǝv���܂��B

Twitter��R

�@Twitter�̐l�C�͐��E�I�ɂ܂��܂������Ă���悤�ł��B2010�N8���㔼�ɔ��\���ꂽ2010�N6�����̓��v�ɂ��΁A���݂̓C���h�l�V�A��u���W���A�x�l�Y�G���Ȃǂ̐V�����̐L�т������������ł��B

2010N6̓v

�@���{�ł��܂�17���Ƃ����}�����𑱂��Ă��܂��B�č��ł�Twitter�̐������~�܂����Ƃ����_�l�����x���o�Ă��܂����A���̓��o�C�����܂߂����v������ƁA��������܂��܂��L�ёオ�\���Ȃ悤�ł��B

�@���āA���̐l�C��Twitter�ł����A���̂悤�Ƀ��[�U�[�̐��◘�p�p�x���傫���Ȃ��Ă���ƁA���񂾂�Ɠ��퐶���Ɍ������Ƃ̂ł��Ȃ��Љ�֌W���{�isocial capital�F�Љ�ɂ����Đl�X�����l�Ԋ֌W��M���֌W�̂��Ɓj�̃C���t���X�g���N�`���[�̂悤�ȑ��݂ɂȂ��Ă��Ă���ƌ�����ł��傤�B����ʂł́A�l�̚n�D�i�������j��I�D�A�Љ�̌��݂̃g�����h�Ȃǂ��i�[����Ă���A�l�Ԋ֌W�y�ьl�̚n�D�̊ȈՓI�ȃf�[�^�x�[�X�ƍl���邱�Ƃ��ł������ł��B���̂悤�ɍl����ƁATwitter�̃��[�U�[���m�̊֌W����X���Ƃ肳���c���tweet���f�[�^�}�C�j���O��f�[�^��͂ɗ��p���邱�ƂŗL�p�ȏ��𓾂邱�Ƃ��ł��Ȃ����A�Ƃ����l�����o�Ă��邱�ƂƎv���܂��B����̋L���ł́A�n�[�h�R�A�ȃf�[�^�}�C�j���O��f�[�^��͍͂s���܂��񂪁A���̃}�C�j���O���͂����������܂ł̃A�v���[�`��񎦂��邱�Ƃ�ړI�Ƃ��܂��B

�@Twitter���f�[�^�x�[�X�Ƃ��ė��p���AR���g���Ă��̃f�[�^��͂����邽�߂ɂ́AR��Twitter��A�g������K�v������܂��B���̂��߂̃p�b�P�[�W��CRAN�ɂ���܂��B���ꂪtwitteR�ł��BtwitteR��Twitter��REST API�����b�s���O���Ă���p�b�P�[�W�ŁA����𗘗p�����R��Twitter�̃N���C�A���g�ɂ��邱�Ƃ��ł��܂��B

�EtwitteR


�@��������́AtwitteR�𗘗p���āATwitter��������o������̉Ž����ƃe�L�X�g�}�C�j���O�̃C���g���_�N�V�������s�������Ǝv���܂��B

�@�܂�twitteR���C���X�g�[�����܂��BR�̑Θb�v�����v�g����install.packages�֐����Ăяo���܂��BCRAN�T�C�g�ɂ‚��ẮA�Ⴆ�΁gJapn�iTukuba�j�h��I�����Ă��������B

> install.packages("twitteR")

�@����͂���twitteR�ȊO�ɂ��Aigraph��RMeCab�𗘗p���܂��B����������ŃC���X�g�[�����Ă��܂��܂��傤�B�������ARMeCab�ɂ‚��ẮAinstall.packages�֐��ŃC���X�g�[���ł��܂���B����́A��قNjL�q���܂����A�_�E�����[�h�T�C�g���o�C�i���t�@�C�����_�E�����[�h���āA���[�J���f�B�X�N����C���X�g�[�����邱�ƂɂȂ�܂��B

> install.packages("igraph")

friends��followers���Ž�������

�@���āA����twitteR�̗��p���@�ł����A���ʂ̃N���C�A���g�Ɠ����悤�ɁATwitter�̃A�J�E���g�i�A�J�E���g���ƃp�X���[�h�j���K�v�ł��B�܂��AtwitteR��Twitter�N���C�A���g���X�^�[�g�����邽�߂ɃZ�b�V�������J�n����K�v������܂��B����ɂ�initSession�֐��𗘗p���܂��B

> library(twitteR)
> session <- initSession("YOURNAME", "YOURPASS")
> session
An object of class �gCURLHandle�h
Slot "ref":
<pointer: 0xa50000>

�@ YOURNAME��YOURPASS�ɂ͂��ꂼ��A�����g��Twitter�A�J�E���g���ƃp�X���[�h�𗘗p���Ă��������BinitSession�֐�����Ԃ����̂�Unix��CURL�R�}���h�����b�v�����gCURLHandle�h�I�u�W�F�N�g�ŁAtwitteR�̊֐��𗘗p����Ƃ��ɂ��̃I�u�W�F�N�g�������ɓn���Ă��K�v������܂��B

�@Twitter������I�ɂ��Ă�����̂�1�‚ɁATwitter�̎Q���҂̊Ԃ�following/follwer�֌W�Ƃ����c��ȎЉ�֌W���C���^�[�l�b�g��ɍ\�z����Ă���A�Ƃ������Ƃ���������Ǝv���܂��B���̈Ӗ��ŁATwitter�͎Љ�֌W���{�isocial capital�j�̃C���t���X�g���N�`���[�ɂȂ蓾��ƁA���̍e�̖`���ŏq�ׂ܂����B�����ł͂���Twitter��follwing/follower�֌W���Ž����������Ǝv���܂��B

�@twitteR�ł́A�����⑼�̐l�Ԃ�following���Ă���l�����^�[�Q�b�g�Ƃ��āA���̃^�[�Q�b�g�̃��X�g�𓾂�ɂ�userFriends�𗘗p���܂��B��1�����ɂ͒��ׂ����A�J�E���g���X�g�����O��twitteR��user�I�u�W�F�N�g�����A�������ɂ͍ő�l�A��O�����ɂ͐�قǎ擾�����Z�b�V�����I�u�W�F�N�g�����܂��B���[�U�̃��X�g���Ԃ���܂��B�����Œ��ӓ_�ł����A��������n��100�ȉ��ɂ��Ă�100�‚̃��X�g���Ԃ�悤�Ȏd�l�ɂȂ��Ă���悤�ł��B

> target <- "hatoyamayukio"
> friends.obj <- userFriends(target, n = 100, session)
> head(friends.obj)
[[1]]
[1] "barthkoch"
[[2]]
[1] "rimaruko"
[[3]]
[1] "sean_fuji"
[[4]]
[1] "gu_cci"
[[5]]
[1] "usavich3"
[[6]]
[1] "amanecs"

�@���ۂɓǎ҂̊F����̉�ʂɕ\�����ꂽ���ʂ́A��̂��̂Ƃ͈قȂ邩���m��܂���B����́ATwitter�ɂ�����֌W�͎��X���X�ω����Ă��邽�߂ł��B���l��followers���擾����ɂ́AuserFollowers�𗘗p���܂��B���āA�����Ń^�[�Q�b�g��following��follower�̃��X�g���擾���A���̃f�[�^���O���t�\���Ŏ��o���������Ǝv���܂��B���̂��߂ɁAfollwing��follwers�̃A�J�E���g����1�‚̃f�[�^�t���[���Ɋi�[���܂��BuserFriends��userFollowers����Ԃ���郊�X�g�I�u�W�F�N�g�̒��g�����Ă݂�ƈȉ��̂悤�ɂȂ��Ă��܂��B

> str(friends.obj)
List of 100
 $ :Formal class 'user' [package "twitteR"] with 14 slots
  .. ..@ description   : chr ""
  .. ..@ statusesCount : num 17
  .. ..@ followersCount: num 20
  .. ..@ favoritesCount: num(0) 
  .. ..@ friendsCount  : num 80
  .. ..@ url           : chr(0) 
  .. ..@ name          : chr "barthkoch"
  .. ..@ created       : chr "Thu Aug 20 21:03:33 +0000 2009"
  .. ..@ protected     : logi FALSE
  .. ..@ verified      : logi FALSE
  .. ..@ screenName    : chr "barthkoch"
  .. ..@ location      : chr "Brazil"
  .. ..@ id            : num 67424072
  .. ..@ lastStatus    :Formal class 'status' [package "twitteR"] with 10 slots
...

�@�ǂ����AscreenName�����[�U�̃A�J�E���g���̂悤�ł��B������@�Ŏn�܂���̂����X�g�Ɋi�[����Ă��鑮���I�u�W�F�N�g�ŁA�����I�u�W�F�N�g�́u�L�[�v�Ɓu�l�v�̃y�A�ɂȂ��Ă��܂��B�����I�u�W�F�N�g���瑮���l�����o���ɂ́A���̃L�[���֐��Ƃ��ēK�p���܂��B�����Ƀ��X�g����1�–ڂ̑����I�u�W�F�N�g���������o���āA���̃L�[screenName���֐��Ƃ��ēK�p���Ă݂܂��傤�B

> screenName(friends.obj[[1]])
[1] "barthkoch"

�@����ŁAuserFriends��userFollowers����Ԃ���郊�X�g�I�u�W�F�N�g�Ɋi�[����Ă���A�J�E���g�������o�����@��������܂����B�����S�Ẵ��X�g�ɓK�p���Aw�‚̃f�[�^�t���[���ɓ�������ɂ͎��̂悤�ɂ��܂��Bfollowers�̃��X�g���‚��łɎ擾���Ă����܂����B

> followers.obj <- userFollowers(target, n = 100, session)
> friends <- sapply(friends.obj, screenName)
> followers <- sapply(followers.obj, screenName)
> relationsdf <- merge(data.frame(User = target, Follower = friends), 
+     data.frame(User = followers,  Follower = target), 
+     all = T)
> head(relationsdf)
           User  Follower
1 hatoyamayukio  178REIJI
2 hatoyamayukio      3hit
3 hatoyamayukio  921_u3u3
4 hatoyamayukio  a_ikenag
5 hatoyamayukio ace_champ
6 hatoyamayukio    achora
> tail(relationsdf)
               User      Follower
195 YoshidaFumitaka hatoyamayukio
196   yoshitada9646 hatoyamayukio
197   ysugihara1221 hatoyamayukio
198      yuki70424b hatoyamayukio
199    yunikonnyaku hatoyamayukio
200  yutakakanagawa hatoyamayukio

�@�����ŁAfollowing���X�g�I�u�W�F�N�g��followers���X�g�I�u�W�F�N�g��screenName���ꊇ�K�p���邽�߂�sapply�𗘗p���܂����B�܂��A�f�[�^�t���[�����쐬����ɂ�data.frame�A�쐬����2�‚̃f�[�^�t���[���𓝍�����ɂ�mearge�𗘗p���܂����B

�@head��tail�ōŏ��̕��ƍŌ�̕���User-Follower�֌W���݂܂��ƁA����Ƀf�[�^�t���[�����ł��Ă���悤�ł��B

�@���͂���User-Follwer�֌W�̎��o���ł��B�����User -> Follower�֌W�ɂȂ��Ă���̂ŁA�O���t���_�̊T�O�ł����Ƃ�����L���O���t�ł��BR�ŗL���O���t�����o������ɂ�igraph�p�b�P�[�W�𗘗p����̂���Ԏ����葁���ł��B

�Eigraph


�@igraph�p�b�P�[�W�𗘗p���邵�ăO���t��`�悷��ɂ́A�ʏ�̃f�[�^�t���[���𒸓_�ƕӂ̑�����t���������f�[�^�t���[���ɕϊ�����K�v������܂��B������s���̂�graph.data.frame�ł��B

> library(igraph)
> g <- graph.data.frame(relationsdf, directed = T)
> g
Vertices: 201 
Edges: 200 
Directed: TRUE 
Edges:
                                            
[0]   'hatoyamayukio'   -> '178REIJI'       
[1]   'hatoyamayukio'   -> '3hit'           
[2]   'hatoyamayukio'   -> '921_u3u3'       
[3]   'hatoyamayukio'   -> 'a_ikenag'
...

�@�����graph.data.frame��directed = T�Ƃ��������t���I�v�V�������w�肵���̂ŁAUser -> Follower�֌W���\���ł��܂����B����g��igraph�ŗ��p����f�[�^�t���[���ł����A���_�I�u�W�F�N�g�ƕӃI�u�W�F�N�g�����o���ɂ́AV��E�𗘗p���܂��BV��"V"ertec�i���_�j�AE��"E"dge�i�Ӂj���Ӗ����܂��B���_�̃I�u�W�F�N�g�̖��O�����o���ɂ�$name�ɂ����o���܂��B

> head(V(g))
Vertex sequence:
[1] "20100912pm3"   "24KinKiKids51" "313so"         "9_nanatuki"    "Airi0419"      "ak3161"       
> head(E(g))
Edge sequence:
                                  
[1] hatoyamayukio -> 3hit         
[2] hatoyamayukio -> 921_u3u3     
[3] hatoyamayukio -> a_ikenag     
[4] hatoyamayukio -> ace_champ    
[5] hatoyamayukio -> achora       
[6] hatoyamayukio -> ahoneko_tom 
> head(V(g)$name)
[1] "hatoyamayukio" "20100912pm3"   "24KinKiKids51" "313so"         "9_nanatuki"    "Airi0419"   
> V(g)$label
NULL
> V(g)$label <- V(g)$name

�@�Ō�̃R�[�h�́A�O���t���������Ƃ��ɋL�q����钸�_�̃��x��$label��$name�����ɂ���A�J�E���g�������̂܂ܓ���܂����B����ŃO���t��`���������������܂����B�O���t��`���͎̂��͂������e�ՂŁA��ԊȒP�ȃO���t��plot�֐����O���t�f�[�^�t���[���ɓK�p���邾���ł��B

IuWFNgdȂĂ܂

�@�������A100�ȏ�̒��_�I�u�W�F�N�g������ꍇ�A�I�u�W�F�N�g���d�Ȃ��Ă��܂�����ł͂悭������܂���B�����Ŕ�r�I���@�\�̃O���t�`��֐��ł���tkplot�𗘗p���Ă݂܂��B�����tk�O���t�B�b�N���C�u������ɍ쐬���ꂽ�O���t�v���b�g���C�u�����ł��B

> tkplot(g)

�@tkplot�֐��ł́A�A�gLayout�h���j���[����O���t�̔z�u��ύX���邱�Ƃ��ł��܂��B�Ⴆ�΁AKawada-Kawai�A���S���Y����I��Ńv���b�g����ƈȉ��̂悤�ȃO���t�ɂȂ�܂��B

Kawada-KawaiASYŃvbgꍇ

�@����tkplot�ŕ`���ꂽ�O���t��̃I�u�W�F�N�g�̓}�j���A���Ŕz�u���ύX�ł��܂��B�܂��ӂ�I�ׂ΂��̕ӂ��n�C���C�g���܂����A���_��I�ׂΒ��_���n�C���C�g���A���_�Ԃ̊֌W��������x������悤�ɂȂ��Ă��܂��B

�@�ȏオ�ATwitter�̎Љ�֌W�����o�����邽�߂ɁAtwitteR����擾����follwing/follower�̃��X�g���O���t���������A�̎菇�ł��B

Index

�C���^�[�����[�h: Twitter��R

Page1
����͊ԑt�I��IT���̘b���
Twitter��R
friends��followers���Ž�������

Page2
Twitter�e�L�X�g�}�C�j���O�̓���̓���
����ɂ‚���


�@�@�@�@�@�@ 1|2 ���̃y�[�W��

Copyright © ITmedia, Inc. All Rights Reserved.

'; this.insertTarget = document.querySelector('#cmsBody .subscription') || document.querySelector('#cmsBody .inner'); }; BodyAdIMSWithCCE.prototype = Object.create(BodyAdContent.prototype); BodyAdIMSWithCCE.prototype.activate = function () { refreshGam('InArtSpecialLink'); } // global reference window.itm = itm; //entry point BodyAdEventBase.polyfill(); const bodyAdManager = BodyAdManager.getInstance(); bodyAdManager.addEventListener(BodyAdManager.EVENTS.READY, function (ev) { bodyAdManager.loadAdvertise(); }); bodyAdManager.init(); })();
�X�|���T�[����̂��m�点PR

���ڂ̃e�[�}

Microsoft  WindowsőO2025
AI for GWjAO
[R[h^m[R[h Zg by IT - ITGWjArWlX̒SŊ􂷂gD
Cloud Native Central by IT - XP[uȔ\͂gD
�V�X�e���J���m�E�n�E �y�����i�r�zPR
���Ȃ��ɂ������߂̋L��PR

RSS�ɂ‚���

�A�C�e�B���f�B�AID�ɂ‚���

���[���}�K�W���o�^

��IT�̃��[���}�K�W���́A �������A���ׂĖ����ł��B���Ѓ��[���}�K�W�������w�ǂ��������B