Статистика и 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

❤31👍4😁2🐳1

www.tgoop.com/stats_for_science/59

2.6K viewsedited  Feb 14, 2023 at 17:45

Мастер-класс: валентинки в 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 = '❤️')

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