首先指定 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