【独家发布】500个论坛币等你拿

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

上一帖1000论坛币的图还没有人领啊。

再开一贴，这次上一张简单些的图。
提示：这张图是ggplot2画的geom_point()，1800个数据点。

挑战一下吧，用R代码画出相同模式的图，数据点须大于2000个，点的颜色须中心区域绿色外围黄色梯度渐变。第一位发图上来的同学，即可获得500论坛币。发图须标好500币的价格，以便楼主购买。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：论坛币 ggplot2 1000论坛币 500论坛币 Point

就把论坛币留给有兴趣的朋友吧，毕竟这个重点也不在画图，然后关于颜色的问题，楼主可能最好去检查一下，

1. fermat <- function(pts, g = pi*(3-sqrt(5))){
   
2.   i <- 1:pts
   
3.   x <- sqrt(i) * cos(i * g)
   
4.   y <- sqrt(i) * sin(i * g)
   
5.   return(data.frame(x, y, d = sqrt(x^2+y^2)))
   
6. }
   
7. 
   
8. library(ggplot2)
   
9. ggplot(data = fermat(2000), aes(x, y, colour = d)) + geom_point() +  theme_void() +
   
10.   theme(legend.position = 'none', plot.background =  element_rect(fill = "darkblue")) +
    
11.   scale_color_gradient(low = "green", high = "yellow")

复制代码

另，比较好奇之前那个傅里叶级数具体的表达式应该怎么写。

owenqi 发表于 2021-6-4 01:50
就把论坛币留给有兴趣的朋友吧，毕竟这个重点也不在画图，然后关于颜色的问题，楼主可能最好去检查一下，另 ...

对啊，重点不是画图。
我们用的曲线方程有些差别。我用的是极坐标方程，需要把极坐标转换成直角坐标，比你的代码麻烦。但殊途同归，画出的曲线是一样的。
请随便上个图，标个价吧。这个贴就结了。

傅里叶级数模拟矩形脉冲波，只不过公式简化了一些。线出来了，曲面自然也不难。我也是学习过程中，看到某位大侠写的“掐死”教程中的图，才想着试试看R能不能实现其中的图示

llb_321 发表于 2021-6-4 10:28
对啊，重点不是画图。
我们用的曲线方程有些差别。我用的是极坐标方程，需要把极坐标转 ...

那我就试试看吧，我以前没用过这个收费功能，并不了解。
另外给有兴趣的朋友了解一下，这个东西叫做费马螺线，相关公式可以在维基百科找到

https://en.wikipedia.org/wiki/Fermat%27s_spiral

https://flyingpudding.com/projects/florets/applet/

https://www.geogebra.org/m/TXkHHpmA

owenqi 发表于 2021-6-4 10:59
那我就试试看吧，我以前没用过这个收费功能，并不了解。
另外给有兴趣的朋友了解一下，这个东西叫做费马 ...

只有第一次购买才花论坛币，明天再试试看能不能买第二次

owenqi 发表于 2021-6-4 10:59
那我就试试看吧，我以前没用过这个收费功能，并不了解。
另外给有兴趣的朋友了解一下，这个东西叫做费马 ...

今天又试了一次，只有第一次购买才支付论坛币
欠你400