HappyValentinesDay

R code สำหรับวันแห่งความรัก 🙂

t<-seq(-pi, pi,0.05)

colors<-rainbow(length(t))

x<-16*sin(t)^3

y<-13*cos(t)-5*cos(2*t)-2*cos(3*t)-1*cos(4*t)

p<-c(“H”, “a”, “p”,”p”,”y”,”V”,”a”,”l”,”e”,”n”,”t”,”i”,”n”,”e”,”s”,”D”,”a”,”y”)

plot(x,y, type=”p”,pch=p,col=colors,xlab=”X”,ylab=”Y”)