R语言获取沪深两市股票日度行情数据 - R语言讨论 - R语言中文网

link管理

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

相关文章推荐

满身肌肉的铁板烧 · Chrome扩展名-如何使用清单v3访问本地 ...· 9 月前 ·

咆哮的抽屉 · DSM 7.1 Docker 安装 ...· 11 月前 ·

聪明的柚子 · addAll方法——向Set集合添加另一个集 ...· 1 年前 ·

大鼻子的大熊猫 · 遗迹灰烬重生噩梦及末日难度配装推荐_1818 ...· 1 年前 ·

咆哮的酱肘子 · 表格中两个数据取最大的数值 - 抖音· 1 年前 ·

用来从网易财经网获取沪深两市股票日度行情数据。
真的学习了

# cntrade R语言版
# 作者：陈堰平（新华指数有限责任公司，[email protected]）
# 使用网易股票数据接口原stata版的作者为：
# 李春涛（中南财经政法大学，[email protected]）
# 张璇（中南财经政法大学，[email protected]）
# example:
# cntrade(c('600000', '000008'), path ='D:/stockprice', start = 20010104, end = 20120124)
cntrade <- function(tickers, path = "", start = 19910101, end = "") {
address <- "http://quotes.money.163.com/service/chddata.html"
field <- "&fields=TCLOSE;HIGH;LOW;TOPEN;LCLOSE;CHG;PCHG;TURNOVER;VOTURNOVER;VATURNOVER;TCAP;MCAP"
if (path == "") {
path <- getwd()
}
if (!file.exists(path)) {
dir.create(path)
}
if (substr(path, nchar(path), nchar(path)) != "/") {
path <- paste(path, "/", sep = "")
}
if (end == "") {
year <- substr(Sys.time(), 1, 4)
month <- substr(Sys.time(), 6, 7)
day <- substr(Sys.time(), 9, 10)
end <- paste(year, month, day, sep = "")
}
count <- 0
tickers <- as.character(tickers)
for (name in tickers) {
while (nchar(name) < 6) {
name <- paste("0", name, sep = "")
}
if (nchar(name) > 6) {
warning(paste("invalid stock code: ", name, sep = ""))
next
}
if (as.numeric(name) > 600000) {
url <- paste(address, "?code=0", name, "&start=", start, "&end=", end, field, sep = "")
} else {
url <- paste(address, "?code=1", name, "&start=", start, "&end=", end, field, sep = "")
}
destfile <- paste(path, name, ".csv", sep = "")
download.file(url, destfile, quiet = TRUE)
count <- count + 1
}
if (count == 0) {
cat("一个数据文件都没下载下来！\n")
} else {
cat("数据下载完成！\n")
cat(paste("共下载", count, "个文件\n", sep = ""))
}
}

复制代码

调用举例

cntrade(c(600000, 000001, 600810))
cntrade('000002', start = 19990101)
cntrade(000002, end = 19990101)
cntrade(c(2, 16))

复制代码

转自 http://yanping.me/cn/blog/2013/02/10/cntrade-r-version/