将列表更改为R中的整数

Question

大家好，我需要帮助，以便将我的输出更改为一个新的整数之王

这就是我所拥有的：

> cluster$clusters
[[1]]
[1] "Cluster1" "Cluster6" "Cluster15" "Cluster14" "Cluster13"

[[2]]
[1] "Cluster2" "Cluster7" "Cluster8" "Cluster12"

[[3]]
[1] "Cluster3" "Cluster8"

[[4]]
[1] "Cluster4" "Cluster9"

[[5]]
[1] "Cluster5" "Cluster10" "Cluster11"

adn我想将其更改为一个整数，例如：

> cut_avg
Cluster1 Cluster6 Cluster15 Cluster14 Cluster13 Cluster2 Cluster7 Cluster8 Cluster12 Cluster3 
       1        1         1         1         1        2        2        2         2        3

Cluster8 Cluster4 Cluster9  Cluster5  Cluster10   Cluster11 
       3        4        4         5          5          5

Answer 1

您可以使用rep来重复list的索引，以获取它们各自的长度时间。

x <- cluster$clusters
cut_avg <- setNames(rep(seq_along(x), lengths(x)), unlist(x))