求问怎么把字符串改成变量名？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1. library(rvest)
   
2. url <- "https://en.wikipedia.org/wiki/List_of_S%26P_500_companies"
   
3. SP500 <- url %>%
   
4.   html() %>%
   
5.   html_nodes(xpath='//*[@id="mw-content-text"]/div/table[1]') %>%
   
6.   html_table()
   
7. SP500 <- SP500[[1]]
   
8. Tix=SP500$Symbol
   
9. Tix
   
10. library(quantmod)
    
11. for (Ticks in Tix) {
    
12.   getSymbols(Ticks)
    
13.   csv.name=paste(Ticks,'.csv',sep = "")
    
14.   Save.Data=data.frame(Ticks)
    
15.   write.csv(Ticks,csv.name)
    
16.   print(Ticks)
    
17. }

复制代码

尝试使用代码 一键下载S&P500的所有成份股，并分别储存到csv文件中，未果。在第二个循环中，会导致储存的是一个字符串(股票的代码)而不是股票的数据。请问该如何解决？
谢谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：字符串

write.csv(Save.Data, csv.name)

cheetahfly 发表于 2019-1-3 21:46
write.csv(Save.Data, csv.name)

这样储存的也是一个字符串，内容为想要的标的的名字而不是数据啊……

runminle 发表于 2019-1-4 09:38
这样储存的也是一个字符串，内容为想要的标的的名字而不是数据啊……

1. library(rvest)
   
2. url <- "https://en.wikipedia.org/wiki/List_of_S%26P_500_companies"
   
3. SP500 <- url %>%
   
4.     html() %>%
   
5.     html_nodes(xpath='//*[@id="mw-content-text"]/div/table[1]') %>%
   
6.     html_table()
   
7. SP500 <- SP500[[1]]
   
8. Tix=SP500$Symbol
   
9. for (Ticks in Tix) {
   
10.     csv.name = paste0(Ticks, ".csv")
    
11.     save.data = SP500[SP500[[1]] == Ticks,]
    
12.     write.csv(save.data, csv.name, row.names = F)
    
13.     print(Ticks)
    
14. }

复制代码

eval(parse(text = paste0("Save.Data <- data.frame(", Ticks, ")")))

cheetahfly 发表于 2019-1-4 10:16
eval(parse(text = paste0("Save.Data

这个可以用了，十分感谢！