����͔������O���t����y�ɍ쐬�ł���A�O���t�B�b�N�p�b�P�[�W���g���Ă݂܂��B���E��s�̃f�[�^��A���Wikileaks�ŗ��o���Ęb��ƂȂ��Ă���A�t�K���푈�̃f�[�^���g���A�����̂ق��f�[�^�̐������̌����s���Ă݂܂��B
�@����͑O��̑����Ƃ��āA�I�[�v���E�f�[�^���v���b�g���邱�Ƃ��e�[�}�Ɏ��グ�܂��B�O���R�̑g���݂̃O���t�`����ł���Aplot��ts.plot�݂̂𗘗p���܂������A����́A�O���O���t�B�b�N���C�u�����Ƃ��čŋߔ��ɒ��ڂ���Ă���ggplot2�p�b�P�[�W�𗘗p���܂��B���̘A�ڂł�����A�O���t�`��ɂ��Ă�ggplot2�𗘗p���Ă����\��ł��B
�@�܂��A�����Web�T�[�r�X�𗘗p�����f�[�^�擾�ɂ��Ă����グ�܂��B
�@ggplot2�́AR���[�U�[�̊Ԃł̓f�t�@�N�g�X�^���_�[�h�̃c�[���ƂȂ��Ă���O���t�B�b�N�p�b�P�[�W�ł��B
�@ggplot2�̐v�v�z�ɂ́ASYSTAT Software Inc�̌v�Z�@�Ȋw�� Leland Wilkinson��������u�O���t�B�b�N���@�iThe Grammar of Graphics�j�v�Ƃ������̂�����܂��B���́u�O���t�B�b�N���@�v�́A���h���̗ǂ��O���t�����Ƃ�����{���I�ȍ�ƂɃ��[�U�[�ɒ��͂�����̂ł͂Ȃ��A�f�[�^���{�������Ă���p���O���t�ɔ��f�����邱�Ƃ�ڎw���Ē���Ă��郋�[���ł��B
�@���[�U�[�������̗~����������肷��A�����I�Ƀ\�t�g�E�F�A���K�v�ȏ�����������ŃO���t���쐬����̂��{���̎p�ŁA���[�U�[���킴�킴�O���t���쐬������A����������Ƃ������Ƃ���点�Ȃ��A�Ƃ����̂��u�O���t�B�b�N���@�v�����������`�������ł��BLeland Wilkinson���́A���ۂɂ��́u�O���t�B�b�N���@�v��SPSS�x�[�X�̃��C�u�����Ƃ��ĊJ�����A���݂ł�SPSS�̕W���@�\�ƂȂ��Ă��܂��B�u�O���t�B�b�N���@�v�̏ڍׂ͈ȉ��̏��Ђɂ���܂��̂ŁA������������͎Q�l�ɂȂ����Ă��������B
The Grammar of Graphics http://www.amazon.com/gp/product/0387245448/
�@����Leland Wilkinson���́u�O���t�B�b�N���@�v�̐��_��R�Ŏ�������̂��ARice��w�̌v�Z�@���v�w�ҁAHadley Wickham�����쐬����ggplot2�ł��Bggplot2�̓����ŁA�M�҂����ɕ֗��Ɗ����Ă�����͈̂ȉ��̒ʂ�ł��B
�@����̋L���ł��F�����ݒ�̎�������t�@�Z�b�g�O���t���g���܂��B
�@�����Ŗ{���Ȃ��ggplot2�̃`���[�g���A���ƂȂ�킯�ł����A����ggplot2�͋���ȃ��C�u�����ł���A���Ƃ�����I�ȓ��e�ł����Ă��A����̘A�ڂł͏I��肻���ɂ���܂���B�����ŁA�����̏������T�|�[�g�T�C�g�ɓ���Ƃ��Ă܂Ƃ߂܂����̂ŎQ�l�ɂ��Ă��������B�܂��p��ɒ�R���Ȃ����́AHadley Wickham�����g���u�`���Ă���r�f�I������܂��̂ŁA������Q�l�ɂȂ����Ă��������B
Hadley Wickham's Data Visualization using ggplot2 short course http://blip.tv/file/3362248
�@���t�@�����X�}�j���A���̓I�����C����ɂ���܂��B�g��������x�K������A���̃I�����C�����t�@�����X�}�j���A���͔��Ɏg�����肪�悢���Ƃ�������͂��ł��B
ggplot2 refrence manual http://had.co.nz/ggplot2/
�@�܂��AHadley Wickham���̏�����ggplot2�̖{������܂��B
ggplot2: Elegant Graphics for Data Analysis http://www.amazon.com/gp/product/0387981403
�@����ɂ̓u���O�`���ŁAggplot2�ɂ�����R�[�h����Ă���T�C�g������܂��B
Learning R http://learnr.wordpress.com/
�@�ȏ�̂悤�ɁA���݂ł͏��Ђ�I�����C����̃��\�[�X�����ɖL�x�ł��̂ŁA�����̎g�����������߂A���Ƃ͎�̒T���Ǝ��s����łǂ��ɂ��Ȃ�Ǝv���܂��B
�@���āA���ۓI�Ȃ��Ƃ����ŏI���̂����̘A�ڂ̎�|�ɔ����܂��̂ŁA�����ŋ�̓I��ggplot2�𗘗p���āA���̕��͋C�����݂����Ǝv���܂��B�O��̋L���Ŏ��グ�����{�~�̎��������בփ��[�g���f�[�^�Ƃ��Ďg���A�O���t�\�������Ă݂邱�Ƃɂ��܂��B�܂��A�W���p�b�P�[�W�łȂ��Aggplot2���C���X�g�[������K�v������܂��B�ȉ���R�̃R�}���h�ŁA�}�g��w��CRAN�~���[�T�C�g�őI�тȂ���p�b�P�[�W���C���X�g�[�����Ă��������B���̎菇�ɂ��āA�T�|�[�g�T�C�g�̓���ł����邱�Ƃ��ł���悤�ɂ��܂��B
> install.packages("ggplot2")
�@�f�[�^�͑O��Ɠ��l��Google Docs�ɂ�����̂𗘗p���܂��B
> data <- read.csv("http://spreadsheets.google.com/pub?key=0AlBuJgqcP5f3dExEQkZfem1MeXFPZTA1UUVaVVZud3c&hl=en&output=csv", header=TRUE, skip=1)
�@�O��́A���̎��������בփ��[�g�̃f�[�^����x���n��I�u�W�F�N�g�ɕϊ����Ă���ts.plot�ŕ`�悵�܂������Aggplot2�𗘗p����ꍇ�͂��̕K�v������܂���B�������A���t�E���Ԃ�\���J����������t�I�u�W�F�N�g�ɕϊ�����K�v������܂��B�ȉ��ɁA���̎w���������Ƀv���b�g���A���̃O���t��ۑ�����菇�������܂��B
> data$yearmonth <- paste(data$yearmonth, "/01", sep="")
> data$yearmonth <- as.Date(data$yearmonth, "%Y/%m/%d")
> library(ggplot2)
> f <- ggplot(data = data, aes(x=yearmonth, y=1/stfx*100)) + geom_line(aes(colour="JPY")) + geom_hline(yintercept=1)
> f + xlab("Year") + ylab("Effective exchange rate index") + opts(title="Effective exchange rate index JPY") + scale_colour_manual(values=c("JPY"="darkblue"))
> ggsave("japanfx2.png", plot = f)
�@���̃R�[�h�̎��s���ʂ����̃O���t�ł��B
�@�O���t������ƕ�����悤�ɁAR��plot�ō쐬����f�t�H���g�̃O���t�������Ȃ茩�h���̂悢�A���ꂢ�ȃO���t���`���邱�Ƃ�������܂��B
�@���̃R�[�h�̊ȒP�Ȑ��������܂��B1�s�ڂ�paste���𗘗p����"/01"�Ƃ�����������u�����v�ɕt�������Ă���̂́AR��date�I�u�W�F�N�g�ɂ͕K�����t�v�f���K�v������ł��B2�s�ڂł�1�s�ڂʼn��H�������̂�date�I�u�W�F�N�g�ɕϊ����邽�߂ɁAas.Date���𗘗p���Ă��܂��B3�s�ڈȍ~���v���b�g�̎��ۂł��B�R�[�h������ƕ�����悤�ɁA���낢��ȃI�u�W�F�N�g���{�L���Ŏ��X�Ɖ������킹�Ă����Ă��܂��B
�@�܂��Aggplot2�����C�u�����Ƃ��ēǂݍ��݂܂��B���ɁAggplot���Ńv���b�g����ׂ��f�[�^�t���[���ƁA�v���b�g����ׂ��ϐ����w�肵�܂��Bggplot2�ł́A�ڂɐG�����̂�aes���̒��ɏ������ƂɂȂ��Ă���̂ŁAx����y���ɉ���\�����邩�Ƃ����w��͂���aes���ōs���܂��Baes�Ƃ������̗R���́A�gaesthetics�i�G�X�e�e�B�N�X�A���I�v�f�j�h�̗��ł��B�܂��A�f�[�^�_����Ō��Ԃ��Ƃ��w�肷��̂�geom_line���ŁAy=1.0�̐�������`���̂� geom_hline���ł��Bgeom_line�ɂ́Aaes���ɂ���āA���̐F�w������Ă��܂��B���̐F�w��͎��͕ϐ������蓖�Ă邾���ŁA���ۂ̐F�͌�ق�scale_colour_manual���ɂčs���Ă��܂��B geom_hline�ł́A��������y�ؕЂ��w�肷��̂�yintercept�����𗘗p���܂��B�ȏ�̃v���b�g�I�u�W�F�N�g�́Aggplot2�I�u�W�F�N�g�Ƃ���f�Ƃ����ϐ��Ɋ��蓖�Ă邱�Ƃɂ��܂����B
�@���̍s��x���Ay���̃��x���A�O���t�̃^�C�g���A�����Đ�قǂ̐F�ϐ��̐F���gdarkblue�h�Ƃ��Č��肵�Ă��܂��B�������疾�炩�Ȃ̂ŁA�����Đ����͂���Ȃ��Ǝv���܂��B�|�C���g�́A�O�̍s�ō쐬����ggplot2�I�u�W�F�N�gf�Ɍォ��lj��I�Ɏw�������悢�A�Ƃ������Ƃł��B�Ō�̍s��ggsave���ŃO���t�B�b�N��ۑ����܂��B�t�@�C���͊g���q�ɂ�莩�����肳���png��jpg�Apdf�Ȃǂ̃t�H�[�}�b�g�ɕۑ����邱�Ƃ��ł��܂��B
�@�ȏ�A�ȒP��ggplot2�̎�K�������܂����B�����̊��̏ڍׂ�ggplot2���I�����C�����t�@�����X�}�j���A�������Ă��������B���ہA������x�̗��p���@���o����A���̃I�����C�����t�@�����X�}�j���A�������ő�̂̂��Ƃ͂ł���悤�ɂȂ�܂��B
�@�O��̋L���ŁAꎓ�������́u�����̍�@�v�Ƃ������Ђ����グ�A���̘_�_��1�������܂����B���̂Ƃ��̓���PER�l�̃f�[�^�ɂ��āA�\���ɑw������Ă��Ȃ��̂ɂ�������炸�A���̎��ԕϓ���K�v�ȏ�Ɏ��グ����Ŝ��ӓI�ȉ��߂��{���Ă���̂͂��������Ƃ����ᔻ������悤�ł��B
�@����ɂ��Ă͌�����T�|�[�g�T�C�g�Ŏ��グ�����Ǝv���܂����A�u�����̍�@�v�ł͂��̂��ƂɑΏ����邽�߂ɁAPER�l�ڎ�舵���̂ł͂Ȃ��A�G�[����w��Robert Shiller����������@��������Ă��܂��B����́A�X�̊�Ƃ�ƊE�̎��v�̒Z���ϓ��̉e����r�����邽�߂ɁA�ߋ�10�N�̎����x�[�X�ł݂����ϊ�ƋƐтœ������������̎����l���������l�𗘗p����Ƃ������@�ł��B�ڂ�������́u�����̍�@�v���������������B�����A���̕��@�𗘗p���Ă��u�����Ȃi�C�v�㔼��PER�l�̍����͍ۗ��Ƃ������ʂɂȂ�܂��B�܂��A�O��̋L���̎�|�́A�I�[�v���E�\�[�X�̃\�t�g�E�F�A�𗘗p���āA�����̎�ŃI�[�v���E�f�[�^���g�����Ȃ��������������Ƃł��邽�߂ɁA�u�ߋ�10�N�̎����x�[�X�ł݂����ϊ�ƋƐтŋς��v�Ƃ�����r�I�ώG�ȉ�͂܂œ��ݍ��߂Ȃ��������Ƃ������m�������������B
Copyright © ITmedia, Inc. All Rights Reserved.
��IT eBook