| Top Page | �v���O���~���O | R ������ �ڎ� | ���� | �O�� | ���� |
plot�ŎU�z�}���ꖇ�������Ƃ������x������C �g����}����郌�x���ւƐi�ނɂ�
���Ƃ��|�C���g�ɂȂ�܂��D
���̃y�[�W�ł́C�܂��̓p�����[�^�̐ݒ�ɂ��Đ������܂��D �Ƃ��ɁC�����̃T�C�Y��V���{���̃T�C�Y�����R�ɐ��䂷����@��������܂��D
�����āC�������������x���Ăяo������C���������ƒᐅ������ �g�ݍ��킹���肵�ďd�˕`������Ƃ��̒��ӓ_��������܂��D ���̏ꍇ�́C���W�n�̐ݒ�̗������d�v�ɂȂ�܂��D �����𗝉�����C�v���O�����ō�}���邱�Ƃ����������łȂ��Ȃ�ł��傤�D
�Ȃ��C�O���t�`���̂��߂̂��܂��܂ȃ��U��ԗ��I�ɏЉ�邱�Ƃ͂��܂���D ���p�I�Ȍ��h���́C�����ӂ��̃O���t��`�����߂̊�b�Ɍ����ďЉ�܂��D �����ƋÂ������Ƃ���肽���Ȃ�����C�����Œ��ׂĂ݂Ă��������D
�Ȃ��C 12���E 13�� �ł́C�_����w��\�ȂǂɎg������x�̃O���t��`�����߂� �p�����[�^�ݒ���܂Ƃ߂Ă���܂��D
�O���t�̕`�����𐧌䂷��p�����[�^�́C�������������ĂR�ʂ�̕��@�Őݒ�ł��܂��D
�̂R�ł��D�����āC��₱�������Ƃ�
�Ƃ������Ƃ�����܂��D ���ׂē��ɓ����̂͂����ւ�Ȃ̂ŁC ��^�I�Ȃ�肩���̂��ЂƂ��߂Ă��܂��Ɗy�ł��傤�D ���Ƃ�����Ȏ菇�ł��D
��}�f�o�C�X�̃f�o�C�X�h���C�o���N�����鎞�_�ŁC�}�̃T�C�Y������܂��D width ��height �Ƃ��������ɂ��ꂼ�ꕝ�ƍ����̃T�C�Y��^���܂��D �Ȃɂ��w�肵�Ȃ���f�t�H���g�̑傫���ɂȂ�܂��D �����I�Ƀf�o�C�X�h���C�o���N�������� plot ���Ȃǂ��ĂԂƁC �`���ʂ̃h���C�o���f�t�H���g�̃T�C�Y�ŋN�����܂��D
png, jpeg, bmp �ȂǁC�r�b�g�}�b�v�摜�̏ꍇ�̓s�N�Z���P�ʁC pdf, postscript, windows(�`����), win.metafile �Ȃǂ̃x�N�g���摜�̏ꍇ�͒����i�C���`�P�ʁj�Ŏw�肵�܂� �i�r�b�g�}�b�v�摜�ƃx�N�g���摜�ɂ��Ă� �ʂ̕������Q�Ɓj�D
���͉�ʂ� par() �Ɠ��͂���ƁC���܂��܂ȃp�����[�^�̖��O�ƌ��݂̒l���\������܂��D ���ꂼ��̈Ӗ��� help(par)�Œ��ׂ邱�Ƃ��ł��܂��D
�c�Ƃ����Ă��C��������̃p�����[�^�������ăN���N�����܂����C �Ƃ肠�����C�ЂƂo����Ƃ悢�̂� ps �ł��D ����̓t�H���g�̑傫��(point size) ���w�肷��p�����[�^�ł��D R �̃f�t�H���g�̐ݒ�i�ݒ�ύX����O�̏�ԁj�́C�_���������Ȃ菬���߂ł��D ps �̃f�t�H���g�̒l�� 12 �ł����C�����Ƒ傫�Ȓl�ɐݒ肷��C �������傫���Č��₷���}�ɂȂ�܂��D
par(ps = 18) plot(d$len, d$len)
�Ƃ���C�f�t�H���g������╶�����傫���}����ʂɕ\������܂����C
png('len_width.png', width = 450, height = 400) par(ps = 18) plot(d$len, d$width) dev.off()
�Ƃ���C450 x 400 �s�N�Z���̉摜�t�@�C�� len_width.png ������C �����ɕ������傫�߂̐}���������܂��͂��ł��D
�Ȃ��C���ׂ������̑傫���𐧌䂷����@�� 12���Ő������Ă��܂��D �_����w��\�Ɏg���悤�Ȑ}��`���ɂ́C��������Q�Ƃ��Ă��������D
���̂ق��C�摜�S�̂̂Ȃ��ł̃O���t�̑傫����ʒu�Ɋւ�����̂� �ݒ肷��K�v���łĂ��邩������܂���D����ɂ��ẮC���������Ƃ� �u�R�̗̈�v�̐߂����Ă��������D
�܂��C�v���b�g�̃^�C�v�i�����_���Ȃǁj�C�_�̃V���{���̎�ނȂǂ� par() �Őݒ�ł��܂����C�����͕`����ł̐ݒ�ɔC���邱�Ƃɂ��܂��傤�D
�S�p�����[�^�ɂǂ̂悤�Ȓl���ݒ肳��Ă��邩��m��ɂ́C �����Ȃ��� par() �����s���܂��D�܂��C ����̃p�����[�^�̒l��m��ɂ́C���Ƃ��� par('ps') �̂悤�Ƀp�����[�^�̖��O����Ƃ��āi���p���ň͂�Łj�����ɗ^���܂��D��}���ł́C�_�̐F��T�C�Y�C���̐F�C�p�^�[���C�����C���̂ق� �O���t�̎�ނɂ��܂����C���낢��Ȑݒ肪�ł��܂��D ���̂Ȃ��ŁC���ɂ悭�g�������Ȃ��̂��������Љ�܂��D
�����ƕ��̃f�[�^����ŖO�����̂ŁC������ŋv���Ԃ�� �V�����f�[�^���g�����Ƃɂ��܂��D temperature.txt�Ƃ����t�@�C���ŁC ���e�͂���Ȍ`���ł��D
day Site01 Site02 Site03 1 -10.5 -0.7 9.9 2 -8.7 0.9 9.6 3 -6.5 0.2 9.8 .... 363 -8.0 -1.0 9.7 364 -7.3 -1.1 10.0 365 -13.0 0.5 9.8
�R�P���ł́C��N�Ԗ����̕��ϋC���̃f�[�^�C�Ƃ����z��ł��i���z�I�Ȃ��̂ł��j�D ������Cread.table ���g���ăf�[�^�t���[�� t �ɓǂݍ��݂܂��D
t <- read.table('temperature.txt', header = TRUE)
���̂��ƁCt$day �� t$Site01 �̊W���O���t�ɂ��Ă݂܂��傤�D�ӂ��̃x�N�g���� plot �ɓn���C���ꂼ��������C�c���ɂƂ��ăO���t��`���Ă����̂ł����D
plot(t$day, t$Site01)
����ŃO���t���`����͂��ł��D
�i���j���̗�ł́Ct �Ƃ������O�̃I�u�W�F�N�g������Ă��܂��DR �ōŏ�����p�ӂ���Ă��� ���ɂ� t �Ƃ������O�̂��̂�����܂����C�Փ˂��Ă����͂Ȃ��悤�ł��Dt �Ȃ� ���[�U��������I�u�W�F�N�g���Ă�C t(2) �Ƃ���Ί����Ă�܂��D
�_�������Ƒ傫������ɂ́C cex �Ƃ����p�����[�^���g���܂��D�f�t�H���g�̐ݒ�̉��{�ɂ��邩���w�肷����̂ŁC 1 �Ȃ�P�{�C���Ȃ킿�f�t�H���g�̂܂܁C1.5 �Ȃ�T�������ɂȂ�܂��D
plot(t$day, t$Site01, cex = 1.5)
�_�̎�ނ�ς���ɂ́Cpch �Ƃ����p�����[�^���g���܂��D���Ԃ�Cpoint character ���痈�Ă��閼�O�ł��傤�D ����ɂP����25�̐�����^����ƁC���ꂼ��Ⴄ�V���{�����`����܂��D 1�Ԃ���25�Ԃ܂ŁC������E�֕��ׂĂ݂܂����D
�_�ɐF������ɂ́Ccol �������g���܂��D��colors() �����s����ƁC �p�ӂ���Ă���F���̈ꗗ���\������܂��D���̒�����K���ɑI��Ŏ����Ă݂Ă��������D ����Ȋ����ł��D
plot(t$day, t$Site01, col = 'blue')
RGB �̒l�Ŏw�肷�邱�Ƃ��ł��܂��D �w��̂������́Ccol = '#RRGGBB' �ł� �i�ȂႻ���C�Ǝv���������́C�C�ɂ����������Ă��������j�D
�_�ł͂Ȃ��Đ��ɂ������Ƃ��C�_����Ō��т����Ƃ��������ꍇ�C type �Ƃ����p�����[�^���g���܂��DR-Tips �� plot() �̌`���w�������Ă݂Ă��������D
'l' �� 'o' �̂悤�ɐ���`���O���t�̏ꍇ�C lwd �Ƃ����p�����[�^(���Ԃ� line width �̂��Ƃł��傤�j ���g���Đ��̑�����ς��邱�Ƃ��ł��܂��D 1 ���W���ŁC������傫���l�ɂ���Α����Ȃ�܂��D
plot(t$day, t$Site01, type = 'l', lwd = 2, col = 'red')
��ɋ������p�����[�^�̒��ɂ� par()�Ŏw��ł�����̂���������܂��D �����C���̌��ʂ� par �Ŏw�肵���ꍇ�ƍ�}���Ŏw�肵���ꍇ�ƂŔ����ɁC ���邢�͂͂�����ƈقȂ���̂������Ă�₱�����Ȃ��Ă��܂��D
cex�ȂǁC���̍ł�����̂ł��D ps �ƁCpar�Őݒ肵�� cex �ƁC��}���Ŏw�肵�� cex �Ƃ����ݍ�p���܂��D �����������̂��ǂނ̂���₱�����̂ŏȗ��D �T���S�����邩���͎������Ă������߂Ă��������D
��{�I�ɂ� ps �ƃO���t�̑傫���֘A�ȊO�̃p�����[�^�͍�}���Ŏw�肷�� ���Ƃɂ��Ă��܂��̂�������₷���ł��傤�D
�����Clwd �� par �Őݒ肷��K�v�����邩������܂���D par(lwd = 3) �Ȃǂ̂悤�ɁCpar �� lwd �ɑ傫�Ȓl��ݒ肷��ƁC �O���t�̎��̐����C�v���b�g�̐����C���ׂđ����Ȃ�܂� �i��}���ł͎����͂ł��Ȃ��j�D ��}���ł���� plot(..., lwd = 1) �ȂǂƂ���C���͑����܂܂ŁC �O���t���̐��͕W���̑����ŕ`����܂��D
���łɍ�}�f�o�C�X�̃h���C�o���N�����Ă���Ƃ��C����ɑ��̍�}�f�o�C�X�� �h���C�o���N�����邱�Ƃ��ł��܂��D����ǂ������̃h���C�o���N�����Ă���Ƃ��ł��C ���鎞�_�ŏ����݂��ł���̂͂ЂƂ����ł��D���̃f�o�C�X���A�N�e�B�u�ȃf�o�C�X �ƌĂт܂��D��{�I�ɁC��ԍŌ�ɋN���������̂��A�N�e�B�u�ȃf�o�C�X�ł��D �����āCdev.off() ����Ό��݃A�N�e�B�u�ȃf�o�C�X�����C���̂ЂƂ܂��� �N�������f�o�C�X���A�N�e�B�u�ɂȂ�܂��D
par()���g���Đݒ肵���p�����[�^�́C���̂Ƃ��A�N�e�B�u�ȍ�}�f�o�C�X�ɑ��Ă̂ݗL���ł��D �J���Ă��邯�ǃA�N�e�B�u�ł͂Ȃ��f�o�C�X�ɂ͉e�����܂���D ���̗�����s���Ċm���߂Ă݂Ă��������D �g���Ă���f�[�^�́C����܂ʼn��x���o�Ă��Ă��Ȃ��݂́C'len_width.txt' �̃t�@�C���� �f�[�^�t���[�� d �ɓǂݍ����̂ł��D
windows() # �`���ʂ�p�ӁD par(ps = 18) # ������傫���D plot(d$len, d$width) # �����傫���O���t���`���ʂɕ`�����D png('len_width.png') # �摜�t�@�C���̃f�o�C�X�h���C�o���N���D plot(d$len, d$width) # �t�@�C���ɕ`�����O���t�̎��͑傫���Ȃ��D dev.off() # �摜�t�@�C�������D plot(d$len, d$width) # �ӂ����ю����傫���O���t���`���ʂɕ`�����D
�܂��C�A�N�e�B�u�ȃf�o�C�X������ƁC�A�N�e�B�u�ł���Ƃ��̐ݒ�� ���ׂĖ����ƂȂ�܂��D ������ނ̃f�o�C�X�̃h���C�o���ēx�N�����Ă��C�f�t�H���g�̏����l�ɖ߂��Ă��܂��D
���܂��܂ȕ`��v���O�����̗���݂�ƁC �`���Ƃ̂܂��Ɍ��݂̃O���t�B�b�N�p�����[�^���ꎞ�I�ɕϐ��ɂ��܂��Ă��� ���Ƃ�����܂��D���낢��ݒ��ς��č�Ƃ������ƁC���̈ꎞ�Ҕ����Ă��� �p�����[�^�ݒ�ɂ��ǂ����߂ł��D
����́C�`���ʂ��J�����܂܂ł��낢��ȃO���t��`���Ă����ꍇ�ɂ� �Ӗ������邱�Ƃł��D����ǂ��C�摜�t�@�C�����쐻����ꍇ�ɂ͋C�ɂ���K�v�� ����܂���D �t�@�C���̃h���C�o���N�����Ă���ݒ肵���p�����[�^�́C���̎��_�ŃA�N�e�B�u�łȂ� ��}�f�o�C�X�̃p�����[�^�ɂ͂܂������e�����܂��C�t�@�C���� dev.off �ŕ���i�摜�t�@�C���̃h���C�o���I������j�C���̃t�@�C���p�̐ݒ�� ���ׂď����Ă��܂�����ł��D
�G��'��'�̑傫���Ɋւ���ݒ�̓f�o�C�X�N�����ɁC���̎��̂Ȃ��ł̐}�̈ʒu��傫�� �Ɋւ���ݒ�� par () �ł����Ȃ��܂��D �ꖇ�̎��ɕ����̃O���t����ׂď�������C���������Ȃǂ��������ނ��߂ɗ]���� �L���Ƃ����肷�邽�߂ɕK�v�ƂȂ�ݒ�ł��D
���킵�����Ƃ� help(par) �ŁC�ǂ�Ȑݒ肪�ł��邩���ׂĂ݂Ă��������C �Ƃ��ɊW����p�����[�^��fig, fin, mai, mar, pin, plt�@�Ȃǂł��c �Ƃ��������Ă��C�ŏ��͂悭�킩��܂���D �����̃p�����[�^�̈Ӗ��𗝉��̂��߂ɁC�R�́u�̈�v�̊W��m���� �������Ƃ��K�v�ł��D�f�o�C�X�̈�C��}�̈�C�v���b�g�̈�ł��D �����̊W��}������ƁC���̂悤�ɂȂ�܂��D
���t�Ő�������ƈȉ��̂悤�ɂȂ�܂��D
���G��`���̈�́C
�����ꂼ��̃T�C�Y��ʒu�̐ݒ�͈ȉ��̃p�����[�^�ōs���D
���ꂾ������ƁC�f�o�C�X�̈�ƍ�}�̈悪�ʂɗp�ӂ���Ă��闝�R��������܂���D ����́C�ꖇ�� '��' �ɕ����̃O���t����ׂĕ`���Ƃ��ɈӖ��������܂��D �͂��߂Ƀf�o�C�X�̈�̍���������}�̈�ɂ��ăO���t��`���C���ɉE������ ��}�̈�ɂ���C���E�ɃO���t�����}���o���オ��܂��D
�]���̃T�C�Y�����߂� mar �� mai �́C�O�҂����x���Ȃǂŏ������ޕ����̍s���ŁC ��҂��C���`�Ŏw�肷�邽�߂̃p�����[�^�ł��D mar �̏ꍇ�C��s�̍������ǂꂾ�������W���܂��D����� mex �Ƃ����p�����[�^�� �ς����܂��D�f�B�t�H���g�ł� mex = 1 �ł����C���Ƃ��� mex = 1.5 �Ƃ���ƁC ��s�̍����� 1.5 �{�Ɋ��Z���������ŁCmar �Ŏw�肳���s�����̗]�����m�ۂ��܂��̂ŁC ���ʂƂ��ė]�����L���C�v���b�g�̈悪�����Ȃ�܂��D
���̗��K�ŁCmex �̌��ʂ��m�F���܂��傤�D�g���f�[�^�́C �ӂ�����'len_width.txt' �̃t�@�C�����f�[�^�t���[�� d �ɓǂݍ����̂ł��D
| Top Page | �v���O���~���O | R ������ �ڎ� | ���� | �O�� | ���� |