用R画心形线

警告信息：
package ‘grid’ is not available (as a binary package for R version 3.1.3)

不懂。。

> 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")
> }
错误: 意外的'}' 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")
+ }

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

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