[R-br] Duvida plot base1

[Alisson Lucrecio]

Caro Benilton,

Segue um exemplo mas próximo do real.

library(RColorBrewer)

dfm <- data.frame(Solo=rep(c("LVA", "LVD"), 3), col=rep("#000000", 6))

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 <beniltoncarvalho em gmail.com>
To: Alisson Lucrecio <alissonluc em yahoo.com.br> 
Cc: r-br <r-br em listas.c3sl.ufpr.br> 
Sent: Wednesday, May 22, 2013 1:27 PM
Subject: Re: [R-br] Duvida plot base1
 

novamente.... exemplo reproduzivel.

bom trabalho

Em 22 de maio de 2013 12:49, Alisson Lucrecio
<alissonluc em yahoo.com.br> escreveu:
> O exemplo mostrei coincidiu de ser 2 e 2, mas o meu problema é com um numero
> diferente (ex. dfm com 36 lina e na var ex, 4). Assim teria que ficar
> replicando os meus data.frames (var) para coincidir. Se consegui resolver
> por outra forma ficaria muito mais fácil.
>
> Obrigado.
>
> Alisson Lucrécio da Costa
> ________________________________
> From: Benilton Carvalho <beniltoncarvalho em gmail.com>
> To: Alisson Lucrecio <alissonluc em yahoo.com.br>
> Cc: r-br <r-br em listas.c3sl.ufpr.br>
> Sent: Wednesday, May 22, 2013 12:36 PM
>
> Subject: Re: [R-br] Duvida plot base1
>
> Alisson,
>
> o que exatamente vc quer fazer e' substituir  a coluna 'col'  de dfm
> pela coluna 'right' de var? E' isso?
>
> pq nao usar merge?
>
> saida = merge(dfm, var, by.x='Solo', by.y='wrong')
> saida[[2]] = NULL
> names(saida) = names(dfm)
>
> ou apenas o match?
>
> i = match(dfm$Solo, var$wrong)
> dfm$col = var$wrong[i]
>
> ?
>
> b
>
> Em 22 de maio de 2013 10:44, Alisson Lucrecio
> <alissonluc em yahoo.com.br> escreveu:
>> 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 <beniltoncarvalho em gmail.com>
>> To: r-br <r-br em listas.c3sl.ufpr.br>; Alisson Lucrecio
>> <alissonluc em yahoo.com.br>
>> 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
>> <alissonluc em yahoo.com.br> 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
>>> R-br em listas.c3sl.ufpr.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) e forneça
>>> código
>>> mínimo reproduzível.
>>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130522/2474e6f0/attachment.html>