一朵迟来的玫瑰

文章预览

七夕节当天在朋友圈看到了好几个朋友转发了使用R编程语言绘制一个动态交互式的玫瑰花，颜值还不错！ 代码来源于朋友圈多个公众号，已经没办法搞清楚原创是谁了，我就复制粘贴一下借花献佛给大家哦 # install.packages('plotly') library (plotly) x 0, 24 )/ 24 t 0, 575 ,by= 0.5 )/ 575 * 20 *pi+ 4 *pi grid x 25,byrow =  TRUE ) t 25,byrow =  TRUE ) p 2)*exp(-t/( 8 *pi)) change 15*t)/ 150 u 1-( 1 -( 3.6 *t) %% ( 2 *pi)/pi)^ 4 / 2 +change y 2*(x^ 2 -x)^ 2 *sin(p) r xx=r*cos(t) yy=r*sin(t) zz=u*(x*cos(p)-y*sin(p)) plot_ly(x=~xx,y=~yy,z=~zz,colors =  'Reds' ,opacity= 0.5 ) %>% add_surface()->plot add_trace(plot,x=rep( 0 ),y=rep( 0 ),z=seq(- 0.5 , 0 ,length= 4 ),           mode= 'lines' ,line=list(color= 'green' ,width= 8 ))            如下所示的交互式3D玫瑰花，所以可以任意拖曳成为不同的效果：   然后我让人工智能大模型帮我一句句的解释 ………………………………