convertir un vecteur à une liste

J'ai un vecteur comme ce 

 c("1", "a","b")

et j'aimerais créer cette liste

list("a"=1,"b"=1)

est-il un moyen de le faire dans un "appliquer" style? Merci.

-k

Salut Khanh -- valeur de un, deux étiquettes? Qui semble étrange.
J'ai besoin d'un coup d'oeil rapide, comme une table de hachage. Dans ce cas, "a" et "b" sont des nœuds dans un réseau, et 1 est leur communauté id. Est-il efficace?

OriginalL'auteur knguyen | 2010-12-08

  1. 7

    Comme ça?

    R> kn <- c("1", "a", "b")
R> nl <- vector(mode="list", length=length(kn)-1)
R> names(nl) <- kn[-1]
R> nl <- lapply(nl, function(x) kn[1])
R> nl
$a
[1] "1"

$b
[1] "1"

R>

    Avec bravo à Gavin pour repérer plus tôt
    erreur.

    n'ont pas de noms, et de ne pas le lapply étape de réécriture nl paramètre noms avant qu'il ne soit pas leur faire coller?
    J'ai littéralement copié ce qui a fonctionné dans ma coquille.
    Euh, non, vous étiez tout à fait correct. Fixe, re-dirigé et édité. Merci pour le spotting.
    noms(nl) <- kn[-1] à la place. Merci.
    Il a encore besoin de as.numeric(kn[1]) dans la fonction anonyme - même problème que j'avais avec ma réponse @Joshua Ulrich souligné.

    OriginalL'auteur Dirk Eddelbuettel

  2. 11

    À l'aide de as.list et setNames:

    x = c("1", "a","b")
as.list(setNames(rep(as.numeric(x[1]), length(x) - 1), x[-1]))
    __________neat!
    depuis que j'ai découvert à cette question, en cherchant une solution pour le cas plus général de la conversion d'un vecteur à un nom de liste, je voulais juste ajouter que vous pouvez également le faire si vous n'avez pas l'esprit les noms étant le même que le contenu: as.list(setNames(x,x))

    OriginalL'auteur Charles

  3. 5

    Ce n'est pas une applique de style, mais d'une simple fonction d'envelopper les commandes requises:

    makeList <- function(vec) {
    len <- length(vec[-1])
    out <- as.list(rep(as.numeric(vec[1]), len))
    names(out) <- as.character(vec[-1])
    out
}

    À l'aide de votre vecteur, il donne:

    > vec <- c("1", "a","b")
> makeList(vec)
$a
[1] 1

$b
[1] 1
    Pourriez as.numeric le "1"
    oups! Bien repéré.

    OriginalL'auteur Gavin Simpson

  4. 2

    Pour être complet, il est plus simple one-liner de le faire dans un "appliquer" style comme demandé:

    as.list(sapply(x[-1],function(y) as.double(x[1])))

    Alors que pas l'option la plus rapide, c'est sûrement soigné assez pour mériter sa place comme une réponse à la question. Une augmentation considérable de la vitesse est possible par pas inutilement, pour simplifier à un vecteur: 

        library(microbenchmark)
    microbenchmark(times=20, 
               Charles=as.list(setNames(rep(as.numeric(x[1]), length(x) - 1), x[-1])),
               Gavin=makeList(x),
               Anon=sapply(x[-1],function(y) as.double(x[1]),simplify=FALSE)
)

Unit: microseconds
    expr    min      lq median      uq    max neval
 Charles 10.868 11.7735 11.774 12.3775 55.848    20
   Gavin 12.075 12.6795 13.132 13.8870 26.867    20
    Anon  6.643  7.0950  7.548  8.1520 17.811    20
    Plutôt que de as.list(sapply(...)), utilisez sapply(..., simplify=FALSE).
    Sans simplifier=F, nous aurons identiques(Charles,Anon)=FAUX, je ne voulais pas. Avec de simplifier=F, votre suggestion amène davantage de vitesse- - - - j'ai mis à jour ma réponse. Merci.

    OriginalL'auteur andrekos