In[]:=
data=Import["C:\\Users\\nrose\\Desktop\\test.csv"];table=TableForm[data];
"Species" | "Color1" | "Color2" | "Color3" | "Color4" |
"species B" | "black" | "red" | "blue" | "pink" |
"species A" | "yellow" | "black" | "white" | "orange" |
"species c" | "red" | "indigo" | "cream" | "yellow" |
Out[]=
{{Species,Color1,Color2,Color3,Color4},{species B,black,red,blue,pink},{species A,yellow,black,white,orange},{species c,red,indigo,cream,yellow}}
In[]:=
colors=data[[2;;,2;;5]]species=data[[2;;,1]]
Out[]=
{{black,red,blue,pink},{yellow,black,white,orange},{red,indigo,cream,yellow}}
Out[]=
{species B,species A,species c}
In[]:=
(*THISISTOEXTRACTTHECOLORLIST*)uniqueColors=Union[Flatten[colors]]
Out[]=
{black,blue,cream,indigo,orange,pink,red,white,yellow}
In[]:=
newList1=Table[{data[[i,1]],If[MemberQ[colors[[i]],uniqueColors[[1]]],1,0],If[MemberQ[colors[[i]],uniqueColors[[2]]],1,0],If[MemberQ[colors[[i]],uniqueColors[[3]]],1,0],If[MemberQ[colors[[i]],uniqueColors[[4]]],1,0],If[MemberQ[colors[[i]],uniqueColors[[5]]],1,0],If[MemberQ[colors[[i]],uniqueColors[[6]]],1,0],If[MemberQ[colors[[i]],uniqueColors[[7]]],1,0],If[MemberQ[colors[[i]],uniqueColors[[8]]],1,0],If[MemberQ[colors[[i]],uniqueColors[[9]]],1,0]},{i,1,Length[data]}]newList2=Prepend[newList1,Prepend[uniqueColors,"Species"]]
Out[]=
{{Species,1,1,0,0,0,1,1,0,0},{species B,1,0,0,0,1,0,0,1,1},{species A,0,0,1,1,0,0,1,0,1},{species c,0,0,0,0,0,0,0,0,0}}
Out[]=
{{Species,black,blue,cream,indigo,orange,pink,red,white,yellow},{Species,1,1,0,0,0,1,1,0,0},{species B,1,0,0,0,1,0,0,1,1},{species A,0,0,1,1,0,0,1,0,1},{species c,0,0,0,0,0,0,0,0,0}}
In[]:=
TableForm[newList2]
Out[]//TableForm=
Species | black | blue | cream | indigo | orange | pink | red | white | yellow |
Species | 1 | 1 | 0 | 0 | 0 | 1 | 1 | 0 | 0 |
species B | 1 | 0 | 0 | 0 | 1 | 0 | 0 | 1 | 1 |
species A | 0 | 0 | 1 | 1 | 0 | 0 | 1 | 0 | 1 |
species c | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |