r - R でクラスター化された最初のベクトルに従って 2 番目のベクトルをクラスター化する

Question

2 つのクラスターに分割されたベクトルがあります (この質問で説明したように):

    x <- c(1, 4, 5, 6, 9, 29, 32, 46, 55)
    tree <- hclust(dist(x), method = "single")
    split(x, cutree(tree, h = 19))
    # $`1`
    # [1] 1 4 5 6 9
    #
    # $`2`
    # [1] 29 32 46 55

ここで、同じ長さの別のクラスターがあり、これを x と同じインデックスで同じ数のクラスターに分割したいとします。例として、次のベクトル y を取り上げます。

    set.seed(77)
    y = rnorm(9)
    y
    #[1] -0.54964  1.09105  0.63978  1.04258  0.16970  1.13780 -0.97055 -0.13183
    #[9]  0.14623

望ましい結果は次のようになります。

    # $`1`
    # [1] -0.54964  1.09105  0.63978  1.04258  0.16970
    #
    # $`2`
    # [1] 1.13780 -0.97055 -0.13183 0.14623