r - 给定条件强制字符串的函数

Question

我只是想强制转换为数字——即，将 as.numeric 应用于任何以 1 作为第一个条目的列(即，一个特点)。所以我希望转:

tibble(a = c("1", "2"), b = c("Fred", "Kevin"), c = 1:2)

进入

tibble(a = 1:2, b = c("Fred", "Kevin"), c = 1:2)

Answer 1

你可以使用dplyr:

library(dplyr)

data %>% 
  mutate(across(where(~ first(.x) == "1" & !is.na(first(.x))), as.numeric)).

返回

# A tibble: 2 x 5
      a b         c     d e    
  <dbl> <chr> <dbl> <dbl> <lgl>
1     1 Fred      1     1 NA    
2     2 Kevin     2     3 NA   

数据

data <- tibble(a = c("1", "2"), 
               b = c("Fred", "Kevin"), 
               c = 1:2, 
               d = c("1", "3"), 
               e = c(NA, NA))