Hola,

Perdona, pero la solución que propuse funciona correctamente si hay que
buscar otro string que no esté en la fila 1 y columna 1.
Este otro sí que funciona:

> foo<-function(x) match(x,c('mal'))
>
> r.m.tmp<-apply(data,1,foo)
> r.m.tmp[is.na(r.m.tmp)]<-0
> r.end<-apply(r.m.tmp,1,max)
> col.dat<-colnames(data)[r.end==max(r.end)]
>
> c.end<-apply(r.m.tmp,2,max)
> row.dat<-rownames(data)[c.end==max(c.end)]
>
> col.dat
[1] "res"
> row.dat
[1] "2"
>
>

> foo<-function(x) match(x,c('regular'))
>
> r.m.tmp<-apply(data,1,foo)
> r.m.tmp[is.na(r.m.tmp)]<-0
> r.end<-apply(r.m.tmp,1,max)
> col.dat<-colnames(data)[r.end==max(r.end)]
>
> c.end<-apply(r.m.tmp,2,max)
> row.dat<-rownames(data)[c.end==max(c.end)]
>
> col.dat
[1] "res"
> row.dat
[1] "3"
>
>


Saludos,
Carlos Ortega
www.qualityexcellence.es

El 23 de noviembre de 2011 18:54, Alberto Soria
<alberto.soria@ari-solar.es>escribió:

> Perfecto Carlos, muchas gracias!
>
> El 23 de noviembre de 2011 18:40, Carlos Ortega <cof@qualityexcellence.es>escribió:
>
> Hola,
>>
>> Esta es otra manera:
>>
>> > foo<-function(x) match(x,c('hola'))> > r.m.tmp<-apply(data,1,foo) > col.dat<-colnames(data)[max(r.m.tmp,na.rm=T)]> row.dat<-rownames(data)[max(r.m.tmp,na.rm=T)]> > col.dat[1] "input"> row.dat[1] "1">
>>
>>
>>
>> Saludos,
>> Carlos Ortega
>> www.qualityexcellence.es
>>
>> El 23 de noviembre de 2011 17:09, Alberto Soria <
>> alberto.soria@ari-solar.es> escribió:
>>
>> El problema ocurre cuando el data.frame no es cuadrada. Entonces el código
>>> que escribí antes no sirve. Parece que hay que utilizar la función
>>> arrayInd, pero no acabo de entender el argumente .dim. Gracias Jorgue,
>>> podría hacer:
>>>
>>> as.numeric(row.names(data[data == "hola",]))
>>>
>>> Pero sólo tendría la fila.
>>>
>>> El 23 de noviembre de 2011 17:01, Jorge I Velez
>>> <jorgeivanvelez@gmail.com>escribió:
>>>
>>> > Hola Alberto,
>>> >
>>> > Adicional a la sugerencia de Carlos, podrias intentar:
>>> >
>>> > data[data == "hola",]
>>> >
>>> > Un saludo,
>>> > Jorge.-
>>> >
>>> >
>>> > 2011/11/23 Alberto Soria <>
>>> >
>>> > Hola Diego,
>>> >>
>>> >> Efectivamente funciona como tú dices. No obstante, con mi data.frame
>>> no me
>>> >> devuelve valores. Creía que era porque tenía algunos valores en blanco
>>> >> pero
>>> >> así también funciona. Por lo menos se que which funciona bien:
>>> >>
>>> >> > data <-
>>> >>
>>> data.frame(input=c("hola","adios",""),output=c("si","",""),res=c("bien","mal","regular"))>
>>> >> which(data=="hola",arr.ind=TRUE)     row col
>>> >> [1,]   1   1
>>> >>
>>> >> Gracias,
>>> >> Alberto.
>>> >>
>>> >>
>>> >>
>>> >> El 23 de noviembre de 2011 16:36, Diego Forteza
>>> >> <diegoforteza@gmail.com>escribió:
>>> >>
>>> >> > Hola Alerto,
>>> >> >
>>> >> > La función which tiene un parámetro (arr.ind) que por defecto es
>>> FALSE,
>>> >> si
>>> >> > lo cambias a TRUE debería ayudarte.
>>> >> >
>>> >> > which(x, arr.ind = TRUE)
>>> >> >
>>> >> > Saludos,
>>> >> > Diego
>>> >> >
>>> >> >
>>> >> > 2011/11/23 Alberto Soria <alberto.soria@ari-solar.es>
>>> >> >
>>> >> >> Hola a todos,
>>> >> >>
>>> >> >> Tengo un "data.frame" de algunas columnas, el cual contiene
>>> objetos de
>>> >> >> tipo
>>> >> >> "character". Me interesa encontrar las coordendas de un cierto
>>> objeto
>>> >> >> dentro del "data.frame". Eso para arrays o para matrices lo hago
>>> con la
>>> >> >> función which(). Pero no consigo hacerlo para esta caso ¿alguna
>>> >> sugerencia
>>> >> >> para realizarlo sin tener que utilizar bucles?
>>> >> >>
>>> >> >> Gracias por adelantado.
>>> >> >>
>>> >> >> Un saludo,
>>> >> >> Alberto Soria.
>>> >> >>
>>> >> >>        [[alternative HTML version deleted]]
>>> >> >>
>>> >> >>
>>> >> >> _______________________________________________
>>> >> >> R-help-es mailing list
>>> >> >> R-help-es@r-project.org
>>> >> >> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>> >> >>
>>> >> >>
>>> >> >
>>> >>
>>> >>        [[alternative HTML version deleted]]
>>> >>
>>> >>
>>> >> _______________________________________________
>>> >> R-help-es mailing list
>>> >> R-help-es@r-project.org
>>> >> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>> >>
>>> >>
>>> >
>>>
>>>        [[alternative HTML version deleted]]
>>>
>>>
>>> _______________________________________________
>>> R-help-es mailing list
>>> R-help-es@r-project.org
>>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>>
>>>
>>
>

	[[alternative HTML version deleted]]