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"]] 

출력 : ragfield의 코드에서 시작

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

Answer 3

:에서 Excel 파일을 처리하는

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

Answer 4

나는이에 변화를 할 여러 사이트 :

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}}