第一次发帖,主要是因为我厌倦了把头撞在墙上。
提前感谢您查看此内容。
我有一个如下所示的数据框:
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
答案 0 :(得分:1)
如果使用dplyr
是一个选项,您可以使用:
library(dplyr)
df %>%
group_by(state,city, x, y) %>%
mutate(n = row_number()) %>%
spread(n, z, sep = '')
请注意,订单丢失