以下是我的数据集主管：
ID L.NO Root1 Root2 Root3
1 2120 SX NA NA
2 2121 NC NA NA
3 2122 NA NA SX
4 2223 NA CX PX
5 2224 NA SX LX
我想计算非空变量并通过分组ID放入新列。我怎么能在R？中做到这一点？
ID L.NO Root1 Root2 Root3 NewCol
1 2120 SX NA NA 2
2 2121 NC NA NA 2
3 2122 NA NA SX 2
4 2223 NA CX PX 1
5 2224 NA SX LX 1