r - 拼接时间间隔 posixct-6ren

r - 拼接时间间隔 posixct

转载作者：行者123 更新时间：2023-12-02 21:07:40

我有以下时间间隔，我想将其分成 10 个等间隔的实例。

head(data)             stoptime           starttime1 2014-08-19 14:52:04 2014-08-19 15:22:042 2014-08-19 16:27:14 2014-08-19 17:17:333 2014-08-19 18:05:59 2014-08-19 18:09:124 2014-08-19 17:25:35 2014-08-19 17:29:065 2014-08-19 18:23:29 2014-08-19 18:57:346 2014-08-19 07:39:15 2014-08-19 07:48:49

我可以使用此代码获取中点

one_day$midtime = as.POSIXct((as.numeric(one_day$stoptime) + as.numeric(one_day$starttime)) /2 , origin = '1970-01-01')

但是，当我尝试将此代码扩展到十个等距实例时，它完全错误。为什么会发生这种情况以及如何修复此代码？

one_day$first = as.POSIXct((as.numeric(one_day$stoptime) + as.numeric(one_day$starttime)) * .1 , origin = '1970-01-01')one_day$second = as.POSIXct((as.numeric(one_day$stoptime) + as.numeric(one_day$starttime)) * .2, origin = '1970-01-01')one_day$thrid = as.POSIXct((as.numeric(one_day$stoptime) + as.numeric(one_day$starttime)) * .3, origin = '1970-01-01')one_day$fourth = as.POSIXct((as.numeric(one_day$stoptime) + as.numeric(one_day$starttime)) * .4, origin = '1970-01-01')one_day$fifth = as.POSIXct((as.numeric(one_day$stoptime) + as.numeric(one_day$starttime)) * .5, origin = '1970-01-01')one_day$sixth = as.POSIXct((as.numeric(one_day$stoptime) + as.numeric(one_day$starttime)) * .6, origin = '1970-01-01')one_day$seventh = as.POSIXct((as.numeric(one_day$stoptime) + as.numeric(one_day$starttime)) * .7, origin = '1970-01-01')one_day$eighth = as.POSIXct((as.numeric(one_day$stoptime) + as.numeric(one_day$starttime)) * .8, origin = '1970-01-01')one_day$ninth = as.POSIXct((as.numeric(one_day$stoptime) + as.numeric(one_day$starttime)) * .9, origin = '1970-01-01')

head(one_day)  diff.time            stoptime           starttime             midtime               first1      1800 2014-08-19 14:52:04 2014-08-19 15:22:04 2014-08-19 15:07:04 1978-12-05 03:49:242      3019 2014-08-19 16:27:14 2014-08-19 17:17:33 2014-08-19 16:52:23 1978-12-05 04:10:283       193 2014-08-19 18:05:59 2014-08-19 18:09:12 2014-08-19 18:07:35 1978-12-05 04:25:314       211 2014-08-19 17:25:35 2014-08-19 17:29:06 2014-08-19 17:27:20 1978-12-05 04:17:285      2045 2014-08-19 18:23:29 2014-08-19 18:57:34 2014-08-19 18:40:31 1978-12-05 04:32:066       574 2014-08-19 07:39:15 2014-08-19 07:48:49 2014-08-19 07:44:02 1978-12-05 02:20:48               second               thrid              fourth               fifth               sixth1 1987-11-08 12:38:49 1996-10-11 21:28:14 2005-09-15 06:17:39 2014-08-19 15:07:04 2023-07-23 23:56:282 1987-11-08 13:20:57 1996-10-11 22:31:26 2005-09-15 07:41:54 2014-08-19 16:52:23 2023-07-24 02:02:523 1987-11-08 13:51:02 1996-10-11 23:16:33 2005-09-15 08:42:04 2014-08-19 18:07:35 2023-07-24 03:33:064 1987-11-08 13:34:56 1996-10-11 22:52:24 2005-09-15 08:09:52 2014-08-19 17:27:20 2023-07-24 02:44:485 1987-11-08 14:04:12 1996-10-11 23:36:18 2005-09-15 09:08:25 2014-08-19 18:40:31 2023-07-24 04:12:376 1987-11-08 09:41:36 1996-10-11 17:02:25 2005-09-15 00:23:13 2014-08-19 07:44:02 2023-07-23 15:04:50              seventh              eighth               ninth1 2032-06-26 08:45:53 2041-05-30 17:35:18 2050-05-04 02:24:432 2032-06-26 11:13:20 2041-05-30 20:23:49 2050-05-04 05:34:183 2032-06-26 12:58:37 2041-05-30 22:24:08 2050-05-04 07:49:394 2032-06-26 12:02:16 2041-05-30 21:19:44 2050-05-04 06:37:125 2032-06-26 13:44:44 2041-05-30 23:16:50 2050-05-04 08:48:566 2032-06-25 22:25:38 2041-05-30 05:46:27 2050-05-03 13:07:15

