在R的嵌套列表中应用roxofun

Question

我有一个嵌套列表，如下例所示：

 # Nested list
    df <- list(
  list(
    Mean = seq(0,100, length.out = 1500),
    MVC = seq(0,100, length.out = 1400),
    z = seq(0,700, length.out = 1450)),
  list(
    Mean = seq(0,100, length.out = 1480),
    MVC = seq(0,100, length.out = 1460),
    z = seq(200,900, length.out = 1490)
  )
)

我需要在两个列表中仅内插仅 Mean和MVC，以使它们的长度相同。在这种情况下，我需要将它们全部内插到最大长度（1500）。

我正在尝试使用

lapply(df, function(x) approxfun(x)(seq(0,100,length.out = newlength)))

其中newlength等于1500。但是，这不起作用。

有什么想法吗？

Answer 1

使用rapply，因为您的数据是列表列表：

rapply(df, function(x) approxfun(x)(seq(0,100,length.out = newlength)) , how='list')

以上内容在我的系统上效果很好，由于结果太大而无法粘贴，因此无法粘贴。