library(dplyr) ###加载dplyr模块
A<-read.csv("f:\\TEST\\TDD.csv") ####加载数据
D=data.frame(A) #####
A1<-group_by(D,Date_ID) ####分组项
A2<-summarise(A1,cells=n(), ####统计个数
RRC_chenggongshu=sum(RRC_chenggongshu),
RRC_QINGQIUSHU=sum(RRC_qingqiushu),
成功率=round(sum(RRC_chenggongshu)/sum(RRC_qingqiushu)*100,3),
ERABCQI1_qingqiushu=sum(ERABCQI1_qingqiushu)
)
write.csv(A2,"output.csv", row.names = FALSE)'去掉行名。 这可以在写入文件时使用附加参数删除。
执行结果: