序列化 S4 对象列表

Question

我有一个 S4 对象列表，我需要一个数据框，其中列表的每个对象都在一行中。我想使用 serialize() 函数进行对象的转换。

object_list # list of S4 objects

objects<-serialize(object_list,connection=NULL)

我的问题是，'objects' 的输出是一个很长的 raw()-vector。 Is 表示所有 S4 对象都在一个 raw() 中转换。 它看起来像这样： [1] 58 0a 00 00 00 03 00 04 00 03 00 03 05 00 00 00 00 05 55 54 46 2d 38 00 01 03 19 00 00 04 02 00 ...

我现在找到了用任何循环解决这个问题的方法。序列化应该采用每个 S4 对象并将其转换，而不是全部放在一个大向量中。

最后，我想在数据框中添加每个向量（来自每个 S4 对象）。

...	objects
...	58 0a 00 00 00 03 00 04 00 03
...	00 04 00 03 00 03 05 00 00 00
...	...

希望有人能帮帮我，谢谢！

Answer 1

缺少一个可重现的例子，假设我们有一个东西的列表

sth <- list(11, 12, 13, 14, 15)

我们有一个函数，它接受一个东西并返回一个原始值：

f <- function(x) return(as.raw(x-10))

要将f 应用于sth 中的每个项目，我们可以使用lapply，如下所示：

lapply(sth, f)

如果您更喜欢先命名函数，Map

Map(f, sth)

两者都会返回一个列表作为结果。如果这个列表可以简化为向量，就像原始列表一样，我们可以使用sapply 而不是lapply：

> sapply(sth, f)
[1] 01 02 03 04 05

或在Map 之后致电unlist：

> unlist(Map(f, sth))
[1] 01 02 03 04 05

所以现在我们有了可以作为列添加到data.frame 的向量，如下所示。

或者，我们可以使用带有一些变量 i 的 for 循环，但我们需要一些累加器 acc 来收集循环内不同重复的结果：

acc = NULL      # tell R this is an identifier.
for(i in 1:length(sth))
  acc = append(acc, f(sth[[i]]))        
print(acc)

或者没有append函数：

acc = NULL 
for(i in 1:length(sth))
  acc[i] = f(sth[[i]])        
print(acc)

要使结果向量成为data.frame 中的一列，我们首先需要一个data.frame：

sth <- list(11, 12, 13, 14, 15)

f <- function(x) return(as.raw(x-10))

dafra <- data.frame(id = 1:5, letter = letters[5:9])
dafra$objects = sapply(sth, f)
print(dafra)