和张新成心动七夕 🍊张新成0824生日快乐 今天来点不一样的 用外行最容易上手的R（应该吧？）给 张新成 一份可以自己复刻的七夕礼物

greyScale <- colorRampPalette(c("#800020","orange")) plotHeart <- function(r, col){ t <- seq(0,2*pi,length.out=100) x = r*sin(t)^3 y = (13*r/16)*cos(t)-5*r/16*cos(2*t)-2*r/16*cos(3*t)-r/16*cos(4*t) polygon(x,y,col=col,border=NA) } plot.new() plot.window(xlim=c(-23,28),ylim=c(-20,13)) mapply(plotHeart,seq(16,0,length.out=100),greyScale(100)) text(-20,0,"I",col="#800020",cex=12) text(23,0,"U",col="orange",cex=12) text(0, -19, "Happy Chinese Valentine's Day, Steven!", cex=2.8,family="Apple Chancery") 专栏 · 给🍊画画