Skip to content
Prev 1891 / 398506 Next

Program advice

John Logsdon <j.logsdon at lancaster.ac.uk> writes:
Hmm... Best I could think of till now was:

 dfr<-read.table("/tmp/data",header=T)
 evalq(plot(Year,Size,type='n'),dfr)
 invisible(lapply(split(dfr,dfr$Item), 
	function(d)evalq(lines(Year,Size,lty=Item),d)))