R语言 使用循环构建dataframe
- 目前有个模块需要动态的确定dataframe的属性和值,属性和值以key=value的形式存在一个str 的list中,使用如下函数循环构建dataframe
1
2
3
4
5
6
7
8
9
10
11
| for(item in dataItems)
{
itempair <- unlist(strsplit(item, "="))
eval(parse(text=sprintf("%s=itempair[2]",itempair[1])))
if(datadf_str!="")
datadf_str=paste(datadf_str,itempair[1],sep=",")
else
datadf_str=itempair[1]
print(datadf_str)
}
datadf=eval(parse(text=sprintf("data.frame(%s)",datadf_str)))
|