讀取水平組織的CSV文件

Question

在R中，是否有像read.csv這樣的函數讀取文件頭部位於左側（或右側）而不是頂部，並且數據從左到右排列？

所以數據會看起來像：

var1,1,2,3,4,5 

看爲read.table和read.csv的文檔，似乎沒有任何彈出。我看到使用這些函數的最佳選擇是使用read.table，然後構造另一個表，其列是原始數據的行等等。

Answer 1

比方說，你的文件被稱爲「data.csv」，它包含：

var1,1,2,3,4,5,6 
var2,2.1,3.9,4.6,5.2,6.1 
var3,M,F,M,F,M,M 

注var1和var3有6個值，但var2只有5 所以，這個想法是讀取數據，轉置它，然後使用read.csv。

read.tcsv = function(file, header=TRUE, sep=",", ...) { 

    n = max(count.fields(file, sep=sep), na.rm=TRUE) 
    x = readLines(file) 

    .splitvar = function(x, sep, n) { 
    var = unlist(strsplit(x, split=sep)) 
    length(var) = n 
    return(var) 
    } 

    x = do.call(cbind, lapply(x, .splitvar, sep=sep, n=n)) 
    x = apply(x, 1, paste, collapse=sep) 
    out = read.csv(text=x, sep=sep, header=header, ...) 
    return(out) 

} 

然後，你可以這樣做：

read.tcsv（ 「data.csv」）

var1 var2 var3 
1 1 2.1 M 
2 2 3.9 F 
3 3 4.6 M 
4 4 5.2 F 
5 5 6.1 M 
6 6 NA M