【R語言可視化】R語言畫愛心圖

數學系也能夠很浪漫~~web rm(list=ls()) library(grid) heart <- function(lcolor){ t=seq(0, 2*pi, by=0.1) x=16*sin(t)^3 y=13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t) a=(x-min(x))/(max(x)-min(x)) b=(y-min(y))/(max(y)-

>>阅读原文<<