R help - May 2010 - Count cases in a list

Hi everybody, I would like to count how many times names in list L,
nombreL,  apear in list C, nombreC.

Can I improve the next program?

cuenta <- 0
topL <- length(nombreL)
topC <- length(nombreC)
for (i in 1:topL) {
                      for (j in 1:topC) {
                                            k <-
grep(noquote(nombreL[i]),nombreC[j])
                                            if (length(k) > 0){

cuenta <- cuenta + 1
    				   }
                                             }

?Is there a way to vectorizad?

Thanks,

Sebasti?n.

Saludos,

Sebasti?n.

Hi Sebastian,

Please add an example to the code you made, so to make it easier to help
you.

p.s: it seems possible to make it faster using lapply

Tal


----------------Contact
Details:-------------------------------------------------------
Contact me: Tal.Galili@gmail.com |  972-52-7275845
Read me: www.talgalili.com (Hebrew) | www.biostatistics.co.il (Hebrew) |
www.r-statistics.com (English)
----------------------------------------------------------------------------------------------




On Sat, May 8, 2010 at 10:13 AM, Sebastian Kruk
<residuo.solow@gmail.com>wrote:
> Hi everybody, I would like to count how many times names in list L,
> nombreL,  apear in list C, nombreC.
>
> Can I improve the next program?
>
> cuenta <- 0
> topL <- length(nombreL)
> topC <- length(nombreC)
> for (i in 1:topL) {
>                      for (j in 1:topC) {
>                                            k <-
> grep(noquote(nombreL[i]),nombreC[j])
>                                            if (length(k) > 0){
>
> cuenta <- cuenta + 1
>                                   }
>                                             }
>
> ¿Is there a way to vectorizad?
>
> Thanks,
>
> Sebastián.
>
> Saludos,
>
> Sebastián.
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
	[[alternative HTML version deleted]]

Hi, for example I have two list:

nombreL <- c("Alvaro Perez", "Sebasti?n Garc?a",
"Luis Gomez", "Jorge
Rial", "Ronaldo Apud",..., "Ana Mar?a Bianco")
nombreC <- c("Alvaro",...,
"Ana",...,"Jorge",...,"Ronaldo",
"Sebastian",...)

and my code is:

cuenta <- 0
topL <- length(nombreL)
topC <- length(nombreC)
for (i in 1:topL) {
                     for (j in 1:topC) {
                                           k <-
grep(noquote(nombreL[i]),nombreC[j])
                                           if (length(k) > 0){

cuenta <- cuenta + 1
                                            }
                      }

Thanks,

Sebastian.

I would like to obtain a matrix

2010/5/8 Tal Galili <tal.galili at gmail.com>:
> Here is one way for doing that:
> nombreL <- c("Alvaro Perez", "Sebastian
Garc?a","Sebastian 2", "Luis Gomez",
> "Jorge Rial", "Ronaldo Apud", "Ana Mar?a
Bianco")
> nombreC <- c("Alvaro",
"Ana","Jorge","Ronaldo", "Sebastian")
> func1 <- function(x)
> {
> list(times = length(grep(x, noquote(nombreL))), where = (grep(x,
> noquote(nombreL))))
> }
> a <- lapply(noquote(nombreC), func1)
> names(a) <- nombreC
> a
>
>
> ----------------Contact
> Details:-------------------------------------------------------
> Contact me: Tal.Galili at gmail.com | ?972-52-7275845
> Read me: www.talgalili.com (Hebrew) | www.biostatistics.co.il (Hebrew) |
> www.r-statistics.com (English)
>
----------------------------------------------------------------------------------------------
>
>
>
>
> On Sat, May 8, 2010 at 11:57 AM, Sebastian Kruk <residuo.solow at
gmail.com>
> wrote:
>>
>> One last thing, i want to know in which position was founded every
name.
>>
>> 2010/5/8 Tal Galili <tal.galili at gmail.com>:
>> > There you go:
>> >
>> > nombreL <- c("Alvaro Perez", "Sebastian
Garc?a","Sebastian 2", "Luis
>> > Gomez",
>> > "Jorge Rial", "Ronaldo Apud", "Ana Mar?a
Bianco")
>> > nombreC <- c("Alvaro",
"Ana","Jorge","Ronaldo", "Sebastian")
>> > func1 <- function(x)
>> > {
>> > length(grep(x, noquote(nombreL)))
>> > }
>> > a <- lapply(noquote(nombreC), func1)
>> > names(a) <- nombreC
>> > a
>> >
>> >
>> >
>> >
>> > ----------------Contact
>> > Details:-------------------------------------------------------
>> > Contact me: Tal.Galili at gmail.com | ?972-52-7275845
>> > Read me: www.talgalili.com (Hebrew) | www.biostatistics.co.il
(Hebrew) |
>> > www.r-statistics.com (English)
>> >
>> >
----------------------------------------------------------------------------------------------
>> >
>> >
>> >
>> >
>> > On Sat, May 8, 2010 at 11:22 AM, Sebastian Kruk
>> > <residuo.solow at gmail.com>
>> > wrote:
>> >>
>> >> 2010/5/8 Tal Galili <tal.galili at gmail.com>:
>> >> > Hi Sebastian,
>> >> > Please check if this does what you want:
>> >> >
>> >> > nombreL <- c("Alvaro Perez", "Sebasti?n
Garc?a", "Luis Gomez", "Jorge
>> >> > Rial",
>> >> > "Ronaldo Apud", "Ana Mar?a Bianco")
>> >> > nombreC <- c("Alvaro",
"Ana","Jorge","Ronaldo", "Sebastian")
>> >> > func1 <- function(x)
>> >> > {
>> >> > grep(x, noquote(nombreL))
>> >> > }
>> >> > lapply(noquote(nombreC), func1)
>> >>
>> >> Hi Tal, I just want to count how many time appear any element
of
>> >> nombreC in nombreL.
>> >>
>> >> Alvaro appear once in nombreL so cuenta = 1
>> >> Ana appear 0 times in nombreL so cuenta = 1
>> >> Jorge appear 0 times in nombreL so cuenta = 1
>> >> Ronaldo appear 0 times in nombreL so cuenta = 1
>> >> Sebastian appear once in nombreL so cuenta = 1+1
>> >>
>> >> Sebastian.
>> >
>> >
>
>