วิธีใช้ฟังก์ชัน drop ใน r (พร้อมตัวอย่าง)

ฟังก์ชัน drop() ในฐาน R สามารถใช้เพื่อปล่อยมิติจากอาร์เรย์หรือเมทริกซ์ที่มีเพียงระดับเดียว

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

ตัวอย่างที่ 1: ใช้ drop() เพื่อวางมิติข้อมูลด้วยระดับในตาราง

สมมติว่าเรามีอาร์เรย์สามมิติต่อไปนี้ใน R:

 #create 3-dimensional array
my_array <- c(1:10)
dim(my_array) <- c(1,2,5)

#view array
my_array

, , 1

     [,1] [,2]
[1,] 1 2

, , 2

     [,1] [,2]
[1,] 3 4

, , 3

     [,1] [,2]
[1,] 5 6

, , 4

     [,1] [,2]
[1,] 7 8

, , 5

     [,1] [,2]
[1,] 9 10

เราสามารถใช้ฟังก์ชัน drop() เพื่อลบมิติข้อมูลที่มีเพียงระดับเดียวในตาราง:

 #drop dimensions with only one level
new_array <- drop(my_array)

#view new array
new_array

     [,1] [,2] [,3] [,4] [,5]
[1,] 1 3 5 7 9
[2,] 2 4 6 8 10

โปรดทราบว่ามิติที่มีเพียงระดับเดียวได้ถูกลบออกแล้ว

เราสามารถใช้ฟังก์ชัน dim() เพื่อแสดงมิติใหม่:

 #view dimensions of new array
dim(new_array)

[1] 2 5

เราจะเห็นได้ว่าอาร์เรย์ใหม่มีเพียงสองมิติเท่านั้น

ตัวอย่างที่ 2: ใช้ drop() เพื่อวางมิติข้อมูลด้วยระดับในเมทริกซ์

สมมติว่าเรามีเมทริกซ์ต่อไปนี้ซึ่งมีเจ็ดคอลัมน์และหนึ่งแถวใน R:

 #create matrix
my_matrix <- matrix(1:7, ncol=7)

#view matrix
my_matrix

     [,1] [,2] [,3] [,4] [,5] [,6] [,7]
[1,] 1 2 3 4 5 6 7

#view dimensions of matrix
dim(my_matrix)

[1] 1 7

เราสามารถใช้ฟังก์ชัน drop() เพื่อลบมิติข้อมูลที่มีเพียงระดับเดียวในเมทริกซ์:

 #drop dimensions with only one level
new_matrix <- drop(my_matrix)

#view new matrix
new_matrix

[1] 1 2 3 4 5 6 7

โปรดทราบว่ามิติที่มีเพียงระดับเดียวได้ถูกลบออกแล้ว

เมทริกซ์ถูกแปลงเป็นเวกเตอร์แล้ว

หากเราใช้ฟังก์ชัน dim() เพื่อแสดงมิติข้อมูล ฟังก์ชันจะคืนค่า NULL เนื่องจากวัตถุใหม่ไม่ใช่เมทริกซ์สองมิติอีกต่อไป:

 #view dimensions of new matrix
dim(new_matrix)

NULL

แต่เราสามารถใช้ length() เพื่อแสดงความยาวของเวกเตอร์แทน:

 #view length
length(new_matrix)

[1] 7

เราจะเห็นว่าเวกเตอร์ของเรามีองค์ประกอบ 7 ตัว

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีดำเนินการงานทั่วไปอื่นๆ ใน R:

วิธีใช้ฟังก์ชัน cut() ใน R
วิธีใช้ฟังก์ชัน n() ใน R
วิธีใช้ฟังก์ชัน nchar() ใน R