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

ПоздRавление от подписчика
У админа канала вчера был день рождения! А еще завтра (а у кого-то уже сегодня) день знаний, поэтому мы поздравляем админа и вас таким тортиком, сделанным в R, а заодно ещё раз исследуем базовую графику!
Вы можете тоже сделать такой тортик для себя и друзей:

install.packages('DescTools')
library('DescTools')
candle = function(pos)
{
x=pos[1]
y=pos[2]
rect(x,y,x+.2,y+2,col="red")
polygon(c(x+.05,x-.1,x+.1,x+.3,x+.15,x+0.05), c(y+2,y+2.3,y+2.6,y+2.3,y+2,y+2),col="#EECF08")

}

plot(c(0,10), c(0,10),type="n", bty="n",xaxt="n",yaxt="n", main="Cake", xlab="",ylab="")
DrawEllipse(x = 5, y = 2,col="seagreen",radius.x=4.4,radius.y=1.7)
DrawEllipse(x = 5,y = 2,col="violet",radius.x=4,radius.y=1.4)
rect(1,2,9,5,col="violet",border="violet")
lines(c(1,1),c(2,5))
lines(c(9,9),c(2,5))
DrawEllipse(x = 5,y = 5,col="brown",radius.x=4,radius.y=1.4)

candle(c(2.5,4.5))
candle(c(3,5))
candle(c(4,4.5))
candle(c(5,5))
candle(c(6,4.5))
candle(c(7,5.2))

Источник кода: https://qiuyiwu.github.io/2019/01/29/Birthday/ (там можно увидеть, что некоторые функции в аре устаревают и приходится искать аналоги)

В комментариях получившийся торт)

Qiuyi's Blog

Make a Birthday Cake in R

Today is my friend’s BIG DAY! Happy Birthday!!! He is one of the four people who changed my life (yes four people have seminal impact in my life so far). I want to thank him for all the things he has

www.group-telegram.com/us/stats_for_science.com/75

3.5K viewsЕвгения, edited  Aug 31, 2023 at 16:35

ПоздRавление от подписчика
У админа канала вчера был день рождения! А еще завтра (а у кого-то уже сегодня) день знаний, поэтому мы поздравляем админа и вас таким тортиком, сделанным в R, а заодно ещё раз исследуем базовую графику!
Вы можете тоже сделать такой тортик для себя и друзей:

install.packages('DescTools')
library('DescTools')
candle = function(pos)
{
x=pos[1]
y=pos[2]
rect(x,y,x+.2,y+2,col="red")
polygon(c(x+.05,x-.1,x+.1,x+.3,x+.15,x+0.05), c(y+2,y+2.3,y+2.6,y+2.3,y+2,y+2),col="#EECF08")

}

plot(c(0,10), c(0,10),type="n", bty="n",xaxt="n",yaxt="n", main="Cake", xlab="",ylab="")
DrawEllipse(x = 5, y = 2,col="seagreen",radius.x=4.4,radius.y=1.7)
DrawEllipse(x = 5,y = 2,col="violet",radius.x=4,radius.y=1.4)
rect(1,2,9,5,col="violet",border="violet")
lines(c(1,1),c(2,5))
lines(c(9,9),c(2,5))
DrawEllipse(x = 5,y = 5,col="brown",radius.x=4,radius.y=1.4)

candle(c(2.5,4.5))
candle(c(3,5))
candle(c(4,4.5))
candle(c(5,5))
candle(c(6,4.5))
candle(c(7,5.2))

Источник кода: https://qiuyiwu.github.io/2019/01/29/Birthday/ (там можно увидеть, что некоторые функции в аре устаревают и приходится искать аналоги)

В комментариях получившийся торт)

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