sample<-seq(1,14,by=1)
forehead<-c(249,189,128,111,184,233,313,120,151,196,135,157,145,218)
plot(forehead~sample,pch=15,col="DarkTurquoise",cex.axis=1.5,cex.lab=1.5,cex.main=1.5,ylim=c(0,400),ylab="Number of active sweat glands per cm2",main="Number of active sweat glands per cm2 in forehead, forearm and back") #pch表示散点用什么形状表示，col表示颜色，ylim表示Y轴范围，ylab表示Y轴标题，main表示图片标题,cex.axis表示修改坐标轴刻度字体大小，cex.lab表示修改坐标轴名称字体大小，cex.main表示修改标题字体大小
lines(forehead,col="DarkTurquoise",lty=1)