data$variableの"variable"の部分に繰り返し処理で異なる変数を入れたい

Question

前提・実現したいこと

以下のようなデータフレームを想定します。変数AとA_Sの差、変数BとB_Sの差をそれぞれ計算し、結果が<=0の場合のみ、変数AとBそれぞれの対応する値を0に置き換えたいです。

> a <- rnorm(5, mean = 10, sd = 1)
> b <- rnorm(5, mean = 10, sd = 2)
> a_s <- rnorm(5, mean = 10, sd = 3)
> b_s <- rnorm(5, mean = 10, sd = 4)
> data = data.frame(A=a, B=b, A_S=a_s, B_S=b_s)
> data
          A         B       A_S       B_S
1  9.238813  8.036957 13.623054 10.218034
2 10.339026 10.015975  8.638876  6.158602
3 10.041441 11.366416  8.523745 17.918932
4  8.189271 12.425429 10.792798  1.836459
5  9.558937 12.847646  5.781692  7.300738

具体的には以下のようなことをしたいのですが、これを繰り返し処理で実現したいです。

> data$A[data$A - data$A_S <= 0] <- 0
> data$B[data$B - data$B_S <= 0] <- 0
> data
          A        B       A_S       B_S
1  0.000000  0.00000 13.623054 10.218034
2 10.339026 10.01598  8.638876  6.158602
3 10.041441  0.00000  8.523745 17.918932
4  0.000000 12.42543 10.792798  1.836459
5  9.558937 12.84765  5.781692  7.300738

発生している問題・エラーメッセージ

繰り返し処理をするのに以下のコードを試したのですが、うまくいきません。
データフレームの変数名にfor分の変数を適用することはできないのでしょうか？

> vector = c("A", "B")
> for (i in vector){
+   data$i[data$i - data$i_S <= 0] <- 0
+ }
 `$<-.data.frame`(`*tmp*`, "i", value = numeric(0)) でエラー: 
  replacement has 0 rows, data has 5

補足情報（FW/ツールのバージョンなど）

Windows10
R version 4.0.0 (2020-04-24)

Answer 1

data$i
だと"i"という列名を意味してしまうのでだめです。

vector = c("A", "B")
for (i in vector){
  data[[i]][data[[i]] - data[[paste(i, "_S", sep = "")]] <= 0] <- 0
}

こんな感じでしょうか。

c.f. $および列名のベクトルを使用してデータフレーム列を動的に選択する