行ごとの値を最初の列の値に置き換えてください。

Question

私の質問はとても簡単です。私は、100行以上の各行にさまざまな数値のデータフレームを持っています。最初の列は常にゼロ以外の数値です。私がしたいのは、各行（最初の列を除く）の最初の数字を最初の列（最初の列の値）で置き換えることです。

ifelseの行とforあなたは、データがそれほど大きくはないですので、それを行うためのシンプルなベクトル化方法がなければならないの行を反復処理するが、ループ...

Answer 1

は別のアプローチは、単純なループを使用することをお勧めsapplyを使用すると、ループ処理よりも効率的です。あなたのデータを仮定すると、データフレームdfである：ここでは

df[,-1] <- sapply(df[,-1], function(x) {ind <- which(x!=0); x[ind] = df[ind,1]; return(x)}) 

、私たちは、それぞれの上にfunctionと最初の列を除くdfのすべての列を適用しています。 functionにおいて、xは、順番に、これらの列のそれぞれである：

1. まずwhichを使用してゼロであり、列の行インデックスを見つけます。
2. これらの行をxに設定して、最初の列の行の対応する値をdfに設定します。
3. 機能で操作が列の上にすべての「ベクトル化」であることを柱

注意を返します。つまり、列の行をループしません。 sapplyの結果は、最初の列ではないdfのすべての列を置き換える処理済み列の行列です。

*applyファミリの機能の優れたレビューについては、thisを参照してください。

これが役に立ちます。

Answer 2

、私はあなたが

for (i in 1:nrow(mydata)) 
{ 
for (j in 2:ncol(mydata) 
    { 

    mydata[i,j]<- ifelse(mydata[i,j]==0 ,0 ,mydata[i,1]) 
    } 
} 

Answer 3

は、私はあなたのための完全にベクトル化ソリューション持って、あなたのデータフレームがdatであると仮定します。

mat <- as.matrix(dat[, -1]) 
pos <- which(mat != 0) 
mat[pos] <- rep(dat[[1]], times = ncol(mat))[pos] 
new_dat <- "colnames<-"(cbind.data.frame(dat[1], mat), colnames(dat)) 

---

例を

set.seed(0) 
dat <- "colnames<-"(cbind.data.frame(1:5, matrix(sample(0:1, 25, TRUE), 5)), 
        c("val", letters[1:5])) 
# val a b c d e 
#1 1 1 0 0 1 1 
#2 2 0 1 0 0 1 
#3 3 0 1 0 1 0 
#4 4 1 1 1 1 1 
#5 5 1 1 0 0 0 

私のコードは、上記得られます

# val a b c d e 
#1 1 1 0 0 1 1 
#2 2 0 2 0 0 2 
#3 3 0 3 0 3 0 
#4 4 4 4 4 4 4 
#5 5 5 5 0 0 0 

---

ベンチマークが必要ですか？

set.seed(0) 
n <- 2000 ## use a 2000 * 2000 matrix 
dat <- "colnames<-"(cbind.data.frame(1:n, matrix(sample(0:1, n * n, TRUE), n)), 
        c("val", paste0("x",1:n))) 

## have to test my solution first, as aichao's solution overwrites `dat` 

## my solution 
system.time({mat <- as.matrix(dat[, -1]) 
      pos <- which(mat != 0) 
      mat[pos] <- rep(dat[[1]], times = ncol(mat))[pos] 
      "colnames<-"(cbind.data.frame(dat[1], mat), colnames(dat))}) 
# user system elapsed 
# 0.352 0.056 0.410 

## solution by aichao 
system.time(dat[,-1] <- sapply(dat[,-1], function(x) {ind <- which(x!=0); x[ind] = dat[ind,1]; x})) 
# user system elapsed 
# 7.804 0.108 7.919 

私のソリューションは20倍高速です！