求助用R进行融资融券数据的网页抓取

dat$日期= sapply(1:nrow(dat),function(i)str_extract(dat[i,1],"\\d{4}-\\d{2}-\\d{2}"))

dat$成交量 = sapply(1:nrow(dat),function(i) str_extract(dat[i,6],"\\d+"))

dat$成交额 = sapply(1:nrow(dat),function(i) str_extract(dat[i,7],"\\d+"))
只能这样才显示正常

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

我想多截取一些网页3里面的数据，但是这个是在网页里面进行查询的，能否给个代码？谢谢

daishen 发表于 2015-1-8 16:52
dat$成交额 = sapply(1:nrow(dat),function(i) str_extract(dat,"\\d+"))
只能这样才显示正常

请问你这里有没有其它的办法去掉这些数值后面的乱码呢？因为我想放到shiny里面，但是shiny不支持多字节字符，谢谢！！！

用这个更简洁：

dat$日期 = str_extract(dat[,1],"\\d{4}-\\d{2}-\\d{2}")

dat$成交量 = str_extract(dat[,6],"\\d+")

dat$成交额 = str_extract(dat[,7],"\\d+")

dat$涨跌幅 = str_replace(dat[,9],"%","")

daishen 发表于 2015-1-9 12:08
dat$涨跌幅 = str_replace(dat[,9],"%","")

我只需要成交额这个数据，但是不能含有“//”，您看看有什么其它的办法？谢谢！！！