搜索
搜索

获取最大年份和最小月份的日期索引

Israel 发表于 Dev
91
以色列

我有3个变量的数据集：ID，Date和Years_service。像这样：

library(data.table)
data <- structure(list(ID = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2), Date = structure(c(1230768000, 
1233446400, 1235865600, 1238544000, 1241136000, 1243814400, 1246406400, 
1249084800, 1251763200, 1254355200, 1257033600, 1259625600, 1262304000, 
1264982400, 1267401600, 1270080000, 1272672000, 1275350400, 1277942400, 
1280620800, 1283299200, 1285891200, 1288569600, 1291161600, 1293840000, 
1296518400, 1298937600, 1301616000, 1304208000, 1306886400, 1309478400, 
1312156800, 1314835200, 1317427200, 1320105600, 1322697600, 1325376000, 
1328054400, 1330560000, 1333238400, 1335830400, 1338508800, 1341100800, 
1343779200, 1346457600, 1349049600, 1351728000, 1354320000, 1356998400, 
1359676800, 1362096000, 1364774400, 1367366400, 1370044800, 1372636800, 
1375315200, 1377993600, 1380585600, 1383264000, 1385856000, 1388534400, 
1391212800, 1393632000, 1396310400, 1398902400, 1401580800, 1404172800, 
1406851200, 1409529600, 1412121600, 1414800000, 1417392000, 1420070400, 
1422748800, 1425168000, 1427846400, 1430438400, 1433116800, 1435708800, 
1438387200, 1441065600, 1443657600, 1446336000, 1448928000, 1451606400, 
1454284800, 1456790400, 1459468800, 1462060800, 1464739200, 1467331200, 
1470009600, 1472688000, 1475280000, 1330560000, 1333238400, 1335830400, 
1338508800, 1341100800, 1343779200, 1346457600, 1349049600, 1351728000, 
1354320000, 1356998400, 1359676800, 1362096000, 1364774400, 1367366400, 
1370044800, 1372636800, 1375315200, 1377993600, 1380585600, 1383264000, 
1385856000, 1388534400, 1391212800, 1393632000, 1396310400, 1398902400, 
1401580800, 1404172800, 1406851200, 1409529600, 1412121600, 1414800000, 
1417392000, 1420070400, 1422748800, 1425168000, 1427846400, 1430438400, 
1433116800, 1435708800, 1438387200, 1441065600, 1443657600, 1446336000, 
1448928000, 1451606400, 1454284800, 1456790400, 1459468800, 1462060800, 
1464739200, 1467331200, 1470009600, 1472688000, 1475280000), class = 
c("POSIXct", 
"POSIXt"), tzone = "UTC"), Years_service = c(19, 19, 19, 19, 
19, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 21, 21, 21, 
21, 21, 21, 21, 21, 21, 21, 21, 21, 22, 22, 22, 22, 22, 22, 22, 
22, 22, 22, 22, 22, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, 
23, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 24, 25, 25, 25, 
25, 25, 25, 25, 25, 25, 25, 25, 25, 26, 26, 26, 26, 26, 26, 26, 
26, 26, 26, 26, 26, 27, 27, 27, 27, 27, 8, 8, 8, 8, 8, 9, 9, 
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 
10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 
12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 13, 13, 13), 
month_1 = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 
3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 
9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 
2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 
8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 3, 4, 5, 6, 7, 8, 9, 10, 11, 
12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 
6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 
12, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10)), .Names = c("ID", "Date", 
"Years_service", "month_1"), row.names = c(NA, -150L), class = 
c("data.table", 
"data.frame"))

我想要一个包含每个ID的新变量，该日期的服务年限最大，日期的月度最小。像这样：

     ID       Date Years_service    Date_1
  1:  1 2009-01-01            19    2016-06-01
  2:  1 2009-02-01            19    2016-06-01
  3:  1 2009-03-01            19    2016-06-01
  4:  1 2009-04-01            19    2016-06-01
  5:  1 2009-05-01            19    2016-06-01
 ---                                          
  146:  2 2016-06-01            12    2016-08-01
  147:  2 2016-07-01            12    2016-08-01
  148:  2 2016-08-01            13    2016-08-01
  149:  2 2016-09-01            13    2016-08-01
  150:  2 2016-10-01            13    2016-08-01

我想要的输出是 Date_1

我尝试了这个： 

data[,Date_1 := Date[which.max(Years_service) & which.min(month_1)], by = ID]

但是没有用 我该如何实现？

阿克伦

一种选择是获取.I其中max每个“ ID”均使用min“ Years_service”的行的行索引（），然后使用该方法，获取Imum索引“ month_1”，以子集对应于按“ ID”分组的值的“日期” ”，然后on与“ ID”列上的原始数据结合以创建“ Date_1”列

