Question

我要依次从data开始绘制千行（每行由15个值组成）（第一行是从元素NO.1到NO.15;第二行是从NO.16到NO .30; ...）与ggplot。这是一个可重现的代码：

data<-data.frame(y=rnorm(95040))
p<-ggplot(data=data.frame(y=data[1:15,]),aes(x=c(1:15),y=y))+geom_line(alpha=I(1/7),size=1)
for(i in 1:(nrow(data)/15-1)){
  p<-p+geom_line(data=data.frame(y=data[(i*15+1):(i*15+15),]),aes(x=c(1:15),y=y),alpha=I(1/7),size=1)
}

当循环在i=621运行时，它会报告错误：

Error: evaluation nested too deeply: infinite recursion / options(expressions=)?
Error during wrapup: evaluation nested too deeply: infinite recursion / options(expressions=)?

为什么会发生这种情况以及如何解决这个情节问题（可能还有另一种情节方法）？

Answer 1

我认为你需要这样的东西......

data<-data.frame(y=rnorm(95040))
data$x <- 1:15
data$group <- (1:nrow(data)) %/% 15
p<-ggplot(data=data,aes(x=x,y=y,group=group))+geom_line(alpha=I(1/7),size=1)

用ggplot绘制数千行

1 个答案: