daishen 发表于 2015-1-9 12:08
dat$成交额 = str_extract(dat[,7],"\\d+")

daishen 发表于 2015-1-9 13:15
用 [[:digit:]] 替代 \\d 试一试。
dat$成交额 = str_extract(dat[,7],"[[:digit:]]+")

daishen 发表于 2015-1-9 13:15
用 [[:digit:]] 替代 \\d 试一试。
dat$成交额 = str_extract(dat[,7],"[[:digit:]]+")

daishen 发表于 2015-1-9 14:10
dat$日期 = str_extract(dat[,1],"[[:digit:]]{4}-[[:digit:]]{2}-[[:digit:]]{2}")

dataorz 发表于 2015-1-8 10:55
网页 2
u = "http://app.finance.ifeng.com/hq/stock_daily.php?code=sh600030"
url = htmlParse(u, enco ...