※ 引述《AaronHicks ( )》之铭言：
: [问题类型]:
:
: 程式咨询(我想用R 做某件事情，但是我不知道要怎么用R 写出来)
: [软件熟悉度]:
: 入门(写过其他程式，只是对语法不熟悉)
: [问题叙述]:
: 我有一笔属性是data table的资料
: 里面记录顾客的消费明细
: 格式是这样
: 购买物品 数量
: 客人A 蔬菜 1
: 客人A 鸡肉 2
: 客人B 水果 2
: 客人B 牛肉 1
: 我想把他换成下面这个形式
: 蔬菜 水果 鸡肉 牛肉
: 客人A 1 0 2 0
: 客人B 0 2 0 1
: 有尝试用tidyr里面的spread来转置
: 但会变成
: 蔬菜 水果 鸡肉 牛肉
: 客人A 1 0 0 0
: 客人A 0 0 2 0
: 请问有什么方法可以让客人不重复?
library(dplyr)
library(tidyr)
DF <- read.table(textConnection("
客人 购买物品 数量
客人A 蔬菜 1
客人A 鸡肉 2
客人B 水果 2
客人B 牛肉 1 "), header = TRUE)
spread(DF, 购买物品, 数量, fill = 0)
# 客人 水果 牛肉 蔬菜 鸡肉
# 1 客人A 0 0 1 2
# 2 客人B 2 1 0 0
客人当成一个column就可以了~~~