dput(data1)structure(list(stoptime = structure(c(1408477924, 1408483634, 1408489559, 1408487135, 1408490609, 1408451955, 1408452727, 1408498708, 1408486644, 1408454996), class = c("POSIXct", "POSIXt"), tzone = "EST"),     starttime = structure(c(1408479724, 1408486653, 1408489752,     1408487346, 1408492654, 1408452529, 1408455826, 1408501153,     1408488389, 1408458514), class = c("POSIXct", "POSIXt"), tzone = "EST")), .Names = c("stoptime", "starttime"), row.names = c(NA, 10L), class = "data.frame")

最佳答案

1:序列

首先，您必须将数据帧的列转换为 POSIXct 或 POSIXlt 类，因为 r 基函数 seq 有一个用于该类对象的方法。

看看这个简化的代码:

library(lubridate)
a <- "2014-08-19 14:52:04"
b <- "2014-08-19 15:22:04"

a <- ymd_hms(a)
b <- ymd_hms(b)

a
[1] "2014-08-19 14:52:04 UTC"
b
[1] "2014-08-19 15:22:04 UTC"

然后您只需使用 seq 函数并将参数 length.out 设置为您要查找的序列的值。代码将自动创建一个从开始到结束均分的值序列。

seq(a, b, length.out = 10)
[1] "2014-08-19 14:52:04 UTC" "2014-08-19 14:55:24 UTC"
[3] "2014-08-19 14:58:44 UTC" "2014-08-19 15:02:04 UTC"
[5] "2014-08-19 15:05:24 UTC" "2014-08-19 15:08:44 UTC"
[7] "2014-08-19 15:12:04 UTC" "2014-08-19 15:15:24 UTC"
[9] "2014-08-19 15:18:44 UTC" "2014-08-19 15:22:04 UTC"

2:矢量化步骤 1

既然您知道如何实现目标，那么只需尝试如何根据值对其进行矢量化即可。

我敢打赌有几种方法，这里是一种。使用 maply 函数，您可以循环遍历元素并将(第一个对象的)第一个元素与(第二个对象的)第一个元素匹配，依此类推。请记住，您必须使用 MoreArg 参数指定哪些参数是固定的。

这是代码:

mapply(seq,
       to = data1$starttime,
       from = data1$stoptime,
       MoreArgs = list(length.out = 10),
       SIMPLIFY = F)

这会生成您想要的数据列表，但遗憾的是不是所需的格式:

[[1]]
 [1] "2014-08-19 14:52:04 UTC" "2014-08-19 14:55:24 UTC"
 [3] "2014-08-19 14:58:44 UTC" "2014-08-19 15:02:04 UTC"
 [5] "2014-08-19 15:05:24 UTC" "2014-08-19 15:08:44 UTC"
 [7] "2014-08-19 15:12:04 UTC" "2014-08-19 15:15:24 UTC"
 [9] "2014-08-19 15:18:44 UTC" "2014-08-19 15:22:04 UTC"

[[2]]
 [1] "2014-08-19 16:27:14 UTC" "2014-08-19 16:32:49 UTC"
 [3] "2014-08-19 16:38:24 UTC" "2014-08-19 16:44:00 UTC"
 [5] "2014-08-19 16:49:35 UTC" "2014-08-19 16:55:11 UTC"
 [7] "2014-08-19 17:00:46 UTC" "2014-08-19 17:06:22 UTC"
 [9] "2014-08-19 17:11:57 UTC" "2014-08-19 17:17:33 UTC"

[[3]]
 [1] "2014-08-19 18:05:59 UTC" "2014-08-19 18:06:20 UTC"
 [3] "2014-08-19 18:06:41 UTC" "2014-08-19 18:07:03 UTC"
 [5] "2014-08-19 18:07:24 UTC" "2014-08-19 18:07:46 UTC"
 [7] "2014-08-19 18:08:07 UTC" "2014-08-19 18:08:29 UTC"
 [9] "2014-08-19 18:08:50 UTC" "2014-08-19 18:09:12 UTC"

