R 如何按 POSIXct 间隔复制行并将其传递到同一数据帧的顶部

发布于07月06日

我的数据帧如下所示:

 dput(head(sAUR,50))
structure(list(date = structure(c(1475315922, 1475660422, 1475920222, 
1476179992, 1476524422, 1476784232, 1477044062, 1477388482, 1477648302, 
1477911722, 1478256142, 1478515962, 1478775782, 1479120192, 1479380002, 
1479639822, 1479984232, 1480244042, 1480503862, 1480848262, 1481108072, 
1481367882, 1481712272, 1481972082, 1482231892, 1482576282, 1482836082, 
1483095882, 1483440272, 1484304241, 1484564041, 1484823831, 1485428001, 
1485687791, 1486032161, 1486291941, 1486551731, 1486896101, 1487155881, 
1487415671, 1487760031, 1488019821, 1488279601, 1488624021, 1488883821, 
1489143521, 1489488011, 1489747821, 1490007451, 1490352021), class = c("POSIXct", 
"POSIXt"), tzone = ""), layer = c("AUR", "AUR", "AUR", "AUR", 
"AUR", "AUR", "AUR", "AUR", "AUR", "AUR", "AUR", "AUR", "AUR", 
"AUR", "AUR", "AUR", "AUR", "AUR", "AUR", "AUR", "AUR", "AUR", 
"AUR", "AUR", "AUR", "AUR", "AUR", "AUR", "AUR", "AUR", "AUR", 
"AUR", "AUR", "AUR", "AUR", "AUR", "AUR", "AUR", "AUR", "AUR", 
"AUR", "AUR", "AUR", "AUR", "AUR", "AUR", "AUR", "AUR", "AUR", 
"AUR")), row.names = c(NA, 50L), class = "data.frame")

我想将行从2017-02-18 11:01:11(1487415671)复制到2017-03-20 10:57:31(149007451)，并将它们粘贴到数据帧的顶部，同时保留原始数据，

(如果有使用index的解决方案，我也会考虑)

任何帮助都将不胜感激.

sAUR_copy <- subset(sAUR, date %in% 1487415671:1490007451) rbind(sAUR_copy, sAUR) #> date layer #> 40 2017-02-18 12:01:11 AUR #> 41 2017-02-22 11:40:31 AUR #> 42 2017-02-25 11:50:21 AUR #> 43 2017-02-28 12:00:01 AUR #> 44 2017-03-04 11:40:21 AUR #> 45 2017-03-07 11:50:21 AUR #> 46 2017-03-10 11:58:41 AUR #> 47 2017-03-14 11:40:11 AUR #> 48 2017-03-17 11:50:21 AUR #> 49 2017-03-20 11:57:31 AUR #> 1 2016-10-01 11:58:42 AUR #> 2 2016-10-05 11:40:22 AUR #> 3 2016-10-08 11:50:22 AUR #> 4 2016-10-11 11:59:52 AUR #> 5 2016-10-15 11:40:22 AUR #> 6 2016-10-18 11:50:32 AUR #> 7 2016-10-21 12:01:02 AUR #> 8 2016-10-25 11:41:22 AUR #> 9 2016-10-28 11:51:42 AUR #> 10 2016-10-31 12:02:02 AUR #> 11 2016-11-04 11:42:22 AUR #> 12 2016-11-07 11:52:42 AUR #> 13 2016-11-10 12:03:02 AUR #> 14 2016-11-14 11:43:12 AUR #> 15 2016-11-17 11:53:22 AUR #> 16 2016-11-20 12:03:42 AUR #> 17 2016-11-24 11:43:52 AUR #> 18 2016-11-27 11:54:02 AUR #> 19 2016-11-30 12:04:22 AUR #> 20 2016-12-04 11:44:22 AUR #> 21 2016-12-07 11:54:32 AUR #> 22 2016-12-10 12:04:42 AUR #> 23 2016-12-14 11:44:32 AUR #> 24 2016-12-17 11:54:42 AUR #> 25 2016-12-20 12:04:52 AUR #> 26 2016-12-24 11:44:42 AUR #> 27 2016-12-27 11:54:42 AUR #> 28 2016-12-30 12:04:42 AUR #> 29 2017-01-03 11:44:32 AUR #> 30 2017-01-13 11:44:01 AUR #> 31 2017-01-16 11:54:01 AUR #> 32 2017-01-19 12:03:51 AUR #> 33 2017-01-26 11:53:21 AUR #> 34 2017-01-29 12:03:11 AUR #> 35 2017-02-02 11:42:41 AUR #> 36 2017-02-05 11:52:21 AUR #> 37 2017-02-08 12:02:11 AUR #> 38 2017-02-12 11:41:41 AUR #> 39 2017-02-15 11:51:21 AUR #> 401 2017-02-18 12:01:11 AUR #> 411 2017-02-22 11:40:31 AUR #> 421 2017-02-25 11:50:21 AUR #> 431 2017-02-28 12:00:01 AUR #> 441 2017-03-04 11:40:21 AUR #> 451 2017-03-07 11:50:21 AUR #> 461 2017-03-10 11:58:41 AUR #> 471 2017-03-14 11:40:11 AUR #> 481 2017-03-17 11:50:21 AUR #> 491 2017-03-20 11:57:31 AUR #> 50 2017-03-24 11:40:21 AUR

R 如何按 POSIXct 间隔复制行并将其传递到同一数据帧的顶部

推荐答案

R相关问答推荐

如何以编程方式将X轴勾号上的希腊符号合并到R图中？

我可以截断10字节的扩展数并转换为8字节的double吗？

如何使用Cicerone指南了解R Shiny中传单 map 的元素？

通过绘图 Select 线串几何体并为其着色

为什么st_join(ob1，ob2，left = True)返回具有比ob1更多功能的sf对象？

根据R中两个变量的两个条件删除带有dspirr的行

查找图下的面积

带有叠加饼图系列的Highmap

格点中指数、双曲和反双曲模型曲线的正确绘制

用预测NLS处理R中生物学假设之上的误差传播

在某些栏和某些条件下，替换dfs列表中的NA

迭代通过1个长度的字符串长字符R

如何在geom_col中反转条

根据列表中项目的名称合并数据框和列表

将箭头绘制在图形外部，而不是图形内部

在gggraph中显示来自不同数据帧的单个值

有没有办法定制Plot(allEffects())面板标题？

如何在R中创建条形图，使条形图在y轴上围绕0.5而不是0构建条形图？

有毒元素与表观遗传年龄的回归模型

在不重复主题的情况下重新排列组