Статистика и R в науке и аналитике

Мастер-класс: валентинки в R



Сегодня я нашла код, как сделать валентинку в R, чтобы порадовать любимого человека или друзей.

Код достаточно простой:

 r

library(ggplot2)

dat <- data.frame(t = seq(0, 2*pi, by = 0.01))

x <-  function(t) 16 * sin(t)^3

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

dat$y <- y(dat$t)

dat$x <- x(dat$t)



heart <- ggplot(dat, aes(x,y)) +

  geom_polygon(fill = "#f768a1", col = "firebrick", alpha = 0.9) +

  theme_void()+

  theme(panel.background = element_rect(fill = '#e7e1ef'))



heart + annotate("text", x = -12, y = 16, color = '#ae017e', label = "От кого: ")+

  annotate('text', x = -12, y = 13, color = '#ae017e', label = 'Кому: ') +

  annotate('text', x = -1, y = 0, color = '#49006a', label =  'Люблю тебя больше чем рисовать графики ❤️')+

  annotate('text', x=-5:5,y=15,colour="red", label = '❤️')

С помощью annotate можно добавлять любые дополнительные элементы, чтобы узнать координаты куда, советую временно закомментировать строчку theme_void.



#R #stat_fun