Array in R

Un array è anche un oggetto in R, che può creare array unidimensionali o multidimensionali.

Un array in R è un insieme di tipo omogeneo, mentre la matrice matrix che abbiamo studiato prima è in realtà un array bidimensionale.

Le relazioni tra vettore, matrice e array possono essere viste nella seguente immagine:

La creazione di array in R utilizza la funzione array(), che utilizza vettori come parametri di input e può essere utilizzato dim per impostare le dimensioni dell'array.

Sintassi della funzione array():

array(data = NA, dim = length(data), dimnames = NULL)

Descrizione dei parametri:

• data il vettore, gli elementi dell'array.

• dim le dimensioni dell'array, per impostazione predefinita è un array uno-dimensionale.

• dimnames i nomi delle dimensioni, devono essere una lista, per impostazione predefinita non vengono impostati nomi.

Nel seguente esempio creiamo un array bidimensionale di 3 righe e 3 colonne:

#　Crea due vettori di lunghezze diverse
vector1　<-　c(5,9,3)
vector2　<-　c(10,11,12,13,14,15)
#　Crea un array
result <- array(c(vector1,vector2),dim = c(3,3,2))
print(result)

Esegui il codice sopra per ottenere i risultati:

,　,　1
　　　　　[,1]　[,2]　[,3]
[1,]　　5　　10　　13
[2,]　　9　　11　　14
[3,]　　3　　12　　15
,　,　2
　　　　　[,1]　[,2]　[,3]
[1,]　　5　　10　　13
[2,]　　9　　11　　14
[3,]　　3　　12　　15

L'uso del parametro dimnames per impostare i nomi delle dimensioni:

#　Crea due vettori di lunghezze diverse
vector1　<-　c(5,9,3)
vector2　<-　c(10,11,12,13,14,15)
column.names <- c("COL1","COL2","COL3")
row.names <- c("ROW1","ROW2","ROW3")
matrix.names <- c("Matrix1","Matrix2")
# Creazione dell'array e impostazione dei nomi delle dimensioni
result <- array(c(vector1,vector2),dim = c(3,3,2),dimnames = list(row.names,column.names,matrix.names))
print(result)

Esegui il codice sopra per ottenere i risultati:

, , Matrix1
　　　　　COL1 COL2 COL3
ROW1        5        10        13
ROW2        9        11        14
ROW3        3        12        15
, , Matrix2
　　　　　COL1 COL2 COL3
ROW1        5        10        13
ROW2        9        11        14
ROW3        3        12        15

Accesso agli elementi dell'array

Per ottenere un elemento dell'array, è possibile utilizzare l'indice della colonna e l'indice della riga dell'elemento, simile a un sistema di coordinate.

#　Crea due vettori di lunghezze diverse
vector1　<-　c(5,9,3)
vector2　<-　c(10,11,12,13,14,15)
column.names <- c("COL1","COL2","COL3")
row.names <- c("ROW1","ROW2","ROW3")
matrix.names <- c("Matrix1","Matrix2")
#　Crea un array
result <- array(c(vector1,vector2),dim = c(3,3,2),dimnames = list(row.names, column.names, matrix.names))
# Visualizza l'elemento della terza riga della seconda matrice dell'array
print(result[3,,2])
# Visualizza l'elemento della prima matrice dell'array nella riga 1 e nella colonna 3
print(result[1,3,1])
# Output della seconda matrice
print(result[,,2])

Esegui il codice sopra per ottenere i risultati:

COL1 COL2 COL3　
　　　3        12        15　
[1] 13
　　　　　COL1 COL2 COL3
ROW1        5        10        13
ROW2        9        11        14
ROW3        3        12        15

Operazione degli elementi dell'array

Poiché l'array è composto da matrici di diverse dimensioni, possiamo accedere agli elementi dell'array tramite l'accesso agli elementi della matrice.

#　Crea due vettori di lunghezze diverse
vector1　<-　c(5,9,3)
vector2　<-　c(10,11,12,13,14,15)
#　Crea un array
array1 <- array(c(vector1,vector2),dim = c(3,3,2))
#　Crea due vettori di lunghezze diverse
vector3 <- c(9,1,0)
vector4 <- c(6,0,11,3,14,1,2,6,9)
array2　<-　array(c(vector1,vector2),dim　=　c(3,3,2))
#　Crea una matrice dall'array
matrix1　<-　array1[,,2]
matrix2　<-　array2[,,2]
#　Somma delle matrici
result　<-　matrix1+matrix2
print(result)

Esegui il codice sopra per ottenere i risultati:

　　　　　[,1]　[,2]　[,3]
[1,]　　10　　20　　26
[2,]　　18　　22　　28
[3,]　　6　　24　　30

Inoltre, possiamo usare apply() Calcola elementi su array elementi a più dimensioni, la sintassi è come segue:

apply(x,　margin,　fun)

Descrizione dei parametri:

• x 　Array

• Margine Nome dei dati

• fun Funzione di calcolo

Di seguito, utilizziamo la funzione apply() per calcolare la somma di ogni riga di due matrici dell'array.

#　Crea due vettori di lunghezze diverse
vector1　<-　c(5,9,3)
vector2　<-　c(10,11,12,13,14,15)
#　Crea un array
new.array　<-　array(c(vector1,vector2),dim　=　c(3,3,2))
print(new.array)
#　Calcola la somma dei numeri della prima riga di tutti i matrici dell'array
result　<-　apply(new.array,　c(1),　sum)
print(result)

Esegui il codice sopra per ottenere i risultati:

,　,　1
　　　　　[,1]　[,2]　[,3]
[1,]　　5　　10　　13
[2,]　　9　　11　　14
[3,]　　3　　12　　15
,　,　2
　　　　　[,1]　[,2]　[,3]
[1,]　　5　　10　　13
[2,]　　9　　11　　14
[3,]　　3　　12　　15