R �͓��v�v�Z�ƃO���t�B�b�N�X�̂��߂̌���E�‹��ł��B
���v�v�Z�ŏd�󂷂�f�[�^�^��A�����v�f���������鉉�Z��֐��A
��͌��ʂ�\������O���t�B�b�N�ȂǁA���ʂȋ@�\��񋟂��܂��B

���֘A�T�C�g
The R Project
http://www.r-project.org/
RjpWiki
http://www.okada.jp.org/RWiki/
�����N�W
http://www.okada.jp.org/RWiki/?%A5%EA%A5%F3%A5%AF%BD%B8
���O�X��
�yR����z���v��̓t���[�\�t�g�q ��T�́yGNU R�z
rio2016.2ch.net

������ȃf�[�^�t���[���i2x10^6�s x 1x10^4��j���������Ƃ��Ă�񂾂��ǁAgather�Ƃ����悤�Ƃ���Ƃ߂��Ⴍ����x���B�������̃R�c�Ƃ��m���Ă�l���܂����H

gather()�֐���Superseded������Apivot_longer()�֐����g���Ă݂ẮH

>>996
������Ƒ����Ȃ�܂����B���肪�Ƃ��B

R�ŕ�����̒u�����s�������̂ł����A
g = gray, y = yellow�Ƃ������̂�g��grayellow�ƂȂ��Ă��܂��܂��B
�������u�����s���̂͂ǂ�����΂悢�̂ł��傤���H

�ǂ������ϊ����Ă��邩������Ȃ����ǁA���ʂ��������Ag��gra"y"�ɕϊ��������y��yellow�ɕϊ����Ă�񂶂�H

>>998
>>999�̎w�E�ʂ�ʼn��̂悤�Ȃ��Ƃ�����Ă���Ȃ�A
> x <- factor(sample(c("g", "y"), 20, TRUE))
> x <- gsub("g", "grey", x)
> gsub("y", "yellow", x)
[1] "greyellow" "greyellow" "greyellow" "yellow" "greyellow" "greyellow"
[7] "greyellow" "yellow" "yellow" "greyellow" "yellow" "yellow"
[13] "greyellow" "greyellow" "greyellow" "greyellow" "yellow" "greyellow"
[19] "greyellow" "yellow"
��������̂ł͂Ȃ��āA
> gsub("^y", "yellow", x)
[1] "grey" "grey" "grey" "yellow" "grey" "grey" "grey" "yellow"
[9] "yellow" "grey" "yellow" "yellow" "grey" "grey" "grey" "grey"
[17] "yellow" "grey" "grey" "yellow"
����ȕ��ɐ��K�\���ōH�v����΂悢�̂ł́B
�Ȃ��A�ł��ȒP�ȉ�����́Agreen,yerrow�̒u��������yellow,green�t�Ƃɂ���΂悢�B

�ԈႦ���B
s/green,yerrow/grey,yellow/
s/yellow,green/yellow,grey/

>>999
>>1000
�o���܂����A���肪�Ƃ��������܂��I

���̃X���b�h�͂P�O�O�O�𒴂��܂����B
�V�����X���b�h�𗧂ĂĂ��������B
life time: 1808�� 19���� 42�� 19�b

�� ���̃X���b�h�͉ߋ����O�q�ɂɊi�[����Ă��܂