使用數組中的特定數據子集

Question

我有一個3D數組。

dim[Ad] 
[1] 144 69 60 

前兩個維度代表一個網格框（144 * 69）。第三維代表60個不同的氣候模型輸出集合。

我想創建一個循環使用提取自第三維的第一整體和應用功能等，其後每合奏。

Answer 1

鑑於

(arr <- array(rep(c(1,2,3), each=4), dim=c(2,2,3))) 
# , , 1 
# 
#  [,1] [,2] 
# [1,] 1 1 
# [2,] 1 1 
# 
# , , 2 
# 
#  [,1] [,2] 
# [1,] 2 2 
# [2,] 2 2 
# 
# , , 3 
# 
#  [,1] [,2] 
# [1,] 3 3 
# [2,] 3 3 

你可以如

# sum values for ,,1 ,,2 & ,,3 each: 
apply(arr, 3, sum) 
# [1] 4 8 12 

# or: show unique values for each: 
apply(arr[,,2:3], 3, function(x) unique(as.vector(x))) 
# [1] 2 3