R 将函数输出合并到具有不同列名的数据帧中

我试图找出如何从这个函数中获得具有不同列名的单个数据帧（或TIBLE）。这段代码打印三个具有相同日期和相同列名的独立块。但是，列值不同

hello <- function(x){
  fx <- Quandl(x)

  fx <- fx %>%
    select(Date, Open, Close) %>%
    mutate(new_col = `Open` - `Close`) %>%
    select(Date, new_col)
  print(kable(head(fx), format = "rst"))
}

lapply(c(EUR, USD, RUB), fx)

我只是想看看如何用一个函数做得更简单

谢谢大家!

编辑1:

感谢您的回答和改进问题的建议

因此，可复制代码如下所示：

Wheat<-"CFTC/001602_FO_ALL"
Corn<-"CFTC/002602_F_ALL"
Beans<-"CFTC/005602_F_ALL"

funds<-function(x){

  cftc<-Quandl(x)

cftc<-cftc%>%
  select(Date,`Money Manager Longs`,`Money Manager Shorts`)%>%
  mutate(Funds_Net = `Money Manager Longs`-`Money Manager Shorts`)%>%
  select(Date,Funds_Net)
print(kable(head(cftc),format = "rst"))
}

lapply(c(Wheat,Corn,Beans),funds)

---

wheat请提供一个。特别是，请提供一些示例数据，例如使用
dput（）
。如果不知道数据的外观或Quandl（）函数的作用，就很难理解您的问题。
Wheat<-"CFTC/001602_FO_ALL"
Corn<-"CFTC/002602_F_ALL"
Beans<-"CFTC/005602_F_ALL"

funds<-function(x){

  cftc<-Quandl(x)

cftc<-cftc%>%
  select(Date,`Money Manager Longs`,`Money Manager Shorts`)%>%
  mutate(Funds_Net = `Money Manager Longs`-`Money Manager Shorts`)%>%
  select(Date,Funds_Net)
print(kable(head(cftc),format = "rst"))
}

lapply(c(Wheat,Corn,Beans),funds)