die Daten in R an Kunden-ID Roll- und Produktebene

Question

ich die Daten auf dem Format haben: -

id  product mcg  txn 
101 gold  hotel 1 
101  gold  hotel 2 
101  clas  hotel 22 
101  clas  airline 23 

Ich möchte die Ausgabe als

  hotel_txn airline_txn 
101 gold 3    . 
101 clas 22    23 

kann pls jemand in immer mir helfen, die gewünschte Ausgabe?

Im Grunde bin ich auf der Suche nach einer Alternative zu Case bei Anweisung in SAS?

Answer 1

Wir verwenden xtabs

xtabs(txn~idprod + mcg, transform(df1, idprod = paste(id, product), 
       mcg = paste0(mcg, "_txn"))) 
#   mcg 
#idprod  airline_txn hotel_txn 
# 101 clas   23  22 
# 101 gold   0   3 

Answer 2

Sie können dplyr und tidyr dies zu tun:

library(dplyr) 
library(tidyr) 
df %>% group_by(id, product, mcg) %>% summarise(txn = sum(txn)) %>% spread(mcg, txn) 
Source: local data frame [2 x 4] 
Groups: id, product [2] 

    id product airline hotel 
    <int> <fctr> <int> <int> 
1 101 clas  23 22 
2 101 gold  NA  3 

Answer 3

Reshape2 der dcast Funktion ist für diese Art von Sachen entworfen:

#creates your data frame 
df <- data.frame(id = c(101, 101, 101, 101), 
       product = c("gold", "gold", "clas", "clas"), 
       mcg = c("hotel", "hotel", "hotel", "airline"), 
       txn = c(1, 2, 22, 23)) 

#installs and loads the required package 
install.packages("reshape2") 
library(reshape2) 

#the function you would use to create the new data frame 
df2 <- dcast(df, id + product ~ mcg, value.var = "txn", sum) 

print(df2) 
    id product airline hotel 
1 101 clas  23 22 
2 101 gold  0  3