R purrr map2 更改列名 - 列名中的间距问题

Question

我正在处理来自外部来源的一些数据，这些数据在其变量名称之一（“伪 ID”）中带有空格。我正在尝试使用 purrr::map 在所有数据集中更改此变量名称，但 R 似乎无法识别此变量。我不想一个一个地更改变量名...不知道是否有人可以找到解决方案？

    library(tidyverse)

    # Mock data:
    set.seed(1)
    sampledata<- data.frame(
         ID = sample(1:2), 
         name = sample(letters, 2, replace = TRUE))
    colnames(sampledata)[1] <- "Pseudo ID"

    # List of mock data:
    datalist <- list(sampledata, sampledata)

    # Set name in each dataset in the list using map
    map(datalist, set_names, nm="PatientID") # BUT HOW CAN I RENAME A SPECIFIC COLUMN - 'Pseudo ID'

Answer 1

您可以在此处使用purrr 中的map 和set_names。

set.seed(1)
sampledata<- data.frame(ID = sample(1:2), name = sample(letters, 2, replace = TRUE))
colnames(sampledata)[1] <- "Pseudo ID"
datalist <- list(sampledata, sampledata)

library(purrr)
map(datalist, ~ set_names(.x, nm = replace(
  names(.x), names(.x) == "Pseudo ID", "PatientID"
)))
#[[1]]
#  PatientID name
#1         1    o
#2         2    x

#[[2]]
#  PatientID name
#1         1    o
#2         2    x

如果要分配不同的名称，请使用map2

new_id_names <- c("PatientID_1", "PatientID_2")
map2(.x = datalist, .y = new_id_names, ~ set_names(.x, nm = replace(
  names(.x), names(.x) == "Pseudo ID", .y
)))