我想用零替換特定月份後的每月值。我嘗試過修改Replace NA values in dataframe starting in varying columns但沒有成功。給定數據：R - 按行逐列替換從所選列開始的值

df <- structure(list(Mth1 = c(1L, 3L, 4L, 1L, 2L), 
         Mth2 = c(2L, 3L, 2L, 2L, 2L), 
         Mth3 = c(1L, 2L, 1L, 2L, 3L), 
         Mth4 = c(3L, 1L, 3L, 4L, 2L), 
         ZeroMth = c(1L, 3L, 2L, 4L, 3L)), 
       .Names = c("Mth1", "Mth2", "Mth3", "Mth4", "ZeroMth"), class = "data.frame", 
       row.names = c("1", "2", "3", "4", "5")) 


> df 
    Mth1 Mth2 Mth3 Mth4 ZeroMth 
1 1 2 1 3  1 
2 3 3 2 1  3 
3 4 2 1 3  2 
4 1 2 2 4  4 
5 2 2 3 2  3

我想使用ZeroMth列中的值來指定替換開始的月份。所需的輸出是：

> df1 
    Mth1 Mth2 Mth3 Mth4 
1 0 0 0 0 
2 3 3 0 0 
3 4 0 0 0 
4 1 2 2 0 
5 2 2 0 0

來源

2017-04-26 Andrew Eaves

在每一行（MARGIN = 1）和replace使用apply在最後一列指定索引後的值爲零

t(apply(X = df, MARGIN = 1, function(x) 
    replace(x = x, list = x[NCOL(df)]:(NCOL(df)-1), values = 0))) 
# Mth1 Mth2 Mth3 Mth4 ZeroMth 
#1 0 0 0 0  1 
#2 3 3 0 0  3 
#3 4 0 0 0  2 
#4 1 2 2 0  4 
#5 2 2 0 0  3

來源

2017-04-26 15:35:44

感謝＃d.b使這個緊湊。我花了數小時試圖在幾秒鐘內獲得您提供的解決方案！ –

您也可以使用lapply這樣

setNames(data.frame(lapply(head(seq_along(df), -1), function(i) df[, i] * (i < df$ZeroMth))), 
     head(names(df), -1))

which returns

Mth1 Mth2 Mth3 Mth4 
1 0 0 0 0 
2 3 3 0 0 
3 4 0 0 0 
4 1 2 2 0 
5 2 2 0 0

在這裏，您將遍歷月份矢量的位置，並檢查月份中的元素是否小於指定的零月份。如果是，則返回該值，否則爲0. setNames用於恢復變量名稱。

一些基準

測試後，改變比2X加速更lapply到sapply結果。主要的放緩是由於轉換爲data.frame。

這讓我進一步檢查了一下。這裏是微基準結果。

microbenchmark(
db.mat=t(apply(X = df, MARGIN = 1, function(x) 
     replace(x = x, list = x[NCOL(df)]:(NCOL(df)-1), values = 0))), 
db.df=data.frame(t(apply(X = df, MARGIN = 1, function(x) 
     replace(x = x, list = x[NCOL(df)]:(NCOL(df)-1), values = 0)))), 
lmo.list=setNames(lapply(head(seq_along(df), -1), 
        function(i) df[, i] * (i < df$ZeroMth)), 
        head(names(df), -1)), 
lmo.dfl=setNames(data.frame(lapply(head(seq_along(df), -1), 
         function(i) df[, i] * (i < df$ZeroMth))), 
       head(names(df), -1)), 
lmo.dfs=setNames(data.frame(sapply(head(seq_along(df), -1), 
          function(i) df[, i] * (i < df$ZeroMth))), 
       head(names(df), -1)), 
lmo.listAlt=setNames(lapply(head(seq_along(df), -1), 
        function(i) {temp <- df[, i]; temp[i < df$ZeroMth] <- 0; temp}), 
        head(names(df), -1)), 
lmo.dflAlt=setNames(data.frame(lapply(head(seq_along(df), -1), 
         function(i) {temp <- df[, i]; temp[i < df$ZeroMth] <- 0; temp})), 
       head(names(df), -1)), 
lmo.dfsAlt=setNames(data.frame(sapply(head(seq_along(df), -1), 
          function(i) {temp <- df[, i]; temp[i < df$ZeroMth] <- 0; temp})), 
       head(names(df), -1))) 

Unit: microseconds 
     expr  min  lq  mean median  uq  max neval cld 
     df.mat 135.994 155.2380 161.2480 159.6570 166.785 196.436 100 b 
     db.df 225.231 236.9190 248.3295 246.0430 256.164 340.411 100 c 
    lmo.list 84.960 99.5005 105.8299 104.9175 110.905 156.806 100 a 
    lmo.dfl 439.057 459.1565 480.3425 476.5475 492.656 647.751 100 d 
    lmo.dfs 173.057 187.3120 217.2876 195.8650 202.850 2257.151 100 c 
lmo.listAlt 91.803 108.0535 114.6253 113.1860 118.602 185.602 100 ab 
    lmo.dflAlt 458.158 481.2520 521.6052 498.2155 516.462 2584.163 100 d 
    lmo.dfsAlt 181.610 198.4310 221.5613 204.2755 212.686 1611.395 100 c

哇，lapply與data.frame是超級慢。

來源

2017-04-26 15:40:09 lmo

我們還可以通過

(col(df[-5]) <df$ZeroMth[row(df[-5])])*df[-5] 
# Mth1 Mth2 Mth3 Mth4 
#1 0 0 0 0 
#2 3 3 0 0 
#3 4 0 0 0 
#4 1 2 2 0 
#5 2 2 0 0

來源

2017-04-26 17:28:01 akrun

R - 按行逐列替換從所選列開始的值

回答

一些基準

相關問題