Зміна назв стовпців кадру даних

У мене є кадр даних під назвою "newprice" (див. Нижче), і я хочу змінити назви стовпців у своїй програмі на R.

> newprice
   Chang.  Chang.   Chang.
1     100       36      136
2     120      -33       87
3     150       14      164

Насправді це те, що я роблю:

names(newprice)[1]<-paste("premium")
names(newprice)[2]<-paste("change")
names(newprice)[3]<-paste("newprice") 

Я не ставлю це в циклі, тому що я хочу, щоб ім’я кожного стовпця було іншим, як ви бачите.

Коли я вставляю програму в консоль R, це вихід, який вона дає мені:

> names(newprice)[1]<-paste(“premium”)
Error: unexpected input in "names(newprice)[1]<-paste(“"
> names(newprice)[2]<-paste(“change”)
Error: unexpected input in "names(newprice)[2]<-paste(“"
> names(newprice)[3]<-paste(“newpremium”)
Error: unexpected input in "names(newprice)[3]<-paste(“"

Я однаково намагався використовувати c()функцію - наприклад c("premium"), замість paste()функції, але безрезультатно.

Може хтось допоможе мені зрозуміти це?

Використовуйте colnames()функцію:

R> X <- data.frame(bad=1:3, worse=rnorm(3))
R> X
  bad     worse
1   1 -2.440467
2   2  1.320113
3   3 -0.306639
R> colnames(X) <- c("good", "better")
R> X
  good    better
1    1 -2.440467
2    2  1.320113
3    3 -0.306639

Ви також можете підмножити:

R> colnames(X)[2] <- "superduper"

Я використовую це:

colnames(dataframe)[which(names(dataframe) == "columnName")] <- "newColumnName"

Помилка викликана "розумними котируваннями" (або як вони ще називаються). Урок тут полягає в тому, що "не записуйте свій код у" редактор ", який перетворює лапки в смарт-котирування".

names(newprice)[1]<-paste(“premium”)  # error
names(newprice)[1]<-paste("premium")  # works

Крім того, вам не потрібно paste("premium")(заклик до pasteзайвого), і це гарна ідея розмістити пробіли, <-щоб уникнути плутанини (наприклад x <- -10; if(x<-3) "hi" else "bye"; x).

Ви спробували просто:

names(newprice)[1]<-"premium"

?

Новий рекомендований спосіб зробити це - використовувати setNamesфункцію. Див ?setNames. Оскільки це створює нову копію data.frame, обов'язково призначте результат оригіналу data.frame, якщо це ваш намір.

data_frame <- setNames(data_frame, c("premium","change","newprice"))

Новіші версії R попередить вас, якщо ви використовуєте colnames якийсь із способів, запропонованих попередніми відповідями.

Якщо це data.tableзамість цього, ви можете використовувати data.tableфункцію setnames, яка може змінювати конкретні назви стовпців або одне ім’я стовпця за посиланням :

setnames(data_table, "old-name", "new-name")

У мене був той самий випуск, і цей фрагмент коду розробив для мене.

names(data)[names(data) == "oldVariableName"] <- "newVariableName"

Коротше кажучи, цей код робить наступне:

names(data)розглядає всі імена в кадрі даних ( data)

[names(data) == oldVariableName]витягує ім'я змінної ( oldVariableName), яку потрібно перейменувати, і <- "newVariableName"присвоює нове ім'я змінної.

Подібно до інших:

cols <- c("premium","change","newprice")
colnames(dataframe) <- cols

Досить просто і легко змінювати.

спробуйте:

names(newprice) <- c("premium", "change", "newprice")

Якщо вам потрібно перейменувати не всі, а декілька стовпців одночасно, коли ви знаєте лише старі назви стовпців, ви можете використовувати colnamesфункцію та %in%оператора. Приклад:

df = data.frame(bad=1:3, worse=rnorm(3), worst=LETTERS[1:3])

   bad      worse    worst
1   1 -0.77915455       A
2   2  0.06717385       B
3   3 -0.02827242       C

Тепер ви хочете змінити "поганий" і "найгірший" на "хороший" і "найкращий". Можна використовувати

