Caro Benilton,
Segue um exemplo reproduzível.
library(RColorBrewer)
dfm <- data.frame(Solo=c("LVA", "LVD"), col=rep("#000000", 2))
mypalette <- brewer.pal(3,"Greys")
var <- data.frame(wrong=unique(dfm$Sol),
right=mypalette[2:3])
for (i in seq(along = dimnames(var)[[1L]])){
dfm[,2][which(dfm[,1] == var[[i,1]])] <- var[[i,2]]
}
Obrigado
Alisson Lucrécio da Costa
________________________________
From: Benilton Carvalho <[email protected]>
To: r-br <[email protected]>; Alisson Lucrecio <[email protected]>
Sent: Wednesday, May 22, 2013 10:26 AM
Subject: Re: [R-br] Duvida plot base1
dificil, muito dificil, ser preciso na ausencia de um exemplo reproduzivel...
mas, acho que o problema resume-se 'a falta de aspas em torno do valor...
blah <- '#D9D9D9'
b
Em 22 de maio de 2013 10:16, Alisson Lucrecio
<[email protected]> escreveu:
> Caro Colegas,
> Bom dia.
>
> Eu estou tentando construir uma PCA no base, mas estou entendo alguns
> problema.
>
> Tenho uma data.frame com uma célula com valor "#F7F7F7" (dm.x[,1+i]) e
> gostaria de substitui-la por outro valor de acordo com o valor de uma célula
> especifica,
>
> assim tenho:
>
> dm.x[,2][which(dm.x[,1] == 0)] <- #D9D9D9
>
>
> Erro.
>
> Mensagens de aviso perdidas:
> In `[<-.factor`(`*tmp*`, which(dm.x[, 1 + i] == var[[ii, 1]]), value =
> c(NA_integer_, :
> invalid factor level, NAs generated
>
> Obrigando
>
> Alisson Lucrécio da Costa
>
> _______________________________________________
> R-br mailing list
> [email protected]
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código
> mínimo reproduzível._______________________________________________
R-br mailing list
[email protected]
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código
mínimo reproduzível.
