累積合計の最大値を新しい列に抽出する

debugcn 投稿 Dev

m_c

データセットのサンプル:

testdf <- data.frame(risk_11111 = c(0,0,1,2,3,0,1,2,3,4,0), risk_11112 = c(0,0,1,2,3,0,1,2,0,1,0))

そして、累積合計の最大値のみが維持される新しい列を含む出力データセットが必要です。

testdf <- data.frame(risk_11111 = c(0,0,1,2,3,0,1,2,3,4,0), 
                           risk_11111_max = c(0,0,0,0,3,0,0,0,0,4,0),
                           risk_11112 = c(0,0,1,2,3,0,1,2,0,1,0),
                           risk_11112_max = c(0,0,0,0,3,0,0,2,0,1,0))

私は、ベクトルのいくつかの論理的なサブセット化を適用して、位置インデックスを使用して最大値を抽出し、新しい変数に変更すると推測しています。
新しい変数の値を抽出する方法がわかりません。
ありがとう

ライザンデル

ベース R で次のようなもの:

lapply(testdf, function(x) {
  x[diff(x) > 0] <- 0
  x
})

そして、すべてを1つのdata.frameに含めるには:

dfout <- cbind(testdf, lapply(testdf, function(x) {
  x[diff(x) > 0] <- 0
  x
}))
names(dfout) <- c(names(testdf), 'risk_1111_max', 'risk_1112_max')

出力：

   risk_11111 risk_11112 risk_1111_max risk_1112_max
1           0          0             0             0
2           0          0             0             0
3           1          1             0             0
4           2          2             0             0
5           3          3             3             3
6           0          0             0             0
7           1          1             0             0
8           2          2             0             2
9           3          0             0             0
10          4          1             4             1
11          0          0             0             0

この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。

侵害の場合は、連絡してください[email protected]