※ 引述《clansoda (小笨)》之銘言：
: 各位好，我這次碰到的問題是假設我有以下一個dataframe
: 長毛象 山地 10
: 狐狸 山地 50
: 老虎 山地 60
: 猴子 山地 30
: 長毛象 雪地 25
: 狐狸 雪地 15
: 老虎 雪地 8
: 猴子 雪地 33
: 第一跟第二個column都是factor vector，第三個vector是numeric的格式
: 假設我想要做動物跟棲息地是否相關，我想弄成row是以動物作為分隔
: 而column是以棲息地作為分隔
: 做完應該會像是
: 雪地 山地
: 長毛象
: 狐狸
: 老虎
: 猴子
: 然後將值填入裡面，我用table function可是裡面沒有可以填入值的arugment
: 我之前看過reshape的melt function，試了很久也沒成功，不知道有沒有其他方法呢?
library(data.table)
library(magrittr)
library(dplyr)
library(tidyr)
dat <- fread('
長毛象 山地 10
狐狸 山地 50
老虎 山地 60
猴子 山地 30
長毛象 雪地 25
狐狸 雪地 15
老虎 雪地 8
猴子 雪地 33')
dat %>% spread(V2, V3)
# V1 山地 雪地
# 1: 老虎 60 8
# 2: 狐狸 50 15
# 3: 長毛象 10 25
# 4: 猴子 30 33
會有警告：id() is deprecated為正常，等待tidyr作者改版 (dplyr::id要被棄用了)
(tidyr跟dplyr都是Hadley跟Rstudio的作品)