【R语言画生日蛋糕】

最新推荐文章于 2024-05-13 15:58:15 发布

VIP文章胸卡的R语言

最新推荐文章于 2024-05-13 15:58:15 发布

阅读量1.5k

点赞数 3

分类专栏： R语言文章标签： ggplot2 r语言

本文链接：https://blog.csdn.net/m0_46461702/article/details/121639477

版权

R语言画生日蛋糕

直接上代码！

rm(list = ls())

a100 <- seq(0, 100, by = 1)   
a50 <- seq(12, 88, length.out = 101)
a25 <- seq(25, 75, length.out = 101)

b0 <- rep(0, 101)
b40 <- rep(40, 101)
b70 <- rep(70, 101)
b100 <- rep(100, 101)

pi1 <- seq(0, 31.8*pi, length.out = 101)
pi2 <- seq(4*pi, 27.9*pi, length.out = 101)
pi3 <- seq(8*pi, 23.8*pi, length.out = 101)

x1 <- sin(pi1) + 30
y1 <- sin(pi2) + 60
z1 <- sin(pi3) + 90

df <- data.frame(a100, a50, a25, b0, b40, b70, b100, 
                 pi1, pi2, pi3, x1, y1, z1)

library(ggplot2)

cake <- ggplot(data = df) +
  geom_point(aes(x = pi1, y = x1)) +
  geom_point(aes(x = pi2, y = y1)) +
  geom_point(aes(x = pi3, y = z1)) +
  geom_line(aes(x = a100, y = b0), size = 1.5) +
  geom_line(aes(x = a100, y = b40), size = 1.5) +