Переименование столбцов в R 4.3 с использованием собственного канала

Хотя мне кажется странным писать Date = date, date = NULL, использовать transform() легко и просто:

1)

> df |> 
+   transform(Date = date, date = NULL)
     UNRATE       Date
146     4.8 1960-02-01
1065    5.4 1960-03-01
1984    5.0 1960-04-01
2903    4.9 1960-05-01
3822    5.5 1960-06-01
4741    5.4 1960-07-01

2) Жестко запрограммировано с использованием colnames()

df |> 
  `colnames<-`(c("Date", "Unrate"))

3) Небольшая обертка

rename = \(df, pos, nm) {
  stopifnot(is.data.frame(df))
  names(df)[pos] = nm
  df
}

df |>
  rename(df=_, 1L, "Date")

4) Для более чем одного имени

rename2 = \(df, new, old) {
  stopifnot(is.data.frame(df), length(old) == length(new), is.character(new))
  # this check needs to be revised:
  if (! inherits(old, c("numeric", "character", "integer"))) 
    stop("Specify 'old' either as character or integer/numeric.") 
  if (is.character(old)) 
    if (all(sapply(old, \(x) x %in% names(df))==FALSE)) 
      stop("Names in 'old' do not match with names of df.") else 
        names(df)[match(old, names(df))] = new 
      else names(df)[old] = new 
  df
}

mtcars |>
  rename2(c("lala", "blabla"), c("am", "disp"))

mtcars |>
  rename2(c("lala", "blabla"), 7:8)

Данные

df = read.table(text  = "          date UNRATE
146  1960-02-01    4.8
1065 1960-03-01    5.4
1984 1960-04-01    5.0
2903 1960-05-01    4.9
3822 1960-06-01    5.5
4741 1960-07-01    5.4", header = TRUE)

Вот еще несколько подходов. Первый использует анонимную функцию, а остальные используют трюк с помещением входных данных в список.

# 1
unrevised_df |>
  (\(x) { names(x)[1] <- "Date"; x })()

# 2
unrevised_df |>
  list(x = _) |>
  with( { names(x)[1] <- "Date"; x } )

# 3
unrevised_df |>
  list(x = _) |>
  with( setNames(x, replace(names(x), 1, "Date")) )

# 4
unrevised_df |>
  list(x = _) |>
  with(cbind(Date = x[[1]], x[-1]))

Если вы хотите использовать magrittr (который очень стабилен и не требует использования dplyr, tidyr или любого другого пакета tidyverse), мы можем сделать это:

# 5
library(magrittr)
unrevised_df %>%
  { names(.)[1] <- "Date"; . } 

Канал Bizarro на самом деле не канал, а просто базовый синтаксис R, который выглядит примерно так:

# 6
unrevised_df ->.;
  { names(.)[1] <- "Date"; . } 

Другая возможность — определить свою собственную трубку. Этот канал не выполняет автоматическую замену, а вместо этого требует использования точки (.) с правой стороны. Для его определения требуется всего лишь одна дополнительная строка кода, сохраняющая независимость кода от каких-либо пакетов.

"%.>%" <- function(left, right) eval(substitute(right), list(. = left))

unrevised_df %.>%
  { names(.)[1] <- "Date"; . } 

Примечание

Ввод в воспроизводимой форме

unrevised_df <- data.frame(
  date = c("1960-02-01", "1960-03-01", "1960-04-01", "1960-05-01", "1960-06-01", "1960-07-01"),
  UNRATE = c(4.8, 5.4, 5, 4.9, 5.5, 5.4),
  row.names = c("146", "1065", "1984", "2903", "3822", "4741")
)