read.table用逗號分隔的值和每個元素內的逗號

Question

我試圖從csv文件逗號分隔創建表。我知道不是所有的行都有相同數量的元素，所以我會寫一些代碼來消除這些行。問題是有行包含數字（以千計），其中也包含另一個逗號。我不能夠正常分裂的那些行的，這裏是我的代碼：

pURL <- "http://financials.morningstar.com/ajax/exportKR2CSV.html?&callback=?&t=EI&region=FRA&order=asc" 
res <- read.table(pURL, header=T, sep='\t', dec = '.', stringsAsFactors=F) 
x <- unlist(lapply(keyRatios, function(u) strsplit(u,split='\n')) [[1]]) 

Answer 1

你需要利用任何read.table或read.delim的quote =說法......

res <- read.delim(pURL, header=F, sep=',', dec = '.', stringsAsFactors=F , quote = "\"" , fill = TRUE , skip = 2) 

的分隔符爲","不是"\t"。寫成千萬的數字是總是在此文件中引用，因此您可以使用quote參數使R忽略與quote = "\""的引號內的逗號，並且您希望跳過前兩行，並使用fill = TRUE填充空格在不平坦的線上。

head(res) 

#       2003-12 2004-12 2005-12 2006-12 2007-12 2008-12 2009-12 2010-12 2011-12 2012-12 TTM 
#2   Revenue EUR Mil 2,116 2,260 2,424 2,690 2,908 3,074 3,268 3,892 4,190 4,989 5,034 
#3   Gross Margin % 60.6 60.3 57.3 58.2 57.6 56.9 56.1 55.5 55.4 55.8 56.1 
#4 Operating Income EUR Mil  365  404  394  460  505  515  555  618  683  832 841 
#5  Operating Margin % 17.2 17.9 16.2 17.1 17.4 16.7 17.0 15.9 16.3 16.7 16.7 
#6  Net Income EUR Mil  200  227  289  331  371  389  402  472  518  584 594 
#7 Earnings Per Share EUR 3.90 4.30 5.44 6.22 3.48 3.62 3.78 4.36 4.82 2.77 2.80 

我設置的res以後這樣的列名...

names(res) <- res[1,]; res <- res[-1,] 

這給了更好的格式。