Как добавить столбец, если он не существует в r

Вы можете использовать следующую пользовательскую функцию, чтобы добавить один или несколько столбцов во фрейм данных в R, если они еще не существуют:

 add_cols <- function (df, cols) {
  add <- cols[!cols %in% names(df)]
  if (length(add) != 0) df[add] <- NA
  return (df)
}

В следующем примере показано, как использовать этот синтаксис на практике.

Пример: добавить столбец, если он не существует в R

Предположим, у нас есть следующий кадр данных в R:

 #create data frame
df <- data. frame (team=c('A', 'A', 'A', 'A', 'B', 'B', 'B'),
                 position=c('Gu', 'Fo', 'Fo', 'Fo', 'Gu', 'Gu', 'Fo'),
                 dots=c(18, 22, 19, 14, 14, 11, 20))

#view data frame
df

  team position points
1 A Gu 18
2 A Fo 22
3 A Fo 19
4 A Fo 14
5 B Gu 14
6 B Gu 11
7 B Fo 20

Допустим, мы хотим добавить во фрейм данных следующие столбцы, если они еще не существуют:

• точки
• помощь
• подпрыгивает

Для этого мы можем использовать специальную функцию add_cols :

 #define custom function to add columns to data frame if they do not exist
add_cols <- function (df, cols) {
  add <- cols[!cols %in% names(df)]
  if (length(add) !=0 ) df[add] <- NA
  return (df)
}

#add three columns if they don't already exist
df <- add_cols(df, c(' points ', ' assists ', ' rebounds '))

#view updated data frame
df

  team position points assists rebounds
1 A Gu 18 NA NA
2 A Fo 22 NA NA
3 A Fo 19 NA NA
4 A Fo 14 NA NA
5 B Gu 14 NA NA
6 B Gu 11 NA NA
7 B Fo 20 NA NA

Обратите внимание, что столбцы передач и подборов были добавлены во фрейм данных, а столбец очков — нет, поскольку он уже существовал.

Также обратите внимание, что R просто заполняет каждое значение в новых столбцах значениями NA.

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в R:

Как добавить столбец во фрейм данных на основе других столбцов в R
Как добавить столбец индекса (числовой идентификатор) в фрейм данных в R
Как добавить пустой столбец во фрейм данных в R