R转置和分组

Question

我的数据集如下：

ClientNo   Smoke 1 Smoke 2 Smoke 3  
0021         Y      Y     Y

我希望数据看起来像：

{{1}}

任何帮助？

Answer 1

可以使用dcast()包中的data.table来实现：

library(data.table)
dcast(DT, Client ~ rowid(Client, prefix = "Smoke "), value.var = "Smoke")
#   Client Smoke 1 Smoke 2 Smoke 3
#1:     21       Y       Y       Y

数据

DT <- fread("Client   Smoke
            0021     Y
            0021     Y
            0021     Y")