- library(data.table)
- dt <- data.table(x=c("张三","李四","王五","张三"),y=c("A","B","C","B"),z=c(20,30,40,50),H=c(30,30,80,50),h=c(30,30,80,50))
- dt[,k:=1:4]
- i=5
- colnames <- c("","","A","A","B","C")
- dt[y==colnames[i],i] <- dt[y==colnames[i],i]-dt[y==colnames[i],"k"]
- dt[y==colnames[5],5] <- dt[y==colnames[5],5]-dt[y==colnames[5],"k"]


雷达卡




京公网安备 11010802022788号







