R语言：多个因变量时，如何在plot函数中画多条曲线（plot,points,lines,legend函数）...

最近阅读一篇文献《Regional and individual variations in the function of the human eccrine sweat gland》，想看看里面几个变量之间的关系是怎么样，因此把文献里面的数据提取出来，

在R里面输入数据：

sample<-seq(1,14,by=1)
forehead<-c(249,189,128,111,184,233,313,120,151,196,135,157,145,218)
forearm<-c(176,28,136,87,145,109,151,63,101,95,121,98,97,102)
back<-c(95,51,55,51,58,77,121,37,39,49,66,58,49,85)
sweatgland<-data.frame(sample,forehead,forearm,back);sweatgland

数据如下图所示：

一共有14个样本，其中forehead，forearm，back为对应位置的数量

先画出每个样本的forehead位置的sweat gland 数量

plot(forehead~sample,pch=15,col="DarkTurquoise",yli