啦啦啦一棵R语言圣诞树~

一棵R语言圣诞树

一个R语言圣诞树来应景，花了菜菜的我一整节禅宗与文学课哈哈哈~
后天就要考R语言了嘤嘤嘤QAQ

代码

ChrimasTree<-function(n,w,p1=16,p2=“☆”,p3=“★”){
x<-rep(c(0,1),times=n+1)+seq(0,2*n+1)*0.5
y<-rep(seq(n,0),each=2)
a<-length(x)-2
b<-length(y)
x1<-c(x[1:a],0)
y1<-y[2:b]
x2<–x1
y2<-y1[seq(length(y1):1)]
plot(c(x1,x2),c(y1,y2),ylim=c(-1,max(y)),type = “n”,xlab="",ylab="",xaxt=“n”,yaxt=“n”,main=“R Wish U Merry Chrismas”,sub = “by Jess”)
lines(x1,y1,col=“green”)
lines(x2,y2,col=“green”)
lines(c(-w,w),c(-1,-1),type=“h”,col=“brown”)
polygon(c(x1,x2[seq(a+1:1)]),c(y1,y2[seq(a+1:1)]),col = “green2”,lty = 3,density=80)
points(c(x1,x2)*0.8,c(y1,y2),pch=p1,col=“blue”,cex=2)
text(c(x1,x2),c(y1,y2),labels = p2,col = “red”,cex=2.5)
text(c(x1,x2)*0.3,c(y1,y2),labels = p3,col = “yellow”,cex=2)
#points(c(x1,x2)*0.3,c(y1,y2)+0.05,pch=p3,col=“yellow”,cex=2)
mtext(side=3,text=paste("& Happy New Year!!! ",Sys.Date()))
}

效果图

ChrimasTree(5,0.5)

ChrimasTree(3,0.5)

ChrimasTree(10,0.8)