[[4]]
 [1] "2014-08-19 17:25:35 UTC" "2014-08-19 17:25:58 UTC"
 [3] "2014-08-19 17:26:21 UTC" "2014-08-19 17:26:45 UTC"
 [5] "2014-08-19 17:27:08 UTC" "2014-08-19 17:27:32 UTC"
 [7] "2014-08-19 17:27:55 UTC" "2014-08-19 17:28:19 UTC"
 [9] "2014-08-19 17:28:42 UTC" "2014-08-19 17:29:06 UTC"

[[5]]
 [1] "2014-08-19 18:23:29 UTC" "2014-08-19 18:27:16 UTC"
 [3] "2014-08-19 18:31:03 UTC" "2014-08-19 18:34:50 UTC"
 [5] "2014-08-19 18:38:37 UTC" "2014-08-19 18:42:25 UTC"
 [7] "2014-08-19 18:46:12 UTC" "2014-08-19 18:49:59 UTC"
 [9] "2014-08-19 18:53:46 UTC" "2014-08-19 18:57:34 UTC"

[[6]]
 [1] "2014-08-19 07:39:15 UTC" "2014-08-19 07:40:18 UTC"
 [3] "2014-08-19 07:41:22 UTC" "2014-08-19 07:42:26 UTC"
 [5] "2014-08-19 07:43:30 UTC" "2014-08-19 07:44:33 UTC"
 [7] "2014-08-19 07:45:37 UTC" "2014-08-19 07:46:41 UTC"
 [9] "2014-08-19 07:47:45 UTC" "2014-08-19 07:48:49 UTC"

[[7]]
 [1] "2014-08-19 07:52:07 UTC" "2014-08-19 07:57:51 UTC"
 [3] "2014-08-19 08:03:35 UTC" "2014-08-19 08:09:20 UTC"
 [5] "2014-08-19 08:15:04 UTC" "2014-08-19 08:20:48 UTC"
 [7] "2014-08-19 08:26:33 UTC" "2014-08-19 08:32:17 UTC"
 [9] "2014-08-19 08:38:01 UTC" "2014-08-19 08:43:46 UTC"

[[8]]
 [1] "2014-08-19 20:38:28 UTC" "2014-08-19 20:42:59 UTC"
 [3] "2014-08-19 20:47:31 UTC" "2014-08-19 20:52:03 UTC"
 [5] "2014-08-19 20:56:34 UTC" "2014-08-19 21:01:06 UTC"
 [7] "2014-08-19 21:05:38 UTC" "2014-08-19 21:10:09 UTC"
 [9] "2014-08-19 21:14:41 UTC" "2014-08-19 21:19:13 UTC"

[[9]]
 [1] "2014-08-19 17:17:24 UTC" "2014-08-19 17:20:37 UTC"
 [3] "2014-08-19 17:23:51 UTC" "2014-08-19 17:27:05 UTC"
 [5] "2014-08-19 17:30:19 UTC" "2014-08-19 17:33:33 UTC"
 [7] "2014-08-19 17:36:47 UTC" "2014-08-19 17:40:01 UTC"
 [9] "2014-08-19 17:43:15 UTC" "2014-08-19 17:46:29 UTC"

[[10]]
 [1] "2014-08-19 08:29:56 UTC" "2014-08-19 08:36:26 UTC"
 [3] "2014-08-19 08:42:57 UTC" "2014-08-19 08:49:28 UTC"
 [5] "2014-08-19 08:55:59 UTC" "2014-08-19 09:02:30 UTC"
 [7] "2014-08-19 09:09:01 UTC" "2014-08-19 09:15:32 UTC"
 [9] "2014-08-19 09:22:03 UTC" "2014-08-19 09:28:34 UTC"

在这一点上，我想这只是相同数据操作的问题，但我(现在)找不到办法。

关于r - 拼接时间间隔 posixct，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/35233543/

文章推荐： laravel - 来自 Postman 的授权 header 在 Laravel 中不可见

文章推荐： docker - 在容器启动时使用cassandra用户登录

文章推荐： tensorflow - 组合条件和控制依赖关系

