Multiple заговора группы одной функции

Question

У меня есть следующий данные:

Animal MY Age 
1 17.03672067 1 
1 17.00833641 2 
1 16.97995215 3 
1 16.95156788 4 
1 16.92318362 5 
1 16.88157748 6 
2 16.83997133 2 
2 16.79836519 3 
2 16.75675905 4 
2 16.7151529 5 
2 16.67354676 6 
2 16.63194062 7 
3 16.59033447 1 
3 16.54872833 2 
3 16.50712219 3 
3 16.46551604 4 
3 16.4239099 5 
3 16.38230376 6 
4 16.34069761 1 
4 16.29909147 2 
4 16.25748533 3 
4 16.21587918 4 
4 16.17427304 5 
4 16.1326669 6 

Я хочу, чтобы построить график рассеяния между моим против возраста для каждого животного. Я использую эту функцию

plot(memo$MY[memo$Animal=="1223100747"]~memo$Age[memo$Animal=="1223100747"]). 

Если теперь я хочу, чтобы добавить тот же сюжет (MY против Возраст) еще животных, мне просто нужно использовать функцию: lines. Однако, поскольку у меня около 200 животных, я не хочу делать это вручную 100 раз. Мои вопросы в том, что: Как я могу построить эти различные животные одной функцией ?, вместо использования lines, lines .... lines)

С уважением, Фыонг

Answer 1

Вы можете использовать by, например:

by(memo,memo$Animal,FUN=function(x) plot(x$MY~x$Age)) 

Answer 2

Вы можете использовать петлю или матрицу, если хотите использовать базу R, но я советую вам использовать пакет ggplot2.

DF <- read.table(text="Animal MY Age 
1 17.03672067 1 
1 17.00833641 2 
1 16.97995215 3 
1 16.95156788 4 
1 16.92318362 5 
1 16.88157748 6 
2 16.83997133 2 
2 16.79836519 3 
2 16.75675905 4 
2 16.7151529 5 
2 16.67354676 6 
2 16.63194062 7 
3 16.59033447 1 
3 16.54872833 2 
3 16.50712219 3 
3 16.46551604 4 
3 16.4239099 5 
3 16.38230376 6 
4 16.34069761 1 
4 16.29909147 2 
4 16.25748533 3 
4 16.21587918 4 
4 16.17427304 5 
4 16.1326669 6",header=TRUE) 

library(ggplot2) 
DF$Animal <- factor(DF$Animal) 

p1 <- ggplot(DF,aes(x=MY,y=Age,colour=Animal)) + geom_line() 
print(p1)