2つの異なるベクトルからベクトル選択値を作成する

Question

現在、このコードは、dx $ resがdx $ x0の値に応じてdx $ val1またはdx $ val2から値を選択するベクトルである場合の処理​​を行います。

x0<-c(1,2,1,2,2,1) 
val1<-c(8,6,4,5,3,2) 
val2<-c(4,8,6,7,9,5) 
dx<-data.frame(x0,val1,val2) 
dx$res<-(dx$x0==1)*dx$val1+(dx$x0==2)*dx$val2 

適用機能を使用するようにこれを行うより洗練された方法があるかどうかを知りたいと思います。

Answer 1

オプションは、model.matrixとrowSumsです。また、 'x0'列の 'n'個の別個の要素の方が一般的です。

dx$res <- rowSums(dx[-1]*model.matrix(~ factor(x0) - 1 , dx)) 
dx$res 
#[1] 8 8 4 7 9 2