| Top Page | �v���O���~���O | R ������ �ڎ� | ���� | �O�� | ���� |

R �Ńv���O���~���O�F�f�[�^�̈ꊇ�����ƃO���t�`��

5. �O���t�̂��낢��Ȑݒ�Əd�˕`��

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

�p�����[�^�ݒ�̊�b�m��

�O���t�̕`�����𐧌䂷��p�����[�^�́C�������������ĂR�ʂ�̕��@�Őݒ�ł��܂��D

  1. ��}�f�o�C�X�̃h���C�o���N������Ƃ��Ɉ����Őݒ肷��
  2. �`��֐����ĂԂƂ��Ɉ����Őݒ肷��
  3. �O���t�B�b�N�X�p�����[�^��ݒ肷���p�̊֐� par ���g���Đݒ肷��

�̂R�‚ł��D�����āC��₱�������Ƃ�

�Ƃ������Ƃ�����܂��D ���ׂē��ɓ����̂͂����ւ�Ȃ̂ŁC ��^�I�Ȃ�肩���̂��ЂƂŒ��߂Ă��܂��Ɗy�ł��傤�D ���Ƃ��΂���Ȏ菇�ł��D

  1. ��}�f�o�C�X���N������Ƃ��ɁC�i�K�v�Ȃ�j�摜�T�C�Y���w�肷��D
  2. �֐� par ���g���āC��{�ƂȂ镶���̑傫����ݒ肷��D
  3. ��}�֐����ĂԂƂ��ɁC�V���{���̑傫�����̑����C�F�Ȃǂ�ݒ肷��D
�ȉ��ł́C�����̊e�X�e�b�v�����ɐ������܂��D

�p�����[�^�ݒ�̎菇

��}�f�o�C�X���N������Ƃ��̐ݒ�

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

�����K��

�֐� par �ɂ��ݒ�

���͉�ʂ� 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

�����K��

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

�����K��

par �ł̐ݒ�̗L���͈�

���łɍ�}�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


�R�‚̗̈�

�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

�̂R�‚�����q�ɂȂ��č\�������D��}�̈�́C�v���b�g�̈�ȊO�̕������]��(margin)�D �f�t�H���g�ł͍�}�̈�̓f�o�C�X�̈�S�̂ƈ�v���Ă���D

�����ꂼ��̃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

�����K��

| Top Page | �v���O���~���O | R ������ �ڎ� | ���� | �O�� | ���� |