Dalam pertanyaan ini objek x (ditempelkan di bawah) adalah array*. x memiliki argumen bernama .Dimnames dan argumen lain bernama .Names, yang tampaknya memberi nama setiap pengelompokan .Dimnames. Ketika x dikonversi ke data.frame values di .Names menjadi nama kolom.

.Dimnames tampaknya analog dengan array(dimnames), tetapi saya tidak dapat menemukan argumen array analog untuk .Names.

# object from the linked question

x = structure(c(-0.93, 0.39, 0.88, 0.63, 0.86, -0.69, 1.02, 0.29, 0.94, 
0.93, -0.01, 0.79, 0.32, 0.14, 0.13, -0.07, -0.63, 0.26, 0.07, 0.87,
-0.36, 1.043, 0.33, -0.12, -0.055, 0.07, 0.67, 0.48, 0.002, 0.008, 
-0.19, -1.39, 0.98, 0.43, -0.02, -0.15,-0.08, 0.74, 0.96, 0.44, -0.005,
1.09, 0.36, 0.04, 0.09, 0.17, 0.68, 0.51, 0.09, 0.12, -0.05, 0.11,
0.99, 0.62, 0.13, 0.06, 0.27, 0.74, 0.96, 0.45), .Dim = c(5L, 
2L, 2L, 3L), .Dimnames = structure(list(Subject = c("s1", "s2", 
"s3", "s4", "s5"), Cond = c("A", "B"), Item = c("1", "2"), c("Measure1", 
"Measure2", "Measure3")), .Names = c("Subject", "Cond", 
"Item", "")))

Ketika saya mengonversi x menggunakan as.data.frame.table nama kolom bermakna. Misalnya.

head(as.data.frame.table(x))

#-----
  Subject Cond Item     Var4  Freq
1      s1    A    1 Measure1 -0.93
2      s2    A    1 Measure1  0.39
3      s3    A    1 Measure1  0.88
4      s4    A    1 Measure1  0.63
5      s5    A    1 Measure1  0.86
6      s1    B    1 Measure1 -0.69

Jika saya memiliki larik lain y, bagaimana cara memberi nama grup dimensi sehingga ketika saya mengonversi ke data.frame nama kolom bermakna? Misalnya

y <- array(1:9,
      dim = c(3,3,3),
      dimnames = list(letters[1:3],
                      LETTERS[1:3],
                      month.abb[1:3]))

as.data.frame.table(y)

#---------
  Var1 Var2 Var3 Freq
1    a    A  Jan    1
2    b    A  Jan    2
3    c    A  Jan    3
4    a    B  Jan    4
5    b    B  Jan    5
6    c    B  Jan    6

*Catatan: str(x) tidak mengatakan array, tetapi x berperilaku seperti array. Mungkin saya perlu mengonversi ke struktur data yang berbeda?

1
nniloc 9 Juli 2020, 01:22

1 menjawab

Jawaban Terbaik

Anda dapat menetapkan nama dimensi tanpa menyebutkan baris/kolom/pipa yang sebenarnya. (Saya pikir margin ke-3 disebut "pipa", jangan bingung dengan %>% yang bukan pipa ;-)

ary <- array(1:24, dim=c(2,3,4))
dimnames(ary) <- list(a=c(),b=c(),d=c())
ary
# , , 1
#       b
# a      [,1] [,2] [,3]
#   [1,]    1    3    5
#   [2,]    2    4    6
# , , 2
#       b
# a      [,1] [,2] [,3]
#   [1,]    7    9   11
#   [2,]    8   10   12
# , , 3
#       b
# a      [,1] [,2] [,3]
#   [1,]   13   15   17
#   [2,]   14   16   18
# , , 4
#       b
# a      [,1] [,2] [,3]
#   [1,]   19   21   23
#   [2,]   20   22   24
1
r2evans 8 Juli 2020, 23:11