用R画心形线

不知道有没有人发过，一个学姐写的，好浪漫！
想表白的~~~~
浪漫的代码：
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)-min(y))
grid.lines(a,b,gp=gpar(col=lcolor,lty="solid",lwd=3))
}

grid.newpage()
for(j in 1:30)
{
vp<-viewport(0.5,0.5,w=0.9,h=0.9,angle=15)
pushViewport(vp)
heart("hotpink")
}

grid.newpage()
ang<-15*c(1,rep(0,29))
for(j in 1:30)
{
vp<-viewport(0.5,0.5,w=0.9,h=0.9,angle=ang[j])
. From 1point 3acres bbspushViewport(vp)
heart("hotpink")
}
ang<--15*c(1,rep(0,29))
for(j in 1:30)
{
vp<-viewport(0.5,0.5,w=0.9,h=0.9,angle=ang[j])
pushViewport(vp)
heart("red")
}

grid.newpage()
ang<-15*c(1,rep(0,29))
for(j in 1:30)
{
vp<-viewport(0.5,0.5,w=0.9,h=0.9,angle=ang[j])
pushViewport(vp)
heart("hotpink")
}
ang<--30*c(1,rep(0,29))
vp<-viewport(3.3,-2.9,w=1.09,h=1.09,angle=ang[1],just="bottom")
pushViewport(vp)
heart("red")
for(j in 2:30)
{
vp<-viewport(0.5,0.5,w=1.09,h=1.09,angle=ang[j])
pushViewport(vp)
heart("red")
}

> grid.newpage()
> for(j in 1:30)
+ {
+ vp<-viewport(0.5,0.5,w=0.9,h=0.9,angle=15). 1point3acres.com/bbs
错误: 意外的符号 in:
"{
vp<-viewport(0.5,0.5,w=0.9,h=0.9,angle=15)."
> pushViewport(vp)
> heart("hotpink")
> }
.google  и错误: 意外的'}' in "}"
>
> grid.newpage().1point3acres缃�
错误: 意外的数值量 in "grid.newpage().1"
> ang<-15*c(1,rep(0,29))
> for(j in 1:30)
+ {. from: 1point3acres.com/bbs
错误: 意外的符号 in:
"for(j in 1:30)
{. from"
> vp<-viewport(0.5,0.5,w=0.9,h=0.9,angle=ang[j])
> pushViewport(vp)
> heart("hotpink")
> }
错误: 意外的'}' in "}"
> ang<--15*c(1,rep(0,29))
> for(j in 1:30)
+ {
+ vp<-viewport(0.5,0.5,w=0.9,h=0.9,angle=ang[j])
+ pushViewport(vp)
+ heart("red")
+ }

为什么我显示的是   错误在library(grid) : 在'lib.loc'里找不到常式庫 树   错误: 没有这个函数"grid.newpage"     错误: 没有这个函数"viewport"     误: 没有这个函数"pushViewport"   之类的错误啊。
  

Elainev19 发表于 2015-4-6 11:31
> grid.newpage()
> for(j in 1:30)
+ {

你复制粘贴代码的时候会有一些隐性的水印（例如：. 1point3acres.com/bbs  .1point3acres缃

哈，这是鲮鱼写的吧。

刘海20081 发表于 2012-12-22 10:44
为什么我显示的是   错误在library(grid) : 在'lib.loc'里找不到常式庫 树   错误: 没有这个函数"grid.newp ...

install.packages...

什么意思啊。

刘海20081 发表于 2012-12-22 23:44
为什么我显示的是   错误在library(grid) : 在'lib.loc'里找不到常式庫 树   错误: 没有这个函数"grid.newp ...

去下载grid包...

wwtpcsuper 发表于 2012-12-22 23:50
install.packages...

版主，我能在这问你R的问题吗...遇到一个麻烦..

刘海20081 发表于 2012-12-22 10:58
什么意思啊。

type in install.packages("grid")

还真漂亮。打算骗我女友是我写的~哈哈开玩笑

好！将来就用这个了！！