Saya mencoba mencari cara mengubah daftar bernama di mana nilainya juga tercantum dalam daftar bernama di mana nilainya adalah hasil dari penggabungan nilai-nilai dalam vektor.

Saya tidak tahu apakah saya menjelaskan dengan benar atau mudah, jadi ikuti contohnya.

x <- list(A = c("e", "f", "g"), B = c("a", "b", "c"), C = c("m", "l", "w"))

#$A
#[1] "e" "f" "g"
#$B
#[1] "a" "b" "c"
#$C
#[1] "m" "l" "w"

named_list_concat <- function(data){ ... }

named_list_concat(x)

#$A
#[1] "efg"
#$B
#[1] "abc"
#$C
#[1] "mlw"
1
Aureliano Guedes 16 Maret 2019, 22:40

1 menjawab

Jawaban Terbaik

Satu kemungkinan dasar:

lapply(x, function(x) paste(x, collapse = ""))

$A
[1] "efg"

$B
[1] "abc"

$C
[1] "mlw"

Atau hal yang sama dalam bentuk singkat:

lapply(x, paste, collapse = "")
1
tmfmnk 16 Maret 2019, 19:51