如何使用R自動創建結構列表？

Question

可以說，RES是一個容量爲1000個結構的列表，kmeans可以生成輸出結果。

我該如何聲明RES？

有RES後宣佈我想要做這樣的事情：

for (i in 1:1000) { 
    RES[i] = kmeans(iris,i) 
} 

謝謝。 Rui

Answer 1

創建列表的方式不同於創建數值向量的常用方式。

# The "usual" way to create a numeric vector 
myNumVec <- numeric(1000) # A numeric vector with 1000 zeroes... 

# ...But there is also this way 
myNumVec <- vector("numeric", 1000) # A numeric vector with 1000 zeroes... 


# ...and that's the only way to create lists: 

# Create a list with 1000 NULLs 
RES <- vector("list", 1000) 

所以，你的例子會成爲，

RES <- vector("list", 1000) 
for (i in 1:1000) { 
    RES[[i]] = kmeans(iris,i) 
} 

（請注意，k均值不喜歡與虹膜數據直接設置一樣，雖然被稱爲...）

但隨後再次，lapply也會這樣做，並且以@Andrie所示的更直接的方式。

Answer 2

如果您使用R適用成語，你的代碼會更簡單，你不必聲明您的變量提前：

RES <- lapply(1:3, function(i)kmeans(dist(iris[, -5]),i)) 

結果：

> str(RES) 
List of 3 
$ :List of 7 
    ..$ cluster  : Named int [1:150] 1 1 1 1 1 1 1 1 1 1 ... 
    .. ..- attr(*, "names")= chr [1:150] "1" "2" "3" "4" ... 
    ..$ centers  : num [1, 1:150] 2.89 2.93 3.04 2.96 2.93 ... 
    .. ..- attr(*, "dimnames")=List of 2 
    .. .. ..$ : chr "1" 
    .. .. ..$ : chr [1:150] "1" "2" "3" "4" ... 
    ..$ totss  : num 55479 
    ..$ withinss : num 55479 
    ..$ tot.withinss: num 55479 
    ..$ betweenss : num 4.15e-10 
    ..$ size  : int 150 
    ..- attr(*, "class")= chr "kmeans" 
$ :List of 7 
    ..$ cluster  : Named int [1:150] 1 1 1 1 1 1 1 1 1 1 ... 
    .. ..- attr(*, "names")= chr [1:150] "1" "2" "3" "4" ... 
    ..$ centers  : num [1:2, 1:150] 0.531 4.104 0.647 4.109 0.633 ... 
    .. ..- attr(*, "dimnames")=List of 2 
    .. .. ..$ : chr [1:2] "1" "2" 
    .. .. ..$ : chr [1:150] "1" "2" "3" "4" ... 
    ..$ totss  : num 55479 
    ..$ withinss : num [1:2] 863 9743 
    ..$ tot.withinss: num 10606 
    ..$ betweenss : num 44873 
    ..$ size  : int [1:2] 51 99 
    ..- attr(*, "class")= chr "kmeans" 
$ :List of 7 
    ..$ cluster  : Named int [1:150] 2 2 2 2 2 2 2 2 2 2 ... 
    .. ..- attr(*, "names")= chr [1:150] "1" "2" "3" "4" ... 
    ..$ centers  : num [1:3, 1:150] 3.464 0.5 5.095 3.438 0.622 ... 
    .. ..- attr(*, "dimnames")=List of 2 
    .. .. ..$ : chr [1:3] "1" "2" "3" 
    .. .. ..$ : chr [1:150] "1" "2" "3" "4" ... 
    ..$ totss  : num 55479 
    ..$ withinss : num [1:3] 2593 495 1745 
    ..$ tot.withinss: num 4833 
    ..$ betweenss : num 50646 
    ..$ size  : int [1:3] 62 50 38 
    ..- attr(*, "class")= chr "kmeans" 

Answer 3

我會其次lapply在這種情況下是正確的答案。 但有很多情況下需要循環，這是一個很好的問題。

R裏面，列表不需要被聲明爲空的時間提前，所以最簡單的方式做到這一點會只是「聲明」 RES爲空列表：

RES <- list() 
for (i in 1:1000) { 
    RES[i] = kmeans(iris,i) 
} 

R將只延長列表爲每個迭代。

順便提及，這個工程即使對於非順序索引：

newList <- list() 
newList[5] <- 100 

產生具有狹槽1至4設計爲NULL和第五時隙100的數量的列表。

這只是說，列表是非常在R比不同的野獸比原子載體。