mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2025-12-16 17:42:10 +01:00
51 lines
1.9 KiB
Markdown
51 lines
1.9 KiB
Markdown
# (Re)label columns in data.frame
|
||
|
||
(Re)label columns in data.frame
|
||
|
||
## Usage
|
||
|
||
``` r
|
||
set_column_label(data, label, overwrite = TRUE)
|
||
```
|
||
|
||
## Arguments
|
||
|
||
- data:
|
||
|
||
data.frame to be labelled
|
||
|
||
- label:
|
||
|
||
named list or vector
|
||
|
||
## Value
|
||
|
||
data.frame
|
||
|
||
## Examples
|
||
|
||
``` r
|
||
ls <- list("mpg" = "", "cyl" = "Cylinders", "disp" = "", "hp" = "", "drat" = "", "wt" = "", "qsec" = "", "vs" = "", "am" = "", "gear" = "", "carb" = "")
|
||
ls2 <- c("mpg" = "", "cyl" = "Cylinders", "disp" = "", "hp" = "Horses", "drat" = "", "wt" = "", "qsec" = "", "vs" = "", "am" = "", "gear" = "", "carb" = "")
|
||
ls3 <- c("mpg" = "", "cyl" = "", "disp" = "", "hp" = "Horses", "drat" = "", "wt" = "", "qsec" = "", "vs" = "", "am" = "", "gear" = "", "carb" = "")
|
||
mtcars |>
|
||
set_column_label(ls) |>
|
||
set_column_label(ls2) |>
|
||
set_column_label(ls3)
|
||
#> # A tibble: 32 × 11
|
||
#> mpg cyl disp hp drat wt qsec vs am gear carb
|
||
#> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
|
||
#> 1 21 6 160 110 3.9 2.62 16.5 0 1 4 4
|
||
#> 2 21 6 160 110 3.9 2.88 17.0 0 1 4 4
|
||
#> 3 22.8 4 108 93 3.85 2.32 18.6 1 1 4 1
|
||
#> 4 21.4 6 258 110 3.08 3.22 19.4 1 0 3 1
|
||
#> 5 18.7 8 360 175 3.15 3.44 17.0 0 0 3 2
|
||
#> 6 18.1 6 225 105 2.76 3.46 20.2 1 0 3 1
|
||
#> 7 14.3 8 360 245 3.21 3.57 15.8 0 0 3 4
|
||
#> 8 24.4 4 147. 62 3.69 3.19 20 1 0 4 2
|
||
#> 9 22.8 4 141. 95 3.92 3.15 22.9 1 0 4 2
|
||
#> 10 19.2 6 168. 123 3.92 3.44 18.3 1 0 4 4
|
||
#> # ℹ 22 more rows
|
||
rlang::expr(FreesearchR::set_column_label(label = !!ls3)) |> expression_string()
|
||
#> [1] "FreesearchR::set_column_label(label = c(mpg = '', cyl = '', disp = '', hp = 'Horses', drat = '', wt = '', qsec = '', vs = '', am = '', gear = '', carb = ''))"
|
||
```
|