Membuat Plot Ucapan Valentine

Berikut diberikan contoh skrip untuk membuat plot mengucapkan selamat Valentine Day kepada seseorang. Pembuatan plot dimulai dengan memplot fungsi “heart” dan kemudian menambahkan text ucapan selamat valentine day di posisi tertentu pada gambar. Secara detail diberikan dengan source code berikut:

heart1 = function(name){
t = seq(0,60,len=100)
plot(c(-8,8),c(0,20),type=’n’,axes=FALSE,xlab=”,ylab=”)
x = -.01*(-t^2+40*t+1200)*sin(pi*t/180)
y = .01*(-t^2+40*t+1200)*cos(pi*t/180)
lines(x,y, lwd=4)
lines(-x,y, lwd=4)
text(0,7,”Happy Valentine’s Day”,col=’red’,cex=2.5)
text(0,5.5,name,col=’red’,cex=2.5)
}

Contoh output di berikan pada gambar berikut:

Tentunya fungsi ini masih bersifat basic dan dapat dikembangkan lebih lanjut misal ke bentuk love3D.