Generate your own Arrow & Heart
****************************
dat <- 2="" by="0.1)" data.frame="" p="" pi="" t="seq(0,">xhrt <- 16="" function="" p="" sin="" t="">yhrt <- 13="" cos="" function="" p="" t="">dat$y=yhrt(dat$t)
dat$x=xhrt(dat$t)
with(dat, plot(x,y, col=’red’, main=”Happy Wala V-Day in Advance”, lwd=5,type=”l”))
dat2 <- 9="" by="0.1))</p" data.frame="" u="seq(-12,">dat3 <- 9="" by="0.1))</p" data.frame="" v="seq(6,">dat4 <- 9="" by="0.1))</p" data.frame="" w="seq(6,">xaxis <- function="" p="" u="">yaxis <- function="" p="" u="">xaxis2 <- function="" p="" v="">yaxis2 <- 2="" function="" p="" v-9="" v="">xaxis3 <- function="" p="" w="">yaxis3 <- 0.5="" function="" p="" w="">
dat2$y=yaxis(dat2$u)
dat2$x=xaxis(dat2$u)
dat3$y=yaxis2(dat3$v)
dat3$x=xaxis2(dat3$v)
dat4$y=yaxis3(dat4$w)
dat4$x=xaxis3(dat4$w)
lines(dat2,type=”l”, col=”green”, lwd = 3)
lines(dat3,type=”l”, col=”green”, lwd = 3)
lines(dat4,type=”l”, col=”green”, lwd = 3)
