创建一个 ID 来重塑数据集 [重复]

Question

第一次发帖，主要是因为我厌倦了用头撞墙。

提前感谢您查看此内容。

我有一个如下所示的数据框：

 state city x y z
1 OR Portland 8 10 1
2 OR Portland 8 10 4
3 OR Portland 8 10 10
4 NY New York 29 15 10
5 NY New York 29 15 18
6 NJ Trenton 8 10 50
7 NJ Trenton 8 10 60
8 NJ Trenton 8 10 70
9 WA Seattle 1 70 6
10 WA Seattle 1 70 7
11 WA Seattle 1 70 8
12 WA Seattle 1 70 9
13 WA Seattle 1 70 10
14 WA Seattle 1 70 11

我一直在尝试将其重塑为如下所示：

state city  x  y z.1 z.2 z.3 z.4 z.5 z.6
OR Portland 8  10 1   4   10
NY New York 29 15 10  18
NJ Trenton  8  10 50  60  70
WA Seattle  1  70 6   7   8   9   10  11

我一直在使用reshape2这个包，代码如下：

df <- melt(data,id.vars = c("state","city","x","y"),measure.vars = "z")
wide <- dcast(df, state + city + x + y ~ variable)

它为每组 id.vars 返回变量 z 的计数。

我也试过这个：

wide <- dcast(df, state + city + x + y ~ value)

看起来像这样：

state city  x  y  1 4 6 7 etc...
OR Portland 8  10 1 1 0 0
NY New York 29 15 0 0 0 0
NJ Trenton  8  10 0 0 0 0
WA Seattle  1  70 0 0 1 1

这更接近我要查找的内容，但很难用于查找信息。

如果我错了，请告诉我，但看起来我需要为 state、city、x、y 的每个重复值设置一个 id 变量。

我无法想出或找到任何可以让我创建将重复值编号的列的方法，如下所示。

 state city   x  y  z  num
1 OR Portland 8  10 1  1 
2 OR Portland 8  10 4  2
3 OR Portland 8  10 10 3
4 NY New York 29 15 10 1
5 NY New York 29 15 18 2
6 NJ Trenton  8  10 50 1
7 NJ Trenton  8  10 60 2
8 NJ Trenton  8  10 70 3
9 WA Seattle  1  70 6  1
10 WA Seattle 1  70 7  2
11 WA Seattle 1  70 8  3
12 WA Seattle 1  70 9  4
13 WA Seattle 1  70 10 5
14 WA Seattle 1  70 11 6

我将不胜感激任何帮助或关于在哪里继续寻找解决方案的想法。

最好的，

-n

Answer 1

如果使用dplyr 是您可以使用的选项：

library(dplyr)
df %>% 
    group_by(state,city, x, y) %>% 
    mutate(n = row_number()) %>% 
    spread(n, z, sep = '')

请注意，排序会丢失