r - 从 split() 函数创建的列表中提取值

Question

我有一个如下表格的列表，大约 1400 个字符。我想从每个日期/时间中提取值以绘制它们。

$`2012-07-19 22:30:00`
[1] NaN

$`2012-07-19 23:00:00`
[1] 23.91

$`2012-07-19 23:30:00`
[1] 23.83286

我尝试了几种不同形式的 sapply 函数，这些函数在网上找到，但每次我得到相同的列表（如下），但我无法绘制。如果我可以提取这些值，我应该可以使用 na.omit 删除“NaN”。关于如何做到这一点的任何想法？

2012-07-19 22:30:00 2012-07-19 23:00:00 2012-07-19 23:30:00 
                NaN            23.91000            23.83286 

此外，有谁知道如何查找每个日期的列表中存在多少个值？我很感激任何建议。

Answer 1

有很多选择：

• 堆栈（也适用于列表中不相等的元素）

  L <- list(a=1, b=2, c=3)
  stack(L)
  #   values ind
  # 1      1   a
  # 2      2   b
  # 3      3   c
  
  L <- list(a=1, b=2, c=c(3,4))
  stack(L)
  #   values ind
  # 1      1   a
  # 2      2   b
  # 3      3   c
  # 4      4   c
  

要仅绘制值，您可以这样做plot(stack(L)$values)

• unlist（也适用于不相等的列表元素，名称会相应更改）

  L <- list(a=1, b=2, c=3)
  unlist(L)
  # a b c 
  # 1 2 3 
  
  unname(unlist(L))            ## using unname to remove the names
  # 1 2 3 
  
  L <- list(a=1, b=2, c=c(3,4))
  unlist(L)
  # a b c1 c2                  ## note the automatic name assignment here
  # 1 2  3  4
  

要绘图，您可以这样做：（plot(unlist(L))或）等效地plot(unname(unlist(L)))

• as.data.frame（元素不相等，值会被回收，小心！）。这在这里用处不大（如果你必须绘制，至少不是直截了当的，就像你的情况一样）。

  L <- list(a=1, b=2, c=3)
  as.data.frame(L)
  #   a b c
  # 1 1 2 3
  
  L <- list(a=1, b=2, c=c(3,4))
  as.data.frame(L)
  #   a b c
  # 1 1 2 3
  # 1 1 2 4