## Session 2 salary<-read.table("http://faculty.washington.edu/kenrice/sisg/salary.dat", header=TRUE) plot(year~salary, data=salary) plot(salary~rank, data=salary) plot(field~rank,data=salary) boxplot(salary~gender, data=salary) library(lattice) bwplot(salary~gender|rank, data=salary) bwplot(salary~gender|rank*field, data=salary) library(MASS) library(help=MASS) head(mammals) plot(brain~body, log="xy", data=mammals) with(mammals, identify(body,brain,labels=rownames(mammals))) locator(1) with(mammals,lines(lowess(body,brain))) plot(log(brain)~log(body), data=mammals) with(mammals,lines(lowess(log(body),log(brain))))