�����Twitter�Ƃ����g�߂ȑ�ނ��g���āAR�ɂ��f�[�^���W�Ɖ���������Ă݂܂��BR�̖L�x�ȃ��C�u�������g���ΈӊO�Ɏ�y�ɂł��܂��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�̐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
�@���{�ł��܂�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")
�@���ā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
�@�������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
�@����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
�C���^�[�����[�h: Twitter��R
Page1
����͊ԑt�I��IT���̘b���
Twitter��R
friends��followers����������
Page2
Twitter�e�L�X�g�}�C�j���O�̓���̓���
����ɂ���
Copyright © ITmedia, Inc. All Rights Reserved.