Можно ли использовать dcast без агрегатной функции?

Возможный дубликат:
Это изменение R должно быть простым, но

dcast из reshape2 работает без формулы, где нет дубликатов. Возьмем следующие данные:

df <- structure(list(id = c("A", "B", "C", "A", "B", "C"), cat = c("SS", 
"SS", "SS", "SV", "SV", "SV"), val = c(220L, 222L, 223L, 224L, 
225L, 2206L)), .Names = c("id", "cat", "val"), class = "data.frame", row.names = c(NA, 
-6L))

Я хотел бы dcast эти данные и просто иметь значения в таблицах без применения каких-либо функций к value.var, включая по умолчанию length.

В этом случае он отлично работает.

> dcast(df, id~cat, value.var="val")
  id  SS   SV
1  A 220  224
2  B 222  225
3  C 223 2206

Но когда есть повторяющиеся переменные, fun по умолчанию - length. Есть ли способ избежать этого?

df2 <- structure(list(id = c("A", "B", "C", "A", "B", "C", "C"), cat = c("SS", 
"SS", "SS", "SV", "SV", "SV", "SV"), val = c(220L, 222L, 223L, 
224L, 225L, 220L, 1L)), .Names = c("id", "cat", "val"), class = "data.frame", row.names = c(NA, 
-7L))

> dcast(df2, id~cat, value.var="val")
Aggregation function missing: defaulting to length
  id SS SV
1  A  1  1
2  B  1  1
3  C  1  2

В идеале, я хочу добавить fun = NA, так как не пытайтесь объединить value.var. Результат, который мне нужен, когда dcast2 dc2:

 id  SS  SV
1  A 220 224
2  B 222 225
3  C 223 220
4. C NA  1

Ответы

Ответ 1

Я не думаю, что есть способ сделать это напрямую, но мы можем добавить дополнительный столбец, который поможет нам

df2 <- structure(list(id = c("A", "B", "C", "A", "B", "C", "C"), cat = c("SS", 
"SS", "SS", "SV", "SV", "SV", "SV"), val = c(220L, 222L, 223L, 
224L, 225L, 220L, 1L)), .Names = c("id", "cat", "val"), class = "data.frame", row.names = c(NA, 
-7L))

library(reshape2)
library(plyr)
# Add a variable for how many times the id*cat combination has occured
tmp <- ddply(df2, .(id, cat), transform, newid = paste(id, seq_along(cat)))
# Aggregate using this newid and toss in the id so we don't lose it
out <- dcast(tmp, id + newid ~ cat, value.var = "val")
# Remove newid if we want
out <- out[,-which(colnames(out) == "newid")]
> out
#  id  SS  SV
#1  A 220 224
#2  B 222 225
#3  C 223 220
#4  C  NA   1

Ответ 2

Я понял то же самое решение, в то время как Дасон отвечал на мою.

Я понял, что dcast просто не знает, как бороться с дубликатами. То, как я понял, как это обмануть, - это добавить еще один уникальный идентификатор, чтобы он не путался с дубликатами.

В этом примере:

df <- ddply(df2, .(cat), function(x){ x$id2 = 1:nrow(x); x})
>  dcast(df, id+id2~cat, value.var="val")[,-2]
  id  SS  SV
1  A 220 224
2  B 222 225
3  C 223 220
4  C  NA   1