วิธีการลบแถวที่มีศูนย์ใน r (พร้อมตัวอย่าง)
คุณสามารถใช้วิธีใดวิธีหนึ่งต่อไปนี้เพื่อลบแถวที่มีศูนย์ในกรอบข้อมูลใน R:
วิธีที่ 1: ลบแถวที่มีศูนย์โดยใช้ฐาน R
df_new <- df[apply(df!= 0 , 1 , all),]
วิธีที่ 2: ลบแถวที่มีศูนย์โดยใช้ dplyr
library (dplyr) df_new <- filter_if(df, is.numeric , all_vars((.) != 0 ))
ตัวอย่างต่อไปนี้แสดงวิธีการใช้แต่ละวิธีในทางปฏิบัติกับกรอบข้อมูลต่อไปนี้:
#create data frame df <- data. frame (points=c(5, 7, 8, 0, 12, 14, 0, 10, 8), assists=c(0, 2, 2, 4, 4, 3, 7, 6, 10), rebounds=c(8, 8, 7, 3, 6, 5, 0, 12, 11)) #view data frame df points assists rebounds 1 5 0 8 2 7 2 8 3 8 2 7 4 0 4 3 5 12 4 6 6 14 3 5 7 0 7 0 8 10 6 12 9 8 10 11
ตัวอย่างที่ 1: ลบแถวที่มีศูนย์โดยใช้ฐาน R
รหัสต่อไปนี้แสดงวิธีการลบแถวที่มีศูนย์โดยใช้ฟังก์ชัน R base Apply() :
#create new data frame that removes rows with any zeros from original data frame df_new <- df[apply(df!= 0 , 1 , all),] #view new data frame df_new points assists rebounds 2 7 2 8 3 8 2 7 5 12 4 6 6 14 3 5 8 10 6 12 9 8 10 11
โปรดทราบว่าสามบรรทัดที่มีค่า Null ได้ถูกลบออกแล้ว
ตัวอย่างที่ 2: ลบแถวที่มีศูนย์โดยใช้ dplyr
รหัสต่อไปนี้แสดงวิธีการลบแถวที่มีศูนย์โดยใช้ฟังก์ชัน filter_if() จากแพ็คเกจ dplyr ใน R:
#create new data frame that removes rows with any zeros from original data frame df_new <- filter_if(df, is.numeric , all_vars((.) != 0 )) #view new data frame df_new points assists rebounds 1 7 2 8 2 8 2 7 3 12 4 6 4 14 3 5 5 10 6 12 6 8 10 11
โปรดทราบว่าสามบรรทัดที่มีค่า Null ได้ถูกลบออกแล้ว
สิ่งนี้สอดคล้องกับผลลัพธ์ที่เราได้รับโดยใช้ฐาน R
หมายเหตุ : เราใช้ฟังก์ชัน is.numeric เพื่อระบุว่าตัวแปรตัวเลขทั้งหมดในกรอบข้อมูลไม่ควรเป็นศูนย์
แหล่งข้อมูลเพิ่มเติม
บทช่วยสอนต่อไปนี้จะอธิบายวิธีดำเนินการงานทั่วไปอื่นๆ ใน R:
วิธีลบบรรทัดว่างออกจาก data frame ใน R
วิธีลบคอลัมน์ที่มีค่า NA ใน R
วิธีลบบรรทัดที่ซ้ำกันใน R