La génération d'un vecteur, le nombre de points dans chaque élément de la liste

J'ai une liste contenant 98 points. Mais chaque élément contient 0, 1, 2, 3, 4 ou 5 chaînes de caractères.

Je sais comment obtenir la longueur de la liste et en fait quelqu'un a posé la question avant et a voté vers le bas pour sans doute poser une question facile.

Mais je veux un vecteur qui est de 98 éléments de long avec chaque élément étant un entier de 0 à 5 me dire combien de chaînes de caractères il y a dans chaque élément de la liste.
Je m'attendais à la suite de travailler, mais il n'a pas.

lapply(name.of.list,length())

De ma question, vous verrez que je ne sais pas vraiment la nomeclature de listes et les éléments. Hésitez pas à me redresser.

OriginalL'auteur Farrel | 2010-01-17

list r

10

Farrel, je n'ai pas exactement suivi comme "élément" n'est pas un R-type. Peut-être que vous avez un list de longueur 98, où chaque élément est un vecteur de la chaîne de caractères?

Dans ce cas, pensez à ceci:
```
R> fl <- list(A=c("un", "deux"), B=c("one"), C=c("eins", "zwei", "drei"))
R> lapply(fl, function(x) length(x))
$A
[1] 2

$B
[1] 1

$C
[1] 3
R> do.call(rbind, lapply(fl, function(x) length(x)))
  [,1]
A    2
B    1
C    3
R> 
```
Donc, il est à vous de vecteur de la longueur de votre liste, vous dire combien de chaînes de chaque élément de la liste. Notez que le dernier do.call(rbind, someList) que nous avons obtenu une liste de lapply.

Si, d'autre part, vous voulez compter la longueur de toutes les cordes à chaque position, remplacer le simple length(x) avec une nouvelle fonction de comptage de caractères:
```
R> lapply(fl, function(x) { sapply(x, function(y) nchar(y)) } )
$A
  un deux 
   2    4 

$B
one 
  3 

$C
eins zwei drei 
   4    4    4 

R> 
```
Si ce n'est pas ce que vous voulez, vous pourriez peut-être se moquer d'un exemple de données d'entrée?

Edit:: En réponse à vos commentaires, ce que tu voulais sans doute:
```
R> do.call(rbind, lapply(fl, length))
  [,1]
A    2
B    1
C    3
R> 
```
Remarque que je passe dans length, le nom d'une fonction, et non pas length(), l' (affiche) corps d'une fonction. Parce que c'est facile à mélanger, j'ai tout simplement s'appliquent presque toujours enrouler une fonction anonyme autour comme dans ma première réponse.

Et oui, cela peut aussi être fait avec juste sapply ou même certains de la **ply fonctions:
```
R> sapply(fl, length)
A B C 
2 1 3 
R> lapply(fl, length)
[1] 2 1 3
R> 
```
Le premier chemin que vous avez fait c'est ce que je veux. Permettez-moi d'aller essayer ça.
Yip, il a travaillé. Fantastique. En fait sapply travaillaient encore mieux car c'est un simple vecteur qui je peux maintenant aller et cbind sur une préexistant dataframe. Maintenant, pouvez-vous m'expliquer comment lapply(nom.de.liste,longueur()) et lapply(nom.de.liste,la fonction(x) la longueur(x)) sont différentes.
Voir également la modifier à ma réponse -- en essence length est différente de length() et vous voulez que l'ancien.

OriginalL'auteur Dirk Eddelbuettel
7

Tout cela semble très compliqué - il y a une fonction précisément de faire ce que vous demandez pour:
```
lengths  #note the plural "s"
```
À l'aide de Dirks des données de l'échantillon:
```
fl <- list(A=c("un", "deux"), B=c("one"), C=c("eins", "zwei", "drei"))
lengths(fl)
```
sera de retour un nommé entier vecteur:
```
A B C 
2 1 3 
```
Si les éléments de la liste sont tibbles, comment voulez-vous obtenir la longueur de la tibble?

OriginalL'auteur Peer Wünsche

Le code ci-dessous accepte une liste et retourne un vecteur de longueur:

x = c("vectors", "matrices", "arrays", "factors", "dataframes", "formulas", 
      "shingles", "datesandtimes", "connections", "lists")
xl = list(x)
fnx = function(xl){length(unlist(strsplit(x, "")))}
lv = sapply(x, fnx)

OriginalL'auteur doug

Vous devez vous connecter pour publier un commentaire.