R语言学习

 set.seed(1234)
> 
> x<-sample(1:100,80,replace=FALSE)
> y<-2*x+20+rnorm(80,0,10)
>  plot(x,y,xlab="name of x",ylab="name of y",main="Scatter plot",xlim=c(1,80),ylim=c(0,200),pch=10,col="red",col.axis="green",col.lab="blue",col.main="#999000",fg="gray",bg="white")
> 

> t<-1:50
>  set.seed(1234)
> 
>  v<-rnorm(50,0,10)
>  plot(t,v,type="l")

 year<-2001:2010
> set.seed(1234)
> counts<-sample(100:500,10)
> lb<-paste(year,counts,sep=":")
> pie(counts,labels=lb)