У меня есть группа людей, с разделенным пробелами текстовым файлом для каждого человека.В этих файлах правое значение указывает рост этого человека в cm
, а левое значение указывает дату в формате %d/%m/%Y
:
09/05/1992 0
17/03/1993 50
02/08/1994 65.5
03/12/1995 72
Высота 0
обозначает дату рождениячеловек.
Этот R скрипт рисует график высот Джона и Эми и выводит его в PDF:
pdf("Heights.pdf")
john <- read.table("John",sep="")
names(john) <- c("time","height")
jt <- strptime(john$time, "%d/%m/%Y")
jh <- john$height
amy <- read.table("Amy",sep="")
names(amy) <- c("time","height")
at <- strptime(amy$time, "%d/%m/%Y")
ah <- amy$height
plot(jt,jh,type="b",pch=20,col="red",
xlab="Date",ylab="Height",
ylim=c(min(jh,ah),max(jh,ah)))
points(at,ah,type="b",pch=20,col="green")
title("Heights")
Как мне расширить этот скриптto:
- График всех файлов в текущем каталоге, заканчивающийся
.heights
? - Сделать график относительно даты рождения каждого человека?