Valentīndienas sirds

Ja apnīk nodarboties ar nopietnu datu analīzi, tad programmā R var mēģināt arī darīt kādas jocīgas lietas. Saistībā ar rītdienas Valentīndienu, nolēmu pameklēt iespēju, kā tad programmā R izveidot sirds formas attēlu.

Izrādās, ka risinājumi ir vairāki, no kuriem viens parādīts zemāk. Uzreiz jāsaka, ka tas nav manis izdomāts, bet gan ņemts no mājaslapas stackoverflow.com.

Lai veidotu grafiku, galvenais ir nodefinēt x un y koordinātas, ko panāk ar funcijām, kas ietver sevī sin un cos. Pēc tam pati līnija tiek veidota ar funkciju plot(), bet aizpildījumu panāk ar funkciju polygon().

dat<- data.frame(t=seq(0, 2*pi, by=0.1) )
xhrt <- function(t) 16*sin(t)^3
yhrt <- function(t) 13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t)
dat$y=yhrt(dat$t)
dat$x=xhrt(dat$t)
with(dat, plot(x,y, type="l",axes=F,ann=F))
with(dat, polygon(x,y, col="red"))