NAをカラム名で埋めたいそんなときの小技

文字型のカラムのNAに対して、カラム名で穴埋めしたいときのデータの前処理の小技。

library(tidyverse)
library(rlang)

tibble(
  hoge = c(NA, 'a', 'b', NA, 'c')
) %>% 
  mutate(hoge_imp = if_else(is.na(hoge), quo_text(quo(hoge)), hoge))

## # A tibble: 5 × 2
##   hoge  hoge_imp
##   <chr> <chr>   
## 1 <NA>  hoge    
## 2 a     a       
## 3 b     b       
## 4 <NA>  hoge    
## 5 c     c