根据每个ID的条件优化多次替换

Question

哪个是最快的方法？我有许多“值”列（> 100），其中当“ valueAux”为零时必须替换值。 始终将“ value1Aux”（对于同一行）设置为零，应始终将“ Value1”列设置为零

原始数据：

windows

获得所需数据：

UIApplication

要优化的代码：

df <- data.frame(ID = c(1,1,1,1,1,1,1,1),
 value1 = c(23, 0, 4, 1, 0, 0, 8, 12),
   value2 = c(0, 12, 56, 7, 8, 1, 8, 12),
  value1aux = c(0, 0, 89, 65, 0, 0, 0, 1),
  value2aux = c (1,1,0,0,4,15,67,12))