处理行名称 - 图1

    1. mtcars %>% rn_col()
    2. mtcars %>% rn_col("rn")
    3. mtcars %>% rn_col() -> new_mtcars
    4. new_mtcars %>% col_rn() -> old_mtcars
    5. old_mtcars
    6. setequal(mtcars,old_mtcars)