| Top Page | プログラミング | R 自動化 目次 | 6章へ |

d <- read.table('len_width.txt', header = TRUE) 
d.sp1 <- d[d$sp == 'Sp1', ]
d.sp2 <- d[d$sp == 'Sp2', ]

plot(d.sp1$len, d.sp1$width, pch = 16, col = 'black', xlim = c(0, 80),
ylim = c(0, 30), xlab = 'Length', ylab = 'Width')

par(new = T)

plot(d.sp2$len, d.sp2$width, pch = 16, col = 'red', xlim = c(0, 80),
ylim = c(0, 30), xlab = '', ylab = '')