R 如何连接字符串
我对此做了一些研究,并试图让它在我自己的工作,但无济于事。我正在尝试将几个字符串连接在一起,以便从web下载CSV文件 这个小脚本只适用于一只股票R 如何连接字符串,r,R,我对此做了一些研究,并试图让它在我自己的工作,但无济于事。我正在尝试将几个字符串连接在一起,以便从web下载CSV文件 这个小脚本只适用于一只股票 read.csv("http://financials.morningstar.com/ajax/exportKR2CSV.html?&t=AAPL",header=T,stringsAsFactors = F,skip = 2)[,-c(12)]->spreadsheet 我正在尝试连接这些字符串,但事情对我来说并不顺利 stock
read.csv("http://financials.morningstar.com/ajax/exportKR2CSV.html?&t=AAPL",header=T,stringsAsFactors = F,skip = 2)[,-c(12)]->spreadsheet
我正在尝试连接这些字符串,但事情对我来说并不顺利
stocks <- c("AXP","BA","CAT","CSCO")
for (s in stocks)
{
paste("read.csv("http://financials.morningstar.com/ajax/exportKR2CSV.html?&t=",s,header=T,stringsAsFactors = F,skip = 2)[,-c(12)]->spreadsheet)
paste("write.table(stockdata, "C:/Users/rshuell001/Desktop/files/",s,".csv", sep=",", row.names=FALSE, col.names=FALSE))
}
Or.....
stocks <- c("AXP","BA","CAT","CSCO")
for (s in stocks)
{
cat("read.csv("http://financials.morningstar.com/ajax/exportKR2CSV.html?&t=",s,header=T,stringsAsFactors = F,skip = 2)[,-c(12)]->spreadsheet)
cat("write.table(stockdata, "C:/Users/rshuell001/Desktop/files/",s,".csv", sep=",", row.names=FALSE, col.names=FALSE))
}
stocks我们可以使用sprintf
创建URL的向量
urls <- sprintf("http://financials.morningstar.com/ajax/exportKR2CSV.html?&t=%s", stocks)
我们可以使用sprintf
创建URL的vector
urls <- sprintf("http://financials.morningstar.com/ajax/exportKR2CSV.html?&t=%s", stocks)
您还需要交替使用单引号和双引号,或者对它们进行转义,例如粘贴(“你好”,“世界”)
。您还需要交替使用单引号和双引号,或者对它们进行转义,例如粘贴(“你好”,“世界”)
。哇!很酷。只剩下一个问题。股票行情已经不见了,所以我真的不知道是什么。如何获取数据集中的标记以识别我正在查看的内容?或者,我怎么能简单地分别保存每个文件,股票代码就是文件名?@RYGY7272你可以用stocks
命名lst
,也就是说names(lst)现在正试图实现这一点,但我的VS不断崩溃。哇!很酷。只剩下一个问题。股票行情已经不见了,所以我真的不知道是什么。如何获取数据集中的标记以识别我正在查看的内容?或者,我怎么能简单地分别保存每个文件,股票代码就是文件名?@RYGY7272你可以用stocks
来命名lst
,也就是说names(lst)现在正试图实现这一点,但我的VS不断崩溃。
library(data.table)
lst <- lapply(urls, fread, skip= 2, drop=12)