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)))