[R-br] Modificar um data frame em uma matriz de comparação múltipla específica
ASANTOS
alexandre.santos em cas.ifmt.edu.br
Segunda Janeiro 23 17:09:58 BRST 2017
Tito,
Muito obrigado ajudou bastante!!
--
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT CEP: 78.200-000
Fone: (+55) 65 99686-6970 (VIVO) (+55) 65 3221-2674 (FIXO)
e-mails:alexandresantosbr em yahoo.com.br
alexandre.santos em cas.ifmt.edu.br
Lattes: http://lattes.cnpq.br/1360403201088680
OrcID: orcid.org/0000-0001-8232-6722 - ResearcherID: A-5790-2016
Researchgate: www.researchgate.net/profile/Alexandre_Santos10
LinkedIn: br.linkedin.com/in/alexandre-dos-santos-87961635
Mendeley:www.mendeley.com/profiles/alexandre-dos-santos6/
======================================================================
Em 16/01/2017 14:06, Tito Conte escreveu:
> Alexandre,
>
>
> Eu te sugiro converter seu resultado para vetor e inserir os nomes
>
> out3 = list()
>
> for(i in seq(1,length(out2)))
> {
> out3[[i]]=as.vector(out2[[i]])
>
> names=
> paste(
> rep(rownames(out2[[i]]),each=ncol(out2[[i]])),
> rep(colnames(out2[[i]]),nrow(out2[[i]]))
> ,sep='_')
>
> names(out3[[i]])=names
>
> }
>
>
>
>
>
>
>
>
>
> Tito Conte
>
>
> Em 11 de janeiro de 2017 21:28, ASANTOS via R-br
> <r-br em listas.c3sl.ufpr.br <mailto:r-br em listas.c3sl.ufpr.br>> escreveu:
>
> Caros Membros,
>
> Eu gostaria de modificar um data frame em uma matriz de
> comparação múltipla específica para tanto tenho um data frame DF
> com a nota dada por dois indivíduos (Indv) para cinco diferentes
> produtos químicos, sendo:
>
> Indv<-c(1,2)
> deltametrina<-c(1,1)
> fipronil<-c(5,3)
> imidaclopride<-c(7,5)
> sulfluramida<-c(3,7)
> tiametoxam<-c(9,9)
> DF<-cbind(Indv,deltametrina,fipronil,imidaclopride,sulfluramida,tiametoxam)
> > DF
> Indv deltametrina fipronil imidaclopride sulfluramida tiametoxam
> [1,] 1 1 5 7 3 9
> [2,] 2 1 3 5 7 9
>
> Depois eu montei uma matriz de comparação múltipla com a
> seguinte regra, a variável (cada produto) com maior valor menos o
> de menor valor e armazenei a nota de cada Indv em um list, sendo:
>
> df <- as.data.frame(t(DF[, -1]))
> out <- lapply(df, function(x) outer(x, x, function(x, y) abs(x-y)))
> out2 <- lapply(out, function(m) {
> dimnames(m) <- list(rownames(df), rownames(df))
> m
> })
> out2
>
> $V1
> deltametrina fipronil imidaclopride sulfluramida
> tiametoxam
> deltametrina 0 4 6 2 8
> fipronil 4 0 2 2 4
> imidaclopride 6 2 0 4 2
> sulfluramida 2 2 4 0 6
> tiametoxam 8 4 2 6 0
>
> $V2
> deltametrina fipronil imidaclopride sulfluramida
> tiametoxam
> deltametrina 0 2 4 6 8
> fipronil 2 0 2 4 6
> imidaclopride 4 2 0 2 4
> sulfluramida 6 4 2 0 2
> tiametoxam 8 6 4 2 0
>
> No entanto, gostaria que meu output fosse:
>
> $V1
> - [deltametrina, fipronil, 4]
> - [deltametrina, imidaclopride, 6]
> - [deltametrina, sulfluramida, 2]
> - [deltametrina, tiametoxam, 8]
> - [fipronil, imidaclopride, 2]
> - [fipronil, sulfluramida, 2]
> - [fipronil, tiametoxam, 4]
> - [imidaclopride, sulfluramida, 4]
> - [imidaclopride, tiametoxam, 2]
> - [sulfluramida, tiametoxam, 6]
>
> $V2
> - [deltametrina, fipronil, 2]
> - [deltametrina, imidaclopride, 4]
> - [deltametrina, sulfluramida, 6]
> - [deltametrina, tiametoxam, 8]
> - [fipronil, imidaclopride, 2]
> - [fipronil, sulfluramida, 4]
> - [fipronil, tiametoxam, 6]
> - [imidaclopride, sulfluramida, 2]
> - [imidaclopride, tiametoxam, 4]
> - [sulfluramida, tiametoxam, 2]
>
> Alguém teria alguma sugestão para ajudar?
>
> Obrigado,
>
> Alexandre
>
> --
> ======================================================================
> Alexandre dos Santos
> Proteção Florestal
> IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato
> Grosso
> Campus Cáceres
> Caixa Postal 244
> Avenida dos Ramires, s/n
> Bairro: Distrito Industrial
> Cáceres - MT CEP: 78.200-000
> Fone: (+55) 65 99686-6970 <tel:%28%2B55%29%2065%2099686-6970>
> (VIVO) (+55) 65 3221-2674 <tel:%28%2B55%29%2065%203221-2674> (FIXO)
> e-mails:alexandresantosbr em yahoo.com.br
> <mailto:e-mails%3Aalexandresantosbr em yahoo.com.br>
> alexandre.santos em cas.ifmt.edu.br
> <mailto:alexandre.santos em cas.ifmt.edu.br>
> Lattes: http://lattes.cnpq.br/1360403201088680
> <http://lattes.cnpq.br/1360403201088680>
> OrcID: orcid.org/0000-0001-8232-6722
> <http://orcid.org/0000-0001-8232-6722> - ResearcherID: A-5790-2016
> Researchgate: www.researchgate.net/profile/Alexandre_Santos10
> <http://www.researchgate.net/profile/Alexandre_Santos10>
> LinkedIn: br.linkedin.com/in/alexandre-dos-santos-87961635
> <http://br.linkedin.com/in/alexandre-dos-santos-87961635>
> Mendeley:www.mendeley.com/profiles/alexandre-dos-santos6/
> <http://www.mendeley.com/profiles/alexandre-dos-santos6/>
> ======================================================================
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br <mailto:R-br em listas.c3sl.ufpr.br>
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> <https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br>
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia
> <http://www.leg.ufpr.br/r-br-guia>) e fornea cdigo mnimo reproduzvel.
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20170123/d77fdbcc/attachment.html>
Mais detalhes sobre a lista de discussão R-br