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)

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

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
```

从split（）函数创建的列表中提取值

1 个答案: