Suponhamos que eu tenha esse dois dataframes:
set.seed(123)
df1<-data.frame(rep=rep(1:4,each=360),parc=rep(1:40,each=36),trat=rep(sample(1:10),each=36),tree=rep(1:36,40),med=1,dap_prev=rnorm(1440, mean = 12))
df2<-data.frame(med=rep(1:18,each=10),trat=rep(sample(1:10)),b0=rnorm(180),b1=rnorm(180))
Em df2
preciso recuperar os valores de df2$b0
e df2$b1
que correspondam aos critérios df1$med == df2$med
e df1$trat == df2$trat
. Em seguida criar uma nova coluna em df1
cujo produto é df2$b0 + df2$b1 * df1$dap_prev
.
Tentei com esse comando abaixo, mas claro que não funcionou:
df1$ddap_cm <- df2$b0[df2$med == df1$med & df2$trat == df1$trat] + df2$b1[df1$med == df2$med & df1$trat == df2$trat] * df1$dap_prev
Toda ajuda é bem vinda. Grato.
EDIT:
Acabei encontrando uma solução bem simples com dplyr
library(dplyr)
df1 <- left_join(df1, df2, by = c("med", "trat")) # copia as colunas df2$b0 e df2$b1 que cumpram os critérios
df1$ddap_cm <- df1$b0 + (df1$b1*df1$dap_prev)
df.1$trat
quando acredito que vc queria dizerdf1$trat
. Teste e veja se atende ao pedido!df1$dap_prev
não é indexado pelas condições lógicas?