将列表缩减为按时间排序的 xts 对象-6ren

将列表缩减为按时间排序的 xts 对象

转载作者：行者123 更新时间：2023-12-04 10:15:27

我在列表中有一些数据，如下所示:

> y
$ABMD.Rank
     ABMD.Rank

$ATVI.Rank
     ATVI.Rank

$ADBE.Rank
     ADBE.Rank

$AMD.Rank
                    AMD.Rank
2020-04-01 17:00:00       22

$AKAM.Rank
     AKAM.Rank

$ALXN.Rank
     ALXN.Rank

$ALGN.Rank
     ALGN.Rank

$LNT.Rank
     LNT.Rank

$AMZN.Rank
     AMZN.Rank

$AAL.Rank
     AAL.Rank

$AMGN.Rank
     AMGN.Rank

$ADI.Rank
     ADI.Rank

$ANSS.Rank
     ANSS.Rank

$AAPL.Rank
                    AAPL.Rank
2020-03-31 17:00:00        22

我想将列表缩减为 xts具有预期输出的对象或数据框:

2020-03-31 15:30:00 CHRW.Rank            
2020-03-31 17:00:00 AAPL.Rank
2020-04-01 17:00:00 AMD.Rank
2020-04-01 21:00:00 CDNS.Rank
2020-04-02 18:00:00 CTXS.Rank 
2020-04-03 19:00:00 CTAS.Rank
2020-04-06 17:00:00 BKNG.Rank

哪个是按时间排序的。

数据:

myList <- list(ABMD.Rank = structure(numeric(0), class = c("xts", "zoo"
), .indexCLASS = c("POSIXct", "POSIXt"), tclass = c("POSIXct", 
"POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
"POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "ABMD.Rank")), 
    ATVI.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "ATVI.Rank")), 
    ADBE.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "ADBE.Rank")), 
    AMD.Rank = structure(22, class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(1585753200, tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = c(1L, 1L), .Dimnames = list(NULL, "AMD.Rank")), 
    AKAM.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "AKAM.Rank")), 
    ALXN.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "ALXN.Rank")), 
    ALGN.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "ALGN.Rank")), 
    LNT.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "LNT.Rank")), 
    AMZN.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "AMZN.Rank")), 
    AAL.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "AAL.Rank")), 
    AMGN.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "AMGN.Rank")), 
    ADI.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "ADI.Rank")), 
    ANSS.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "ANSS.Rank")), 
    AAPL.Rank = structure(22, class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(1585666800, tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = c(1L, 1L), .Dimnames = list(NULL, "AAPL.Rank")), 
    AMAT.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "AMAT.Rank")), 
    ADSK.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "ADSK.Rank")), 
    ADP.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "ADP.Rank")), 
    BIIB.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "BIIB.Rank")), 
    BKNG.Rank = structure(22, class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(1586185200, tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = c(1L, 1L), .Dimnames = list(NULL, "BKNG.Rank")), 
    AVGO.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "AVGO.Rank")), 
    CHRW.Rank = structure(22, class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(1585661400, tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = c(1L, 1L), .Dimnames = list(NULL, "CHRW.Rank")), 
    CDNS.Rank = structure(22, class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(1585767600, tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = c(1L, 1L), .Dimnames = list(NULL, "CDNS.Rank")), 
    CDW.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "CDW.Rank")), 
    CERN.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "CERN.Rank")), 
    CHTR.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "CHTR.Rank")), 
    CINF.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "CINF.Rank")), 
    CTAS.Rank = structure(22, class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(1585933200, tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = c(1L, 1L), .Dimnames = list(NULL, "CTAS.Rank")), 
    CSCO.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "CSCO.Rank")), 
    CTXS.Rank = structure(22, class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(1585843200, tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = c(1L, 1L), .Dimnames = list(NULL, "CTXS.Rank")), 
    CME.Rank = structure(numeric(0), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
    "POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "", tzone = "", index = structure(numeric(0), tzone = "", tclass = c("POSIXct", 
    "POSIXt")), .Dim = 0:1, .Dimnames = list(NULL, "CME.Rank")))

最佳答案

我们可以使用 discard来自 purrr并使用 map 将其转换为单个 data.frame

library(purrr)
library(dplyr)
library(xts)
discard(myList, ~ length(.x) == 0| is.null(.x)) %>%
   map(index) %>% 
   enframe %>%
   unnest(c(value)) %>% 
   {xts(.[1], order.by =  .$value)}
#                    name       
#2020-03-31 09:30:00 "CHRW.Rank"
#2020-03-31 11:00:00 "AAPL.Rank"
#2020-04-01 11:00:00 "AMD.Rank" 
#2020-04-01 15:00:00 "CDNS.Rank"
#2020-04-02 12:00:00 "CTXS.Rank"
#2020-04-03 13:00:00 "CTAS.Rank"
#2020-04-06 11:00:00 "BKNG.Rank"

关于将列表缩减为按时间排序的 xts 对象，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/61083536/

文章推荐： c - 为什么随机值显示为输出以查找矩阵的行列式？

文章推荐： ionic-framework - CSRF token 未正确更新(Ionic + Spring Security)

文章推荐： Blazor On Parent 单击然后检查子复选框

文章推荐： ajax - 在自定义 React 钩子(Hook)中的 AJAX 函数后清理

