创建ID以重塑数据集

时间:2017-03-01 23:26:11

标签: r

第一次发帖,主要是因为我厌倦了把头撞在墙上。

提前感谢您查看此内容。

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

 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

这更接近我所寻找的内容,但很难用于查找信息。

告诉我,如果我错了,但看起来我需要为州,城市,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

1 个答案:

答案 0 :(得分:1)

如果使用dplyr是一个选项,您可以使用:

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

请注意,订单丢失