如何將文件導入到mathematica並通過標題名稱引用列

Question

我有一個TSV文件，其中包含許多列;

genename X1 X100 X103 X105 X115 X117 X120 X122 X123   
Gene20728 0.415049 0.517868 0.820183 0.578081 0.30997 0.395181 

我想將其導入到Mathematica中，然後提取並對列進行排序。

即，我想提取列[「X117」]並對其進行排序，並輸出排序列表。

Answer 1

table = Import["file.csv", "Table"]; 
x117 = Drop[table[[All, 7]], 1]; 
sorted = Sort[x117]; 

Answer 2

我不認爲有一個內置的方法來實現你似乎要求的智能結構。 以下是我認爲是各種可能方法中最直接的實現。

stringdata = "h1\th2\n1\t2\n3\t4\n5" 

h1 h2 
1 2 
5 4 
3 

Clear[ImportColumnsByName]; 
ImportColumnsByName[filename_] := 
Module[{data, headings, columns, struc}, 
    data = ImportString[filename, "TSV"]; 
    headings = data[[1]]; 
    columns = Transpose[PadRight[data[[2 ;; -1]]]]; 
    MapThread[(struc[#1] = #2) &, {headings, columns}]; 
    struc 
    ] 

Clear[test]; 
test = ImportColumnsByName[stringdata]; 
test["h1"] 
test["h2"] 
Sort[test["h1"]] 

輸出：對ragfield的解決方案

{1, 3, 5} 
{2, 4, 0} 
{1, 3, 5} 

大廈，這是一個更加動態的方法，但是這種結構每次調用進行調用定位和部分。

Clear[ImportColumnsByName]; 
ImportColumnsByName[filename_] := Module[{data, temp}, 
    data = PadRight@ImportString[filename, "Table"]; 
    temp[heading_] := 
    Rest[data[[All, Position[data[[1]], heading][[1, 1]]]]]; 
    temp 
    ] 

Clear[test]; 
test = ImportColumnsByName[stringdata]; 
test["h1"] 
test["h2"] 
Sort[test["h1"]] 

輸出：

{1, 3, 5} 
{2, 4, 0} 
{1, 3, 5} 

Answer 3

從ragfield的代碼開始：

table = Import["file.csv", "Table"]; 
colname = "X117" 
x117 = Drop[table[[All, Position[tb[[1, All]], colname]//Flatten]], 
      1]//Flatten; 
sorted = Sort[x117]; 

Answer 4

用於處理來自Excel文件的各種網站我做這樣的變化：

data = {{"h1", "h2"}, {1, 2}, {3, 4}, {5, ""}}; 

find[x_String] := Cases[Transpose[data], {x, __}] 

In[]=find["h1"] 

Out[]={{"h1", 1, 3, 5}} 

如果是可以的衣衫襤褸的數據通常很容易墊上它，使其適合轉座。另外我的一些來源是慵懶的格式，有時頭改變的情況下，有時是頭前一個空行，依此類推：

find2[x_String,data_List] := 
Cases[Transpose[data], {___, 
    y_String /; 
    StringMatchQ[StringTrim[y], x, IgnoreCase -> True], __}] 

In[]=find2["H1",data] 
Out[]={{"h1", 1, 3, 5}} 

data2 = {{"", ""}, {"H1 ", "h2"}, {1, 2}, {3, 4}, {5, ""}}; 

In[]=find2["h1",data2] 
Out[]={{,"H1 ", 1, 3, 5}}