c - OpenMP - 临界区 + 缩减
我目前正在学习使用 C 和 OpenMP 进行并行编程。我想编写简单的代码，其中两个共享值由多个线程递增。首先我使用了减少指令，它按预期工作。然后我改用关键启动关键部分的指令 - 它也有效。
kubernetes - 缩减 Kubernetes pod
我在用 kubectl scale --replicas=0 -f deployment.yaml 停止我所有正在运行的 pod 。请让我知道是否有更好的方法将所有正在运行的 pod 降到零，保持配置
c++ - CUDA 缩减 - 竞争条件？
请考虑我从教程中获得的以下代码和随附的解释性图像。其目的是演示 CUDA 的并行缩减。 #include "cuda_runtime.h" #include "device_launch_parame
c++ - CUDA 缩减，大阵列的方法
我有以下“Frankenstein”和减少代码，部分来自 common CUDA reduction slices ，部分来自 CUDA 示例。 __global__ void reduce
c - 数组中每个元素的 OpenMP 缩减
学习openMP // array b #pragma omp parallel for // reduction(&&: b[i])? for (i=2; i<=N; i++
c++ - 具有多个数组的共享内存的 CUDA 缩减
我目前正在使用以下 Reduction 函数通过 CUDA 对数组中的所有元素求和: __global__ void reduceSum(int *input, int *input2, int *i
python - 对连续的非连续切片进行 Numpy 缩减
假设我有两个 numpy 数组，形状为 (d, f) 的 A 和形状为 (d,) 的 I 包含 0..n 中的索引，例如 I = np.array([0, 0, 1, 0, 2, 1]) A = np
c - 多个值的 OpenMP argmin 缩减
我有一个例程，它使用一个循环来计算给定下方粒子表面的粒子的最小高度。此例程尝试随机位置并计算最小高度，然后返回 x, y, z 值，其中 z 是找到的最小高度。此例程可以与omp parallel
JavaScript - 映射、过滤、缩减。从数组转换为更深层次的树
每个视频都有一个有趣的时刻集合，每个时刻代表一个截屏有趣的时间或代表整个标题的时间。请注意，boxarts 和 interestingMoments 数组都位于树中的相同深度。使用 Array.zip
java - setFrameIcon 的动态 ImageIcon 缩减
我有一个 ImageIcon，用作打开此 skillsFrame 的按钮。此图像大小为 100x100 像素。正如您在屏幕截图中看到的那样，如果我只是放置图像，它太大了(这是预期的)。我的问题是关于
haskell - 如何在 Haskell 中进行多次 eta 缩减
我的任务是从 [[a]] 矩阵中获取一列。一个简单的解决方案是 colFields :: Int -> [[a]] -> [a] colFields n c = map (!! n) c 当减少一级
hadoop - Hadoop- map 缩减-java.lang.NoClassDefFoundError
问题是:如果我输入 hadoop jar MY.jar name_my_class /用户/用户/输入/用户/用户/输出我需要的所有类都在MY.jar中，为什么我仍然收到错误 java.lang.N
node.js - 使用 mongoosejs 进行 map 缩减
我正在尝试使用 Nodejs、mongoose 和 MongoDB 来进行映射缩减操作。我有一个相当平坦的模式结构，我想获取每个“命名”对象的值/日期对列表。 map 缩减功能显然有问题，但我不知道如
docker - 如何防止在 Kubernetes 中由 HPA 创建的特定时间段内新扩展的 pod 缩减？
我在 DigitalOcean 中设置了一个 Kubernetes 集群。集群配置为使用 HPA(Horizontal Pod Autoscaler)自动扩展。我想防止终止在过去 1 小时内按比例
mapreduce - View ( map 缩减)对 CloudAnt NoSQL 限制有何影响？
IBM Cloudant NoSQL 对每秒的查找、写入、查询有一些限制。在CloudAnt上我可以编写一个DesignDocument“View”。当我读取一个 View 时，该读取会对哪里产生
haskell - 用于学习惯用 Haskell 的资源(eta 缩减、符号中缀运算符、库等)
就目前情况而言，这个问题不太适合我们的问答形式。我们希望答案得到事实、引用资料或专业知识的支持，但这个问题可能会引发辩论、争论、民意调查或扩展讨论。如果您觉得这个问题可以改进并可能重新开放，visit
python - 使用 xlrd/xlwt 和循环迭代优化 Excel 数据收集/缩减
我最近刚刚开始使用 Python 编码，还有很多东西需要学习。我的代码的目标是从单元格中提取字符串，检查其字符长度并用特定缩写替换单词。然后，我将新字符串写入另一个 Excel 工作表中，并在所有数据
java - 使用 Java 8 Stream API 缩减 Map
我有一个以下形式的 map : Map> START 让 INNER 成为内部映射，即 Map 例如，我想在新 map 中缩小 START map Map END 它们具有相同的键，但具有不同的值。特
lambda-calculus - lambda 演算中的 Beta 缩减 : Order of evaluation important?
给定以下 lambda 表达式，其中 \ 类似于 lambda: (\kf.f(\c.co)km)(\x.dox)(\le.le) 如果我将(\c.co)k转换成ko是不是错了？我这样做了，显然，这是
c++ - Intel 编译器 (C++) 问题与 std::vector 上的 OpenMP 缩减
从 OpenMP 4.0 开始，支持用户定义的缩减。所以我在 C++ 中完全从 here 定义了对 std::vector 的归约。 .它适用于 GNU/5.4.0 和 GNU/6.4.0，但它返回随

行者123

个人简介

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

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

将列表缩减为按时间排序的 xts 对象