Объединение для вывода цикла

Question

Я хочу написать цикл, который извлекает таблицу из трехмерного массива и последовательно записывает ее в кадр данных в виде столбца.

код у меня до сих пор

library(ncdf4) 

test <- nc_open("NorESM_TREFHT_cont_mem1-60_2006-2099.nc") 
temp <- ncvar_get(test, "TREFHT", count = c(144,96,60,1)) 
drop(temp) 
lat<- ncvar_get(test, "lat") 
lon <- ncvar_get(test,"lon") 
lonlat <- expand.grid(lon, lat) 
for (n in 1:60) { 
member <- array(temp[1:144,1:96,n]) 
ensemble <- as.vector(member) 
h <- data.frame(cbind(lonlat, ensemble[n])) 
} 

В настоящее время код работает без цикла (при п = 1,2 и т.д.) но только сочетает в себе последний прогон в течение цикла вывода при п = 1:60

Answer 1

Ваш h еще не используется; другими словами, бесполезно. Вероятно, вы хотите добавить на каждом этапе n переменную ensemble на ваши данные lonlat. Таким образом, ваш код должен быть lonlat <- data.frame(cbind(lonlat, ensemble[n])).