Logo Questions Linux Laravel Mysql Ubuntu Git Menu
 

Generating a vector of the number of items in each list item

Tags:

list

r

I have a list containing 98 items. But each item contains 0, 1, 2, 3, 4 or 5 character strings.

I know how to get the length of the list and in fact someone has asked the question before and got voted down for presumably asking such an easy question.

But I want a vector that is 98 elements long with each element being an integer from 0 to 5 telling me how many character strings there are in each list item. I was expecting the following to work but it did not.

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

From my question you will see that I do not really know the nomeclature of lists and items. Feel free to straighten me out.

like image 697
Farrel Avatar asked Jan 17 '10 02:01

Farrel


People also ask

How can we convert a list object into a vector?

Converting a List to Vector in R Language – unlist() Function. unlist() function in R Language is used to convert a list to vector. It simplifies to produce a vector by preserving all components.

Is it possible in R to create a vector which has a list as one its elements?

I think it is because R's vector can only have a certain type of "mode"s: numeric, character, logical, complex etc but it cannot have elements of list type.

Can you have a vector of lists?

A list is a recursive vector: a vector that can contain another vector or list in each of its elements. Lists are one of the most flexible data structures in R.


2 Answers

Farrel, I do not exactly follow as 'item' is not an R type. Maybe you have a list of length 98 where each element is a vector of character string?

In that case, consider this:

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> 

So there is you vector of the length of your list, telling you how many strings each list element has. Note the last do.call(rbind, someList) as we got a list back from lapply.

If, on the other hand, you want to count the length of all the strings at each list position, replace the simple length(x) with a new function counting the characters:

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> 

If that is not want you want, maybe you could mock up some example input data?

Edit:: In response to your comments, what you wanted is probably:

R> do.call(rbind, lapply(fl, length))
  [,1]
A    2
B    1
C    3
R> 

Note that I pass in length, the name of a function, and not length(), the (displayed) body of a function. Because that is easy to mix up, I simply apply almost always wrap an anonymous function around as in my first answer.

And yes, this can also be done with just sapply or even some of the **ply functions:

R> sapply(fl, length)
A B C 
2 1 3 
R> lapply(fl, length)
[1] 2 1 3
R> 
like image 116
Dirk Eddelbuettel Avatar answered Oct 11 '22 14:10

Dirk Eddelbuettel


All this seems very complicated - there is a function specifically doing what you were asking for:

lengths  #note the plural "s"

Using Dirks sample data:

fl <- list(A=c("un", "deux"), B=c("one"), C=c("eins", "zwei", "drei"))
lengths(fl)

will return a named integer vector:

A B C 
2 1 3 
like image 44
Peer Wünsche Avatar answered Oct 11 '22 14:10

Peer Wünsche