R:在特定的行和列上循环自定义函数

时间:2019-01-21 09:57:58

标签: r apply lapply

我想遍历选定的列及其所有行,并应用If Else嵌套函数以替换所有元素。

Table[c("Pb","Pc","Pd","Pe","Pf")] <-  lapply(Table[c("Pb","Pc","Pd","Pe","Pf")], function(x) {
                                       if (x <0.50) {round_any(x,0.05)}
                                  else if (x <1.00) {round_any(x,0.10)}
                                  else if (x <2.00) {round_any(x,0.25)}
                                  else if (x <5.00) {round_any(x,0.50)}
                                  else              {round_any(x,1)}
                                              })

代码运行,但出现以下警告:     1: In if (x < 0.5) { ... : the condition has length > 1 and only the first element will be used,结果并不完全符合我的预期。还有另一种方法可以产生此输出吗?

1 个答案:

答案 0 :(得分:1)

Table[c("Pb","Pc","Pd","Pe","Pf")] <- lapply(Table[c("Pb","Pc","Pd","Pe","Pf")], function(x) {
                                       ifelse (x <0.50, round_any(x,0.05),
                                       ifelse (x <1.00, round_any(x,0.10),
                                       ifelse (x <2.00, round_any(x,0.25),
                                       ifelse (x <5.00, round_any(x,0.50), 
                                               round_any(x,1)))))})