R�ɂ��I�[�v���E�f�[�^�̉Ž����i2�j�F���H�I R�Ŋw�ԓ��v��͂̊�b�i4�j�i1/3 �y�[�W�j

����͔������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

» 2010�N09��02�� 00��00�� ���J
[����Y���C��IT]

ggplot2�Ƃ����u�f�t�H���g�v�O���t�B�b�N�p�b�P�[�W

�@����͑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

�@����Leland Wilkinson���́u�O���t�B�b�N���@�v�̐��_��R�Ŏ�������̂��ARice��w�̌v�Z�@���v�w�ҁAHadley Wickham�����쐬����ggplot2�ł��Bggplot2�̓����ŁA�M�҂����ɕ֗��Ɗ����Ă�����͈̂ȉ��̒ʂ�ł��B

  • �f�[�^�̉��ɒ��ڂ����������w�肷�邾���ŁA�f�t�H���g�Ŕ������O���t��`�����Ƃ��ł���
  • �f�[�^��\���̐؂���w����ォ��lj��ł���̂ŁA�O���t�쐬�����Ȃ���f�[�^��T���ł���
  • ���W�F���h�i�}��j�ƌ��ѕt�����F�����ݒ肪�����ł���
  • �{�b�N�X�v���b�g�A�U�z�}�A���O���t�Ƃ����O���t�̌��h�������R�ɕύX�ł���
  • �t�@�Z�b�g�O���t�i�����ȃO���t���^�C����ɑg�ݍ��킳�����O���t�j���ȒP�ɍ쐬�ł���
  • �����̃f�[�^��1�‚̃O���t�Ƀv���b�g����Ƃ��ł��A�ォ�瑫�����킹��΂悢
  • ���n��f�[�^�ł����Ă����ʂɎ��n��I�u�W�F�N�g�Ƃ��Ď�舵���K�v���Ȃ�
  • �R���I�iaesthetic�j�ȃO���t�B�b�N�v�f�́A�ォ������邱�Ƃ��ł���
  • �f�J���g���W���ɍ��W�����݂ɐ؂�ւ��邱�Ƃ��ł���
  • �O���t�B�b�N�e�[�}��ݒ�ł���̂ŁA���h�����h���X�e�b�N�ɐ؂�ւ��邱�Ƃ��ł���

�@����̋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

�@�ȏ�̂悤�Ɂ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

R[h̎s

�@�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

�R����������PER�l�̃f�[�^��p�����O��̌��؂ɂ‚���

�@�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


Index

R�ɂ��I�[�v���E�f�[�^�̉Ž����i2�j

Page1
ggplot2�Ƃ����u�f�t�H���g�v�O���t�B�b�N�p�b�P�[�W

Page2
���E��s��Data Catalog

Page3
Wikileaks�̃A�t�K���푈�_�C�A���[
�x���t�H�[�h�̖@���Ō���
����ɂ‚���


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

Copyright © ITmedia, Inc. All Rights Reserved.

'; }; BodyAdGAMWithCCE.prototype = Object.create(BodyAdContent.prototype); BodyAdGAMWithCCE.EVENT_INIT = 'init'; BodyAdGAMWithCCE.EVENT_READY = 'ready'; /** * AdContent �̏������Ɨ��p���� */ BodyAdGAMWithCCE.prototype.init = function () { Logger.writeln('BodyAdGAMWithCCE.prototype.init'); this.dispatchEvent(new CustomEvent(BodyAdGAMWithCCE.EVENT_INIT)); }; /** * �L���g�� GAM ���N�G�X�g */ BodyAdGAMWithCCE.prototype.activate = function () { refreshGam('InArtSpecialLink'); this.dispatchEvent(new CustomEvent(BodyAdGAMWithCCE.EVENT_READY)); }; // global reference window.itm = itm; //entry point const build = function( e ) { BodyAdEventBase.polyfill(); const bodyAdManager = BodyAdManager.getInstance(); bodyAdManager.addEventListener(BodyAdManager.EVENTS.READY, function (ev) { bodyAdManager.loadAdvertise(); }); bodyAdManager.init(); } build(); })();

�A�C�e�B���f�B�A����̂��m�点

�X�|���T�[����̂��m�点PR

���ڂ̃e�[�}

́uAIR[fBOv͖{ɕKvH
Microsoft  WindowsőO2026
4AI by IT - AIAAA
[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