【R语言画生日蛋糕】

胸卡的R语言

于 2021-11-30 21:28:37 发布

阅读量1.8k

点赞数 3

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

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

版权

本文介绍了如何使用R语言的ggplot2包来绘制生日蛋糕，通过代码展示绘制过程，并分享了修改和完善图形的经过，最终呈现出一个简洁的生日蛋糕图案。文章以祝胸卡生日快乐作结。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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)