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) + 90df <- 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) +geom_line(aes(x = a50, y = b70), size = 1.5) +geom_line(aes(x = a25, y = b100), size = 1.5) +annotate("segment", x = 0, xend = 0, y = 0, yend = 40, size = 1.5) +annotate("segment", x = 100, xend = 100, y = 0, yend = 40, size = 1.5) +annotate("segment", x = 12, xend = 12, y = 40, yend = 70, size = 1.5) +annotate("segment", x = 88, xend = 88, y = 40, yend = 70, size = 1.5) +annotate("segment", x = 25, xend = 25, y = 70, yend = 100, size = 1.5) +annotate("segment", x = 75, xend = 75, y = 70, yend = 100, size = 1.5) +#蜡烛annotate("segment", x = 45, xend = 45, y = 100, yend = 135, size = 1.5) +annotate("segment", x = 55, xend = 55, y = 100, yend = 135, size = 1.5) +annotate("segment", x = 45, xend = 55, y = 135, yend = 135, size = 1.5) +#三角annotate("segment", x = 45, xend = 50, y = 135, yend = 150, size = 1.5) +annotate("segment", x = 55, xend = 50, y = 135, yend = 150, size = 1.5) cake

图片

结果，图画完后，有些人非要说蜡烛像铅笔。
只得返工，继续修改。

然后

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) + 90df <- data.frame(a100, a50, a25, b0, b40, b70, b100, pi1, pi2, pi3, x1, y1, z1)#x,y轴第2象限
a2 <- seq(0.5*pi, pi, length.out = 25)
b2 <- seq(0.5*pi, pi, length.out = 25)#x,y轴第3象限
a3 <- seq(pi, 1.5*pi, length.out = 25)
b3 <- seq(pi, 1.5*pi, length.out = 25)#圆第2象限
x2 <- 5*sin(a2) + 50
y2 <- 5*cos(b2) + 140#圆第3象限
x3 <- 5*sin(a3) + 50
y3 <- 5*cos(b3) + 140df2 <- data.frame(x2, y2, x3, y3)library(ggplot2)cake <- ggplot() +geom_point(data = df, aes(x = pi1, y = x1)) +geom_point(data = df, aes(x = pi2, y = y1)) +geom_point(data = df, aes(x = pi3, y = z1)) +geom_line(data = df, aes(x = a100, y = b0), size = 1.5) +geom_line(data = df, aes(x = a100, y = b40), size = 1.5) +geom_line(data = df, aes(x = a50, y = b70), size = 1.5) +geom_line(data = df, aes(x = a25, y = b100), size = 1.5) +geom_line(data = df2, aes(x = x2, y = y2), size = 1.5) +geom_line(data = df2, aes(x = x3, y = y3), size = 1.5) +annotate("segment", x = 0, xend = 0, y = 0, yend = 40, size = 1.5) +annotate("segment", x = 100, xend = 100, y = 0, yend = 40, size = 1.5) +annotate("segment", x = 12, xend = 12, y = 40, yend = 70, size = 1.5) +annotate("segment", x = 88, xend = 88, y = 40, yend = 70, size = 1.5) +annotate("segment", x = 25, xend = 25, y = 70, yend = 100, size = 1.5) +annotate("segment", x = 75, xend = 75, y = 70, yend = 100, size = 1.5) +#蜡烛annotate("segment", x = 45, xend = 45, y = 100, yend = 135, size = 1.5) +annotate("segment", x = 55, xend = 55, y = 100, yend = 135, size = 1.5) +annotate("segment", x = 45, xend = 55, y = 135, yend = 135, size = 1.5) +#三角annotate("segment", x = 45, xend = 50, y = 140, yend = 155, size = 1.5) +annotate("segment", x = 55, xend = 50, y = 140, yend = 155, size = 1.5) cake

图片

修改完后，还可以吧。尽力了。嘤嘤嘤

以上就是今天要分享的内容，画了一个生日蛋糕简图。

复杂的不会：(，哈哈。

最后

祝胸卡生日快乐！！！

【R语言画生日蛋糕】相关推荐

利用R语言画简单时间序列图
R 语言无法自动将读取的数据转化为时间序列格式, 所以利用R语言画时间序列图的一个关键步骤就是将读取的数据转变为时间序列格式, 下面是一个简单的程序: # 读取数据, 首先将excel 格式的转化为 ...
R语言画个中国地图使用shp文件
R语言画个中国地图,使用shp文件前几天帮人用R语言画个一个河北省的地图,河北省各个市被填充上颜色,颜色的深浅和这个市的GDP有关系,效果如下: 然后加上各个城市的名字并加上指北针.再把背景的网格去 ...
R语言画森林图方法4
获取更多R语言知识,请关注公众号:医学和生信笔记医学和生信笔记,专注R语言在临床医学中的使用,R语言数据分析和可视化.主要分享R语言做医学统计学.meta分析.网络药理学.临床预测模型.机器学习.生 ...
R语言画基因突变结构图
R语言画基因突变结构图做遗传病的同志们经常头痛的一个事应该是怎么画突变示意图,以前都是PPT直接画,但是最近碰到一个问题,综述里涉及到数个基因的数百个突变位点,PPT画的画得累死,于是开始搜索怎么用 ...
用R语言画一朵玫瑰花
首先,需要安装并加载绘图包 "ggplot2". install.packages("ggplot2") library(ggplot2) 然后,使用函数 gg ...
用r语言画出y = ax^2 + bx + c,R语言中如何使用最小二乘法
这里只是介绍下R语言中如何使用最小二乘法解决一次函数的线性回归问题. 代码如下: > x > y > lsfit(x,y) 结果如下: $coefficients Intercept ...
R语言画词云图——建模常用软件
在数学建模--软件篇介绍了我常用的软件,借着今年的华为杯,想做个LOGO.然后就使用R语言做了词云图,不过最后由于队友做得比较好,就没采用.本文吧效果和代码贴出来记录一下. library(wordc ...
使用R语言画圆弧条形图
之前在微博上看到一个用弧形展示的百分比图,感觉很有创意,就想使用R来实现一样的功能,效果如下: 原图: http://photo.weibo.com/1787567623/wbphotos/large ...
R语言 : 画散点图
这个例子主要用 points 画散点图福彩双色球开奖数据可视化: http://www.gdfc.org.cn/datas/history/twocolorball/history_1.html q ...

【R语言画生日蛋糕】

R语言画生日蛋糕

图片

图片

最后

【R语言画生日蛋糕】相关推荐

最新文章

热门文章