虹を描いてみた

ggplot2 という素晴らしいパッケージの存在を教えてもらったので、ggplotで虹を描いてみました。

綺麗

そのコードは以下の通り。 

x<-c(-250:250)
num<-numeric(length(x)*7)
y<-matrix(num,nrow=length(x),ncol=7)
 
for(i in 1:7){
y[,i]<--x^2-i*10000
}
c<-cbind(x,y)
data<-data.frame(c)
 
library(ggplot2)
g<-ggplot()
 
size=20
alpha=0.02
 
g<-g+geom_point(data=data,mapping=aes(x=x,y=data[,2]),alpha=alpha,size=size,col="red")
g<-g+geom_point(data=data,mapping=aes(x=x,y=data[,3]),alpha=alpha,size=size,col="orange")
g<-g+geom_point(data=data,mapping=aes(x=x,y=data[,4]),alpha=alpha,size=size,col="yellow")
g<-g+geom_point(data=data,mapping=aes(x=x,y=data[,5]),alpha=alpha,size=size,col="green")
g<-g+geom_point(data=data,mapping=aes(x=x,y=data[,6]),alpha=alpha,size=size,col="blue")
g<-g+geom_point(data=data,mapping=aes(x=x,y=data[,7]),alpha=alpha,size=size,col="black")
g<-g+geom_point(data=data,mapping=aes(x=x,y=data[,8]),alpha=alpha,size=size,col="purple")
 
g<-g+theme_classic(base_size=10)
 
print(g)

以上。