r - 从非因子列生成键列
问题描述
给定一个形式为的数据框
Key.1 Key.2 Value
1 5/25/2018 -10 0.53928999
2 5/25/2018 -10 0.23083204
3 5/25/2018 -10 0.33742676
4 5/25/2018 0 0.53479860
5 5/25/2018 0 0.27612761
6 5/25/2018 0 0.74993199
7 5/25/2018 10 0.01397069
8 5/25/2018 10 0.10553610
9 5/25/2018 10 0.66147883
10 1/17/2018 -10 0.14381738
11 1/17/2018 -10 0.52708544
12 1/17/2018 -10 0.75862925
13 1/17/2018 0 0.45954116
14 1/17/2018 0 0.68467543
15 1/17/2018 0 0.15865298
16 1/17/2018 10 0.01039363
17 1/17/2018 10 0.49886623
18 1/17/2018 10 0.98269967
19 5/25/2018 10 0.10553610
20 5/25/2018 -10 0.33742676
我需要从和的交互中生成一个列Group
,看起来像key.1
key.2
Key.1 Key.2 Value Group
1 5/25/2018 -10 0.53928999 1
2 5/25/2018 -10 0.23083204 1
3 5/25/2018 -10 0.33742676 1
4 5/25/2018 0 0.53479860 2
5 5/25/2018 0 0.27612761 2
6 5/25/2018 0 0.74993199 2
7 5/25/2018 10 0.01397069 3
8 5/25/2018 10 0.10553610 3
9 5/25/2018 10 0.66147883 3
10 1/17/2018 -10 0.14381738 4
11 1/17/2018 -10 0.52708544 4
12 1/17/2018 -10 0.75862925 4
13 1/17/2018 0 0.45954116 5
14 1/17/2018 0 0.68467543 5
15 1/17/2018 0 0.15865298 5
16 1/17/2018 10 0.01039363 6
17 1/17/2018 10 0.49886623 6
18 1/17/2018 10 0.98269967 6
19 5/25/2018 10 0.10553610 3
20 5/25/2018 -10 0.33742676 1
注意最后两行
重要的是, 的值Group
在数据帧中向下上升。我已经设法获得所需的行为
Data$Group <- interaction(paste(Data$Key.1,Data$Key.2),1)
levels(Data$Group) <- 1:length(levels(Data$Group))
levels(Data$Group) <- unique(Data$Group)
然而,这感觉非常不直观和笨拙。
怎样才能使它既短又直观?
值得注意的是,对于什么Key.1
或Key.2
可能是没有真正的限制 - 核心行为只需要Group
由唯一的Key.1
and对定义Key.2
,并在表格中上升。
解决方案
这是一个使用因子的想法:
使用基础 R:
df$Group = as.integer(factor(paste(df$Key.1, df$Key.2),
levels = unique(paste(df$Key.1, df$Key.2))))
或使用mutate
from dplyr
:
library(dplyr)
df = mutate(df, Group = paste(Key.1, Key.2) %>%
factor(., levels = unique(.)) %>%
as.integer())
结果:
Key.1 Key.2 Value Group
1 5/25/2018 -10 0.53928999 1
2 5/25/2018 -10 0.23083204 1
3 5/25/2018 -10 0.33742676 1
4 5/25/2018 0 0.53479860 2
5 5/25/2018 0 0.27612761 2
6 5/25/2018 0 0.74993199 2
7 5/25/2018 10 0.01397069 3
8 5/25/2018 10 0.10553610 3
9 5/25/2018 10 0.66147883 3
10 1/17/2018 -10 0.14381738 4
11 1/17/2018 -10 0.52708544 4
12 1/17/2018 -10 0.75862925 4
13 1/17/2018 0 0.45954116 5
14 1/17/2018 0 0.68467543 5
15 1/17/2018 0 0.15865298 5
16 1/17/2018 10 0.01039363 6
17 1/17/2018 10 0.49886623 6
18 1/17/2018 10 0.98269967 6
19 5/25/2018 10 0.10553610 3
20 5/25/2018 -10 0.33742676 1
数据:
df = structure(list(Key.1 = c("5/25/2018", "5/25/2018", "5/25/2018",
"5/25/2018", "5/25/2018", "5/25/2018", "5/25/2018", "5/25/2018",
"5/25/2018", "1/17/2018", "1/17/2018", "1/17/2018", "1/17/2018",
"1/17/2018", "1/17/2018", "1/17/2018", "1/17/2018", "1/17/2018",
"5/25/2018", "5/25/2018"), Key.2 = c(-10L, -10L, -10L, 0L, 0L,
0L, 10L, 10L, 10L, -10L, -10L, -10L, 0L, 0L, 0L, 10L, 10L, 10L,
10L, -10L), Value = c(0.53928999, 0.23083204, 0.33742676, 0.5347986,
0.27612761, 0.74993199, 0.01397069, 0.1055361, 0.66147883, 0.14381738,
0.52708544, 0.75862925, 0.45954116, 0.68467543, 0.15865298, 0.01039363,
0.49886623, 0.98269967, 0.1055361, 0.33742676)), .Names = c("Key.1",
"Key.2", "Value"), class = "data.frame", row.names = c("1", "2",
"3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14",
"15", "16", "17", "18", "19", "20"))
推荐阅读
- java - 防止过滤适配器数据时重新加载图像 [Android]
- python - 从用户获取文件行输入,从文件中读取,仅返回输入的用户行号上存在的 int 值
- python - 定义一个函数来计算文件中的行数,包含某个子字符串
- android - 当应用程序中连接了firebase但它没有显示正确的结果时我们应该怎么做?
- python - 计算特定时间跨度的数据框列中的最大出现次数
- visual-studio-code - 如何使用 editor.tokenColorCustomizations 而不是工作台更改 vscode 中的编辑器背景颜色
- java - Webclient 发送没有正文的 POST 将得到 IllegalStateException
- cross-compiling - 重建 Android 内核时出现“CROSS_COMPILE_ARM32 未定义或为空”
- jquery - 如何从具有 div 的数组中排除具有孩子的特定父母?
- java - 无递归的二叉树分支求和