Question

在plot( )中使用for( )时出错。
（我试图通过使用for（）重复来减少工作量

    > head(data.6times[3:7])  #data.6times has 40 columns
 cyear ccode scode country year
    26 1301998   130   ECU Ecuador 1998
    25 1301997   130   ECU Ecuador 1997
    27 1302000   130   ECU Ecuador 2000

    > country.n <- length(data.6times$country) / 6
    > for (i in 1:country.n){
    + aa <- 1+6(i-1)
    + bb <- 6+6(i-1)
    + plot.data <- data.6times[aa:bb,]
    + par(yaxt="n")
    + plot(plot.data$year,plot.data$cluster,ylim=c(0.8, 3.2))
    + text(plot.data$year, plot.data$cluster,labels=plot.data$country, cex=0.6, pos=1, col="blue")
    + text(plot.data$year, plot.data$cluster,labels=plot.data$transition, cex=0.6, pos=3, col="blue")
    + text(plot.data$year, plot.data$cluster,labels=plot.data$prior, cex=0.6, pos=2, col="blue")
    + text(plot.data$year, plot.data$cluster,labels=plot.data$post, cex=0.6, pos=4, col="blue")
    + par(yaxt="s")
    + axis(2, c(1,2,3), c("1","2","3"))
    + filename <- paste(c("/Users/Dropbox/Study/Dissertation/Result_fig/"),c("6times-"),i,c(".jpg"),sep="")
    + dev.copy(jpeg,file=filename,width=1200,height=800)
    + dev.off()
    + } 

    Error: attempt to apply non-function

如何避免此错误？非常感谢你。

Answer 1

错字/ thinko。 aa <- 1+6(i-1)应为aa <- 1+6*(i-1)（R不会将并列视为乘法），对于下一行也是如此。

plot（）in for（）时出错

1 个答案: