如何使用R中的map和str_remove_all从变量标签中提取一些信息

的第二个论点 map() 必须是函数或公式。因此,这两种方法中的任何一种都有效:

df %>% 
  var_label() %>% 
  map(., \(x) str_remove_all(x, ".+ - "))

df %>% 
  var_label() %>% 
  map(., ~str_remove_all(., ".+ - "))

的文档 地图 更喜欢第一个版本:

一个公式,例如~.x+1。必须使用.x来引用第一个参数。仅当您需要与旧版本的R向后兼容时才推荐使用。

'map' 'var_label()' 已经返回字符否决器,而不是列表。

而不是使用 地图 您可以直接应用 'str_remove_all' 函数到字符向量的每个元素使用 'mutate_all' 从 'dplyr' 包裹

library(dplyr)
library(stringr)
# random variables
var1 <- sample(seq(1, 10, 1), size = 10, replace = TRUE)
var2 <- sample(seq(1, 10, 1), size = 10, replace = TRUE)
# Assign variable labels
library(labelled)
var_label(var1) <- "A long variable label - Some Info"
var_label(var2) <- "Another long variable label - Some Other Info"  
# Make dataframe
df <- data.frame(var1, var2)   
# Confirm variable labels
var_label(df)   
# Remove everything but what is desired
df <- df %>%
  mutate(across(everything(), ~str_remove_all(var_label(.), ".+ - "))) 
# Confirm the updated variable labels
var_label(df)