いくつかの要因を1つの列から2進数にバイナリに変換するR

Question

ベータ種の豊富さを比較し、現在のデータをRベータパートプログラムで使用する有無のバイナリコードに変換したい。

私は2つの列を持っています。最初の列は種がサンプリングされた場所、もう1つはすべての魚種が観察された列です（場合によっては18+種）。以下は、私が働いているものの例である：

---

#Site  Species 
#0001-HIL yellow bullhead, brown bullhead, goldfish 
#0001-ETC yellow bullhead, goldfish, emerald shiner 
#0001-BAP brown bullhead, emerald shiner 

---

私は上記のdata.frameを取ると、この行列にそれを回すために、適切なRコードを使用したいと思います：

  #yellow bullhead___brown bullhead___goldfish___emerald shiner 
#0001-HIL   1     1    1    0 
#0001-ETC   1     0    1    1 
#0001-BAP   0     1    0    1 

（すべて＃を使用することを許してください。それ以外の場合はテーブルを作成できませんでした）。

私はリサーブ、サプライ、メルトなどの使用について知っていますが、実際に使用する手掛かりはありません。私はちょうど10,000行以上のデータを持っています。

ご協力いただければ幸いです。

Answer 1

私たちは簡単に「種の列のdownvoteは何

library(qdapTools) 
d1 <- mtabulate(strsplit(as.character(df1$Species), ",")) 
row.names(d1) <- df1$Site 
d1 
#   brown bullhead emerald shiner goldfish brown bullhead 
#0001-HIL    1    0   1    0 
#0001-ETC    0    1   1    0 
#0001-BAP    0    1   0    1 
#   yellow bullhead 
#0001-HIL    1 
#0001-ETC    1 
#0001-BAP    0