R 对两个时间序列数据的操作

我有两个动物园的东西 z1

z2

我正试图获得输出作为

                T1                 T2                   T3
2013-01-18      myfunc(20,0.05)     myfunc(15,0.01)     myfunc(21,0.09)
2013-01-20      myfunc(30,0.02)     myfunc(18,0.05)     myfunc(17,0.06)
2013-01-21      myfunc(10,0.06)     myfunc(21,0.02)     myfunc(24,0.07)
2013-01-22      myfunc(15,0.07)     myfunc(17,0.06)     myfunc(15,0.08)
2013-01-23      myfunc(18,0.01)     myfunc(16,0.06)     myfunc(18,0.05)

似乎使用apply/rollappy就可以完成这项任务，但由于我是R新手，所以无法完成这项任务

更新
假设我也有一个数据帧

Name Quantity Base
 T1   100      T3
 T2   150      T3
 T3   160      T3

需要这样的输出

                T1                     T2                   T3
2013-01-18      myfunc(20,0.05,100)     myfunc(20,0.01,150)     myfunc(20,0.09,160)
2013-01-20      myfunc(30,0.02,100)     myfunc(30,0.05,150)     myfunc(30,0.06,160)
2013-01-21      myfunc(10,0.06,100)     myfunc(10,0.02,150)     myfunc(10,0.07,160)
2013-01-22      myfunc(15,0.07,100)     myfunc(15,0.06,150)     myfunc(15,0.08,160)
2013-01-23      myfunc(18,0.01,100)     myfunc(18,0.06,150)     myfunc(18,0.05,160)

请注意，现在第一个参数也是基于dataframe的基列的，您可以试试

z3 <- z1
z3[] <- mapply(function(x,y,i) myfunc(x[,i], y[,i]), 
                 list(z1), list(z2), seq_len(ncol(z1)))

你可以试试

z3 <- z1
z3[] <- mapply(function(x,y,i) myfunc(x[,i], y[,i]), 
                 list(z1), list(z2), seq_len(ncol(z1)))

你可以试试

z3 <- z1
z3[] <- mapply(function(x,y,i) myfunc(x[,i], y[,i]), 
                 list(z1), list(z2), seq_len(ncol(z1)))

你可以试试

z3 <- z1
z3[] <- mapply(function(x,y,i) myfunc(x[,i], y[,i]), 
                 list(z1), list(z2), seq_len(ncol(z1)))

---

---

事实上，我只是展示了一个简单的例子，但我想使用的结果将基于用户定义的函数，而不是x*y。更新了问题可能

z3它起作用了。还有一个问题。同样，在同一行中，我们也可以映射到数据帧。数据帧为名称、数量\n T1、100\nt2150\nt3250。我也想通过这个，现在已经更新了。请检查实际上我只是展示了一个简单的例子，但我想使用的结果将基于用户定义的函数，而不是x*y。更新了问题可能
z3它起作用了。还有一个问题。同样，在同一行中，我们也可以映射到数据帧。数据帧为名称、数量\n T1、100\nt2150\nt3250。我也想通过这个，现在已经更新了。请检查实际上我只是展示了一个简单的例子，但我想使用的结果将基于用户定义的函数，而不是x*y。更新了问题可能
z3它起作用了。还有一个问题。同样，在同一行中，我们也可以映射到数据帧。数据帧为名称、数量\n T1、100\nt2150\nt3250。我也想通过这个，现在已经更新了。请检查实际上我只是展示了一个简单的例子，但我想使用的结果将基于用户定义的函数，而不是x*y。更新了问题可能
z3它起作用了。还有一个问题。同样，在同一行中，我们也可以映射到数据帧。数据帧为名称、数量\n T1、100\nt2150\nt3250。我也想通过这个，现在已经更新了。请检查谢谢你的解决方案，它能工作。我还修改了函数的第一个参数。你能看一下吗。我接受它，因为它工作得完美无缺。@ChaturvediDewashish感谢更新。您可能需要检查
拆分（df1$quantity，df1$name）
的输出。我可以想象，如果名称列是factor，并且其级别的顺序不同，则以相同的顺序出现
T1、T2、T3
。我在这里简化了关于中的问题@ChaturvediDewashish，您有更好的示例吗感谢您的解决方案它很有效。我还修改了函数的第一个参数。你能看一下吗。我接受它，因为它工作得完美无缺。@ChaturvediDewashish感谢更新。您可能需要检查
拆分（df1$quantity，df1$name）
的输出。我可以想象，如果名称列是factor，并且其级别的顺序不同，则以相同的顺序出现
T1、T2、T3
。我在这里简化了关于中的问题@ChaturvediDewashish，您有更好的示例吗感谢您的解决方案它很有效。我还修改了函数的第一个参数。你能看一下吗。我接受它，因为它工作得完美无缺。@ChaturvediDewashish感谢更新。您可能需要检查
拆分（df1$quantity，df1$name）
的输出。我可以想象，如果名称列是factor，并且其级别的顺序不同，则以相同的顺序出现
T1、T2、T3
。我在这里简化了关于中的问题@ChaturvediDewashish，您有更好的示例吗感谢您的解决方案它很有效。我还修改了函数的第一个参数。你能看一下吗。我接受它，因为它工作得完美无缺。@ChaturvediDewashish感谢更新。您可能需要检查
拆分（df1$quantity，df1$name）
的输出。我可以想象，如果名称列是factor，并且其级别的顺序不同，则以相同的顺序出现
T1、T2、T3
。我在这里简化了关于中的问题@ChaturvediDewashish，你有更好的例子吗