colnames(df)[which(colnames(df) %in% c("bad","worst") )] <- c("good","best")

Це призводить до

  good      worse  best
1    1 -0.6010363    A
2    2  0.7336155    B
3    3  0.9435469    C

Використовуйте це, щоб змінити назву стовпця за функцією Colname.

colnames(newprice)[1] = "premium"
colnames(newprice)[2] = "change"
colnames(newprice)[3] = "newprice"

Ви можете просто виконати редагування:

newprice <- edit(newprice)

і змінити назву стовпця вручну.

Назви моїх стовпців наведено нижче

colnames(t)
[1] "Class"    "Sex"      "Age"      "Survived" "Freq" 

Я хочу змінити назву стовпця класу та статі

colnames(t)=c("STD","Gender","AGE","SURVIVED","FREQ")

Є кілька варіантів з dplyr::rename()і dplyr::select():

library(dplyr)

mtcars %>% 
  tibble::rownames_to_column('car_model') %>%                            # convert rowname to a column. tibble must be installed.
  select(car_model, est_mpg = mpg, horse_power = hp, everything()) %>%   # rename specific columns and reorder
  rename(weight = wt, cylinders = cyl) %>%                               # another option for renaming specific columns that keeps everything by default
  head(2)
      car_model est_mpg horse_power cylinders disp drat weight  qsec vs am gear carb
1     Mazda RX4      21         110         6  160  3.9  2.620 16.46  0  1    4    4
2 Mazda RX4 Wag      21         110         6  160  3.9  2.875 17.02  0  1    4    4

Існують також три масштабні варіанти dplyr::rename(): dplyr::rename_all()для всіх назв стовпців, dplyr::rename_if()для умовно націлених назв стовпців та dplyr::rename_at()для вибраних стовпців з назвами. Наступний приклад замінює пробіли та періоди на підкреслення і перетворює все на малі регістри:

iris %>%  
  rename_all(~gsub("\\s+|\\.", "_", .)) %>% 
  rename_all(tolower) %>% 
  head(2)
  sepal_length sepal_width petal_length petal_width species
1          5.1         3.5          1.4         0.2  setosa
2          4.9         3.0          1.4         0.2  setosa

dplyr::select_all() також можна використовувати аналогічним чином:

iris %>%  
  select_all(~gsub("\\s+|\\.", "_", .)) %>% 
  select_all(tolower) %>% 
  head(2)
  sepal_length sepal_width petal_length petal_width species
1          5.1         3.5          1.4         0.2  setosa
2          4.9         3.0          1.4         0.2  setosa

Просто для виправлення та трохи розширення відповіді Скотта Вілсона.
Функцію data.table можна використовувати і setnamesв data.frames.

Не очікуйте прискорення операції, але ви можете очікувати, що вона setnamesбуде більш ефективною для споживання пам'яті, оскільки вона оновлює назви стовпців за посиланням. Це можна відстежити за допомогою addressфункції, див. Нижче.

library(data.table)
set.seed(123)
n = 1e8

df = data.frame(bad=sample(1:3, n, TRUE), worse=rnorm(n))
address(df)
#[1] "0x208f9f00"
colnames(df) <- c("good", "better")
address(df)
#[1] "0x208fa1d8"
rm(df)

dt = data.table(bad=sample(1:3, n, TRUE), worse=rnorm(n))
address(dt)
#[1] "0x535c830"
setnames(dt, c("good", "better"))
address(dt)
#[1] "0x535c830"
rm(dt)

Тож якщо ви потрапляєте на обмеження пам'яті, ви можете скористатися цим.

Це може бути корисно:

rename.columns=function(df,changelist){
  #renames columns of a dataframe
  for(i in 1:length(names(df))){
    if(length(changelist[[names(df)[i]]])>0){
      names(df)[i]= changelist[[names(df)[i]]]
    }
  }
  df
}

# Specify new dataframe
df=rename.columns(df,list(old.column='new.column.name'))

У випадку, якщо ми маємо 2 кадри даних, наступні роботи

 DF1<-data.frame('a', 'b')
 DF2<-data.frame('c','d')

Ми змінюємо назви DF1 наступним чином

 colnames(DF1)<- colnames(DF2)