การเปลี่ยนชื่อคอลัมน์ของ data frame

ฉันมี data frame ชื่อ "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วิธีตอบข้อเสนอแนะก่อนหน้านี้ในบางวิธี

หากนี่คือ a data.tableแทนคุณสามารถใช้data.tableฟังก์ชันsetnamesซึ่งสามารถแก้ไขชื่อคอลัมน์เฉพาะหรือชื่อคอลัมน์เดียวโดยการอ้างอิง :

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

ฉันมีปัญหาเดียวกันและรหัสชิ้นนี้ได้ผลสำหรับฉัน

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

กล่าวโดยย่อรหัสนี้ทำสิ่งต่อไปนี้:

names(data)ค้นหาชื่อทั้งหมดใน dataframe ( 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" 

ฉันต้องการเปลี่ยนชื่อคอลัมน์ของ Class และ Sex

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

เพียงเพื่อแก้ไขและขยายคำตอบของ Scott Wilson เล็กน้อย
คุณสามารถใช้setnamesฟังก์ชัน data.table บน 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)