在R中的嵌套列表中应用approxfun

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

 # 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)
  )
)

其中

newlength

等于1500。然而，这是行不通的

---

有什么想法吗？

使用

rapply

，因为您的数据是列表列表：

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

---

以上内容在我的系统上运行良好，因为结果太大，无法粘贴，我无法粘贴。

您需要在

批准中更具体一些。现在，您可以在整个data.frame中减少传递。尝试对一个data.frame正确执行此操作。将其转换为一个列表将是微不足道的。
rapply(df, function(x) approxfun(x)(seq(0,100,length.out = newlength)) , how='list')