根據r中的其他列創建新列

Question

我有一個物種名稱為Habitat_id的數據Habitat_id 。 我想基於Habitat_id創建新列，並根據其Habitat_id分配種類。 例如，我的數據框如下所示：

Species_Name Habitat_id  
abc cde         85  
acc bcc         26  
acd dcc         138  
acp acp         35  
acp acp         37  
acp acp         38  
bpp cpp         26  
qpp qlp         26  
qpp qlp         22  
qpp qlp         24

我希望新的數據框看起來像：

Species_Name 22 24 26 35 37 38 85 138  
abc cde       0  0  0  0  0  0  1  0  
acc bcc       0  0  1  0  0  0  0  0  
acd dcc       0  0  0  0  0  0  0  1  
acp acp       0  0  0  1  1  1  0  0  
bpp cpp       0  0  1  0  0  0  0  0  
qpp qlp       1  1  1  0  0  0  0  0

Answer 1

我們可以用table做

df2 <- as.data.frame.matrix(table(df1))
df2 <- cbind(Species_Name = row.names(df2), df2)
row.names(df2) <- NULL