问题解决基本思想就是把百分数按照字符处理,首先将“%”与数字分离,然后再将数除以100,就可以化成小数了。
year_ratio_pri <- cbind(year_ratio_pri[,1],
data.frame(lapply(year_ratio_pri[,2:4],
function(x) as.numeric(gsub("\\%", "", x))/100)) )
暂时我没用过,思路绝对没问题
最简单的方法,数据框的名称,加上你要提取的列数,示例如下:
需要注意的是,如果只提取单列的话,得到的数据就变成了一个vector,而不再是dataframe的格式了。
如果这个函数本身返回的东西是一个list,那我们可以用$符号来提取,举例如下:sum_and_mean = function(a,b){
sum = a+b
mean = (a+b)/2
return(list(sum = sum, mean = mean))
}
# 当我们call这个function的时候
sum_and_mean(2,4)$sum # 结果等于6
sum_and_mean(2,4)$mean # 结果等于3希望对你有帮助!