wenqiuc
CA_0 = as.character(CA_0)
就把data.frame转为character vector了,试试这个,思路是用regex ,\\d
匹配逗号+数字,然后删掉匹配的字符串
df <- data.frame(a= c("7,7","7,6","7.5"),b=c("72,7","7,6","7.5"),stringsAsFactors = F)
df
# df
a b
1 7,7 72,7
2 7,6 7,6
3 7.5 7.5
df2 <- apply(df,2,function(x) gsub(",\\d","",x))
df2 <- as.data.frame(df2)
df2
# df2
a b
1 7 72
2 7 7
3 7.5 7.5
不过不知道你的数据具体是什么样,所以正则表达式可能不大安全,用的时候得多试多改几次小心替换错了