a possible solution using dplyr and tidyr
不知道原po后续要做什么处理 结果不漂亮请见谅...
# set random seed
set.seed(1)
# 产生测试资料
library(dplyr)
dat <- data.frame( name=sample(c("jane","zack","andy"),size=10,replace=T),
food=sample(c("apple","butter","crab","duck","egg"),size=10,replace=T)) %>%
unique()
dat
# name food
# 1 jane butter
# 2 zack apple
# 3 zack duck
# ...以下略
# transform dataframe
library(tidyr)
spread(dat, food, food)
### output ###
# name apple butter crab duck egg
# 1 andy <NA> butter crab duck <NA>
# 2 jane <NA> butter <NA> duck <NA>
# 3 zack apple butter <NA> duck egg
##############
※ 引述《oliversu1211 (oliversu)》之铭言：
: 我想请问有没有什么快速的方法可以转换资料
: 我目前的资料是长这样:
: 王小明 牛奶
: 王小明 奶油
: 王小明 蕃茄
: 我想要转换成:
: 王小明 牛奶 奶油 蕃茄
: 因为资料有好几万笔，所以请教大家有没有什么快速的办法
: 拜托救救我