i1 <- data[, .I[Years_service == max(Years_service)], ID]$V1
data[data[i1, Date[which.min(month_1)], ID], Date_1 :=V1, on = .(ID)]
data
#     ID       Date Years_service month_1     Date_1
#  1:  1 2009-01-01            19       1 2016-06-01
#  2:  1 2009-02-01            19       2 2016-06-01
#  3:  1 2009-03-01            19       3 2016-06-01
#  4:  1 2009-04-01            19       4 2016-06-01
#  5:  1 2009-05-01            19       5 2016-06-01
# ---                                               
#146:  2 2016-06-01            12       6 2016-08-01
#147:  2 2016-07-01            12       7 2016-08-01
#148:  2 2016-08-01            13       8 2016-08-01
#149:  2 2016-09-01            13       9 2016-08-01
#150:  2 2016-10-01            13      10 2016-08-01

或从Data.table子集中提取与最小“ month_1”相对应的“日期”

data[, Date_1 := .SD[Years_service == max(Years_service), 
                  Date[which.min(month_1)]], ID]

或另一种选择是order将“ Date_1”分配给first按“ ID”分组的“ Date”

data[order(-Years_service, month_1), Date_1 := Date[1], ID]

或使用 tidyverse

library(tidyverse)
data %>% 
   group_by(ID) %>% 
   arrange(desc(Years_service), month_1) %>%
   mutate(Date_1 = first(Date))

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

从日期获取月份和年份

选择给定年份和月份的最大日期

如何从日期获取月份和年份

通过提供月份和年份获取日期

获取特定日期的日期，月份和年份

从日期字符串获取日期，月份和年份值

如何获取基于月份和年份的日期名称和天数

如何从给定日期获取月份名称和年份？

如何从节点js中的日期获取月份和年份

如何从SQL中的日期获取月份和年份

验证日期月份和年份

从SQL获取年份和月份

获取当前月份和年份

配置单元查询以按年份和ID获取日期列组的最小值和最大值

从多行获取日期的最小和最大时间

如何获取年份和两个日期之间的年份列表的月份名称

使用moment.js获取月份和年份的所有日期和日期

复杂索引只匹配月份和年份

Swift NSDate获取当前日期，但去除年份，月份和日期

获取从给定日期到当前日期的所有月份和年份列表

使用日期时间索引将年份和月份的堆叠DataFrame转换为DataFrame

废日期来自年份和月份功能

Javascript或jQuery中的日期，月份和年份

orderBy降序日期，月份和年份

按日期列的月份和年份分组

仅从日期获得月份和年份

Sequelize 如何比较日期的年份和月份

我如何从月份和年份中获取第一个日期和最后一个日期 |Excel |用于月份和年份的微调器|

获取日期的月份和日期

TOP 榜单

  1. 1

    Qt Creator Windows 10 - “使用 jom 而不是 nmake”不起作用

  2. 2

    使用next.js时出现服务器错误，错误：找不到react-redux上下文值；请确保组件包装在<Provider>中

  3. 3

    SQL Server中的非确定性数据类型

  4. 4

    Swift 2.1-对单个单元格使用UITableView

  5. 5

    如何避免每次重新编译所有文件？

  6. 6

    在同一Pushwoosh应用程序上Pushwoosh多个捆绑ID

  7. 7

    Hashchange事件侦听器在将事件处理程序附加到事件之前进行侦听

  8. 8

    应用发明者仅从列表中选择一个随机项一次

  9. 9

    在 Avalonia 中是否有带有柱子的 TreeView 或类似的东西？

  10. 10

    HttpClient中的角度变化检测

  11. 11

    在Wagtail管理员中，如何禁用图像和文档的摘要项？

  12. 12

    如何了解DFT结果

  13. 13

    Camunda-根据分配的组过滤任务列表

  14. 14

    错误：找不到存根。请确保已调用spring-cloud-contract：convert

  15. 15

    为什么此后台线程中未处理的异常不会终止我的进程？

  16. 16

    构建类似于Jarvis的本地语言应用程序

  17. 17

    使用分隔符将成对相邻的数组元素相互连接

  18. 18

    您如何通过 Nativescript 中的 Fetch 发出发布请求？

  19. 19

    通过iwd从Linux系统上的命令行连接到wifi（适用于Linux的无线守护程序）

  20. 20

    使用React / Javascript在Wordpress API中通过ID获取选择的多个帖子/页面

  21. 21

    使用 text() 獲取特定文本節點的 XPath

热门标签

归档