Question

我们的想法是将频率表转换为geom_density可以处理的内容（ggplot2）。

从频率表开始

> dat <- data.frame(x = c("a", "a", "b", "b", "b"), y = c("c", "c", "d", "d", "d"))
> dat
  x y
1 a c
2 a c
3 b d
4 b d
5 b d

使用dcast制作频率表

> library(reshape2)
> dat2 <- dcast(dat, x + y ~ ., fun.aggregate = length)
> dat2
  x y count
1 a c     2
2 b d     3

如何扭转局面？ melt似乎不是答案：

> colnames(dat2) <- c("x", "y", "count")
> melt(dat2, measure.vars = "count")
  x y variable value
1 a c    count     2
2 b d    count     3

Answer 1

由于您可以使用任何聚合函数，因此如果不知道如何反转聚合，您将无法撤消dcast（聚合）。

对于length，明显的反转是rep。对于sum或mean这样的聚合，没有明显的反转（假设您没有将原始数据保存为属性）

反转length

的一些选项

您可以使用ddply

library(plyr)
ddply(dat2,.(x), summarize, y = rep(y,count))

或更简单

as.data.frame(lapply(dat2[c('x','y')], rep, dat2$count))