主页 / coding / 问题 / 79033215
Accepted
LucaS
Asked: 2024-09-28 08:14:48 +0800 CST

花括号 - 为什么这个函数不接受未加引号的变量

  • 772

有人能帮我看看我哪里出错了吗？我认为在管道函数中使用花括号时，您可以调用变量而不必将其括在“”（即作为字符串）。那么我的函数哪里出错了：

library(tidyverse)
dat <-  structure(list(id = 1:6, 
                       var_1 = c("1,1,-11000", "1,1,1", "0,0,0", "1,1,0", "1,1,1", "1,1,1"), 
                       var_2 = c("0,0,-13000", "0,0,0", "-13000,-13000,-13000", "6,4,-13000", "0,0,0", "0,0,0"), 
                       var_3 = c("24,7,-13000", "0,0,0", "-13000,-13000,-13000", "0,0,-13000", "0,0,0", "0,0,0")), 
                  row.names = 1:6, class = "data.frame")

# Separate to wide and convert to long in one step
split_to_long <-  function(col){
  i <-  substr({{col}}, 5, 5)
  temp <-  dat |>
    select("id", {{col}}) |>
    separate_wider_delim({{col}}, ",", too_few = "align_start",
                         names = c(paste0({{col}},"_1"),
                                   paste0({{col}},"_2"),
                                   paste0({{col}},"_3"))) |>
    pivot_longer(2:4,
                 names_to = "visit",
                 values_to = paste0("var_", i),
                 names_prefix = paste0("var_", i, "_"))
  temp
}

# This works
split_to_long("var_1")

# But this doesn't
split_to_long(var_1)

这来自我发布的另一个问题： 如何用 purrr::map 替换这个 for 循环

2 个回答

  1. {{...}} 仅在 tidyverse 函数中起作用，即使如此也只能在准引用上下文中起作用，但substr甚至不是一个 tidyverse 函数，更不用说提供准引用上下文了。

    如果split_to_long问题没有改变，请编写一个包装器来捕获使用enexprrlang 的参数，将其转换为字符，然后使用它。

    split_to_long2 <- function(col) {
  col <- as.character(enexpr(col))
  split_to_long(col)
}

split_to_long2(var_1)

    或者我们可以split_to_long像这样修改，修改后的行在下面用 ## 标记。我们还简化了最后一行标记为 ## 的行。

    split_to_long3 <-  function(col){
  col <- as.character(enexpr(col)) ##
  i <-  substr(col, 5, 5) 
  temp <-  dat |>
    select("id", {{col}}) |>
    separate_wider_delim({{col}}, ",", too_few = "align_start",
                         names = paste0(col, "_", 1:3)) |> ##
    pivot_longer(2:4,
                 names_to = "visit",
                 values_to = paste0("var_", i),
                 names_prefix = paste0("var_", i, "_"))
  temp
}

split_to_long3(var_1)
    • 4
  2. Best Answer

    如果希望两者同时起作用，可以使用该函数对代码进行一些修改substitute。我还建议在函数中包含一个数据参数。

    split_to_long <-  function(data, col){

  col_i <- substitute(col)
  i <-  substr(col_i, 5, 5)
  
  temp <-  data |>
    select(id, {{col}}) |>
    separate_wider_delim({{col}}, ",", too_few = "align_start",
                         names = c(paste0(col_i,"_1"),
                                   paste0(col_i,"_2"),
                                   paste0(col_i,"_3"))) |>
    pivot_longer(2:4,
                 names_to = "visit",
                 values_to = paste0("var_", i),
                 names_prefix = paste0("var_", i, "_"))
  temp
}

res1 <- split_to_long(dat, "var_1")
res2 <- split_to_long(dat, var_1)

identical(res1, res2)
[1] TRUE
    • 1

相关问题