javascript - 从数组中删除元素(拼接)
.splice() 方法的基本问题，以及如何最好地从数组中删除元素。我想使用 .splice() 从数组中删除一个项目，但是当我这样做时，我希望返回原始数组减去删除的元素。 .splice()
用于过滤图库的 Javascript 拼接
我正在过滤同位素库。单击按钮会添加到称为过滤器的数组中。这是正常工作的，但是当用户单击事件按钮时，我希望从数组中删除过滤的类别。由于某种原因，事实并非如此。这是特定的代码: if($(this).h
mercurial - 拼接 Mercurial 存储库时间线中的不连续性
几个月前，我将一个 Subversion 存储库转换为 Mercurial，结果在我的修订历史中留下了两个毫无意义的空白。我试图弄清楚我是否可以拼接间隙，但我一直无法让工具精确地完成我想要的。在项目
JavaScript:子弹和敌人在一个数组中(拼接，重新索引)
我制作简单的射击游戏，但有一个问题(有时): GIF Game problem 3颗子弹被移除(但只有一颗子弹相撞)。子弹和敌人(蓝色方 block )位于一个数组中(var objects = []
javascript - 在不应用的情况下将一个数组插入(拼接？)到另一个数组中
假设我们在 JavaScript 中有两个数组，[3,4,7] 和 [5,6]。在不排序或使用 .apply 的情况下，将 [5,6] 插入索引 2 处的 [3,4,7] 的最佳方式是什么实现结果数
JavaScript - 纸张警报对话框后的 polymer : this. 拼接
我试图在从数组中删除项目时添加纸质警报对话框，但我似乎无法理解这是如何工作的。我现在可以使用以下功能，无需对话框: _delete(e) { var index = this.t
jquery - 拼接 jQuery 元素数组
我正在尝试使用 splice() 从 jQuery 对象中删除元素. 但是，最终发生的情况是所有其他项目都被删除。我假设这是由于使用 splice 重新索引造成的。我要淡入每个所以我需要从顶部开始
javascript - 拼接 JavaScript 数组
这是我尝试从数组中动态删除一个值的尝试 $('.btn-remove').click(function() { var players = ["compare","13076","13075"
image - 实时视频(图像)拼接
我正在考虑在 Visual Studio 2008 上使用 OpenCV 2.3.1 实时拼接来自 2 个或更多(目前可能是 3 或 4 个)摄像头的图像。但是，我很好奇它是如何完成的。最近研究了
python - 拼接 NumPy 数组
我在将两个数组拼接在一起时遇到问题。假设我有两个数组: a = array([1,2,3]) b = array([4,5,6]) 当我执行 vstack((a,b)) 时，我得到了 [[1,2,3]
php - 拼接 css 文件并即时缩小
我拼接 css 文件以提高性能。现在我想包含一个 minify 函数，如下所示。我该如何合并它？ function minify( $css ) { $css = preg_replace(
matlab - 拼接 matlab 向量
我有两个 matlab 向量。第一个有 N 个元素，另一个有 k*N。我知道 k 是什么，我想拼接列表，使第一个向量中的每个元素出现在下一个向量中相应的 k 元素之前。例如: k = 3 x = [1
javascript - 拼接 forEach 循环无法正常工作
我有以下上下文: https://jsfiddle.net/eqntaqbt/2/ obj.forEach(function(user, index){ var userName = user
Javascript 拼接 while push 在事件处理程序中
假设你有一个像这样的数组: var arr= [{id:121, v:'a'}, {id:232, 'b'}]; 你需要找到 id: 232 并删除它，所以你可以这样做: for (var i = a
performance - 为什么构建/拼接 F# 引用如此缓慢？
似乎是通过建立报价语法非常低效。例如创建一个整数列表 let q1 = List.foldBack (fun n acc -> ) [1..100000] Real: 00:00:05.714,
flash - 如何录制/拼接 FLV 片段？
我正在为一家希望为其用户创建服务的公司开发应用程序。该公司目前提供时长约为 1.5 小时的视频，他们想要集成的服务是让用户能够“录制”这个较大视频的剪辑，以创建本质上的精彩片段。此服务的最终结果将是
perl - 拼接:当 LENGTH 的末尾超过数组时可以吗？
splice 当 OFFSET 在数组中但 LENGTH 的末尾超过数组末尾时，是否可以？最佳答案易于尝试。 $ perl -wE' my @a = "a".."e"; my @b =
python - Tkinter 确认按钮和游戏 GUI(拼接(？))
以前从未使用过 Tkinter，我不太确定如何使用它或它是如何工作的。 Windows IDLE Shell。 import time from tkinter import * input("Pre
javascript - jQuery 拼接 inArray 与多个关键对象
这里是 Javascript 新手 -- 我有以下数组: var group = ({ one: value1, two: value2, three:
javascript - 拼接 JSON 列表中的元素 - javascript
我的屏幕上打印了以下行: Would you like to pay €xx to POS_ID Latte X 1....€2.50-Salad X 1....€4.00-Wrap X 1..

行者123

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城