Question

使用映射函数或for循环为多个数据框创建新列时遇到问题。我有25个具有加密货币时间序列数据的数据框：

ls(pattern="USD")
[1] "ADA.USD"   "BCH.USD"   "BNB.USD"   "BTC.USD"   "BTG.USD"   "DASH.USD"      "DOGE.USD"  "EOS.USD"   "ETC.USD"   "ETH.USD"   "IOT.USD"
[12] "LINK.USD"  "LTC.USD"   "NEO.USD"   "OMG.USD"   "QTUM.USD"  "TRX.USD"   "USDT.USD"  "WAVES.USD" "XEM.USD"   "XLM.USD"   "XMR.USD"
[23] "XRP.USD"   "ZEC.USD"   "ZRX.USD"

每个对象都是一个数据框，代表以美元表示的加密货币。每个数据框都有2列：日期和收盘价（收盘价）。例如：数据框“ BTC.USD”代表美元的比特币：

head(BTC.USD)
# A tibble: 6 x 2
Date       Close
1 2015-12-31  430.
2 2016-01-01  434.
3 2016-01-02  434.
4 2016-01-03  431.
5 2016-01-04  433.

现在我想添加第三列，代表每日收益。

require(quantmod)
BTC.USD <- BTC.USD%>%mutate(Return= Delt(Close)*100)

对于单个对象（在本例中为比特币[BTC.USD]），此代码将按预期工作：

> head(BTC.USD)
# A tibble: 6 x 3
  Date       Close Return[,"Delt.1.arithmetic"]
  <date>     <dbl>                        <dbl>
1 2015-12-31  430.                      NA     
2 2016-01-01  434.                       0.940 
3 2016-01-02  434.                      -0.0622
4 2016-01-03  431.                      -0.696 
5 2016-01-04  433.                       0.608 
6 2016-01-05  431.                      -0.489

现在，我想使用map函数或for循环计算所有25个数据帧（或加密货币）的收益，但是我的代码不起作用：

temp = ls(pattern=".USD")
map(.x= temp,.f = mutate(Return= Delt(Close)*100))

is.data.frame（.data）||中的错误is.list（.data）|| is.environment（.data）：参数“ .data”丢失，没有默认值

for (i in seq_along(temp)) {mutate(Return= Delt(Close)*100)}

is.data.frame（.data）||中的错误is.list（.data）|| is.environment（.data）：参数“ .data”丢失，没有默认值

有人可以帮我吗？

Answer 1

首先，我们实际上需要将数据作为列表获取（每个data.frame将在列表中获得其自己的条目）。然后，我们可以使用任何我们喜欢的列表迭代函数来获得所需的结果。

temp_data <- lapply(ls(pattern = "USD"), get) # get data into a list
temp_data2 <- lapply(temp_data, function(x) mutate(x, Return = Delt(Close)*100))

正如@akrun指出的那样，有一种更紧凑的方法可以做到这一点：

lapply(mget(ls(pattern = "USD")), transform, Return = Delt(Close) * 100)

如果您想坚持使用tidyverse动词，那就是：

lapply(mget(ls(pattern = "USD")), function(x) x %>% mutate(Return = Delt(Close) * 100))

我可以使用您的示例数据来使代码工作：

sdat1 <-structure(list(
      Date = c("2015-12-31","2016-01-01",
               "2016-01-02","2016-01-03","2016-01-04"),
      Close = c(430, 434, 434, 431, 433)),
    class = "data.frame",
    row.names = c("1", "2", "3", "4", "5"))

sdat4 <- sdat3 <- sdat2 <- sdat1

lapply(mget(ls(pattern = 'sdat')),
       FUN = function(x) x %>% mutate(Return = Delt(Close)))

R使用映射功能或循环为多个数据框计算新列

1 个答案: