如何使用嵌套的while循环保存for循环的输出

Question

对于数据框中的每个纬度值，我正在计算一年中每一天（总共 365 天）的日长。 因此，我使用 for-loop 循环遍历数据帧的行并使用 while-loop 来表示一年中的哪一天。 但是，我不确定如何保存输出。

for (i in 1:dim(df)[1]){
  j<-1
  while(j<=365){
  output<-daylength(lat=df$latitude[i],doy=j)
  j<-j+1
  # save output
  }
}

我正在寻找以下格式的输出：

Answer 1

简单的方法：

output <- data.frame(latitude = numeric(0),
                    matrix(numeric(0), ncol=365))
names(output) <- gsub("X", "day", names(my_df))


for (i in seq_len(nrow(df))){
  output[i, 1] <- df$latitude[i]
  j <- 1
  while(j <= 365){
    output[i, j + 1] <- daylength(lat = df$latitude[i], doy = j)
    j <- j + 1
  }
}