首先指定 load结果为一个对象 然后此对象的值 即为 str的 数据表名 然后使用  eval(parse(text = l)) 两个函数 将字符串 转可执行对象 即可完成重新赋值

> l <- load("D:\\work\\task\\task_data\\02_12306\\get_inflection_point\\data_ip_pv.Rdata")
> head(l)
[1] "data_ip_pv"
> l
[1] "data_ip_pv"
> data <- eval(parse(text = l))
> head(data)
ip sum_cnt
1 101.200.217.99 5048
2 101.200.241.29 8333
3 223.73.73.113 947
4 112.126.91.76 7432
5 221.234.1.137 1680
6 116.210.38.219 873