Rを使った前処理あれこれ

tibble(
  a = c(1, 1, 1, 1),
  b = c(2, 3, 4, 5),
  c = c(7, 7, 7, 7),
  d = c(8, 9, 10, 11)
) %>%
  select(where(~ var(.) != 0))
#> A tibble: 4 × 2
#>       b     d
#>   <dbl> <dbl>
#> 1     2     8
#> 2     3     9
#> 3     4    10
#> 4     5    11

c("a" = "c", "b" = "d")
#> a   b 
#> "c" "d" 

a <- c("a", "b")
b <- c("c", "d")
setNames(b, a)
#> a   b 
#> "c" "d"