R用映射函数用数据框名称替换列名

Question

我在使用映射函数将列名替换为数据框名称时遇到问题。我有 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 个 clomuns：日期和收盘价（收盘价）。例如：数据框 "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.

现在我想用数据框的名称 ("BTC.USD") 替换第二列的名称 ("Close")

对于这种情况，我使用了以下代码：

colnames(BTC.USD)[2] <-deparse(substitute(BTC.USD))

这段代码如我想象的那样工作：

head(BTC.USD)
# A tibble: 6 x 2
Date       BTC.USD
1 2015-12-31    430.
2 2016-01-01    434.
3 2016-01-02    434.

现在我正在尝试使用映射函数重命名所有 25 个加密货币数据帧的 "Close" 列：

names_of_dataframes <- ls.str(mode = "list")
map(names_of_dataframes, colnames(x)[2] <- names_of_dataframes[[i]])

但是没用。有人可以帮助我吗？

Answer 1

我们用 mget 将数据集放入 list，用 imap 遍历 list，用 [=16= rename 第二列] 给出 data.frame 对象名称

library(tidyverse)
mget(ls(pattern="USD")) %>%         
              imap(~ {nm1 <- .y
                      .x %>% 
                         rename_at(2, ~ nm1) })

R用映射函数用数据框名称替换列名

R replace the column name by the dataframe name with a map-function

r

map-function