วิธีเพิ่มคอลัมน์หากไม่มีอยู่ใน r

คุณสามารถใช้ฟังก์ชันแบบกำหนดเองต่อไปนี้เพื่อเพิ่มหนึ่งคอลัมน์ขึ้นไปในกรอบข้อมูลใน R หากยังไม่มีอยู่:

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

ตัวอย่างต่อไปนี้แสดงวิธีใช้ไวยากรณ์นี้ในทางปฏิบัติ

ตัวอย่าง: เพิ่มคอลัมน์หากไม่มีอยู่ใน R

สมมติว่าเรามี data frame ต่อไปนี้ใน 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

สมมติว่าเราต้องการเพิ่มคอลัมน์ต่อไปนี้ใน data frame หากยังไม่มี:

• คะแนน
• ช่วย
• ตีกลับ

เราสามารถใช้ฟังก์ชันแบบกำหนดเองที่เรียกว่า 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:

วิธีเพิ่มคอลัมน์ใน data frame ตามคอลัมน์อื่นใน R
วิธีเพิ่มคอลัมน์ดัชนี (ID ตัวเลข) ให้กับ data frame ใน R
วิธีเพิ่มคอลัมน์ว่างลงใน data frame ใน R