วิธีการคำนวณโหมดใน r (พร้อมตัวอย่าง)

โหมด ของชุดข้อมูลแสดงถึงค่าที่พบบ่อยที่สุด

ในชุดข้อมูลที่กำหนด ไม่สามารถมีโหมด โหมดเดียว หรือหลายโหมดได้

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

 find_mode <- function (x) {
  u <- unique(x)
  tab <- tabulate(match(x, u))
  u[tab == max(tab)]
}

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

ตัวอย่างที่ 1: การคำนวณโหมดของเวกเตอร์ดิจิทัล

รหัสต่อไปนี้แสดงวิธีใช้ฟังก์ชันนี้เพื่อคำนวณโหมดของเวกเตอร์ดิจิทัล

 #define function to calculate mode
find_mode <- function (x) {
  u <- unique(x)
  tab <- tabulate(match(x, u))
  u[tab == max(tab)]
}

#define numeric vector
data <- c(1, 2, 2, 3, 4, 4, 4, 4, 5, 6)

#find fashion
find_mode(data)

[1] 4

โหมดของชุดข้อมูลกลายเป็น 4 . เป็นตัวเลขที่ขึ้นมาบ่อยที่สุด

โปรดทราบว่าเรายังสามารถใช้ฟังก์ชันนี้เมื่อมีหลายโหมดในชุดข้อมูล:

 #define function to calculate mode
find_mode <- function (x) {
  u <- unique(x)
  tab <- tabulate(match(x, u))
  u[tab == max(tab)]
}

#define numeric vector with multiple modes
data <- c(1, 2, 2, 2, 2, 3, 4, 4, 4, 4, 5, 6)

#find fashion
find_mode(data)

[1] 2 4

โหมดของชุดข้อมูลคือ 2 และ 4 ตัวเลขสองตัวนี้เป็นตัวเลขที่พบบ่อยที่สุด

ตัวอย่างที่ 2: การคำนวณโหมดของเวกเตอร์อักขระ

ฟังก์ชันนี้ยังสามารถใช้เพื่อคำนวณโหมดของเวกเตอร์อักขระ:

 #define function to calculate mode
find_mode <- function (x) {
  u <- unique(x)
  tab <- tabulate(match(x, u))
  u[tab == max(tab)]
}

#define character vector
data <- c('Sunny', 'Cloudy', 'Sunny', 'Sunny', 'Rainy', 'Cloudy')
#find fashion
find_mode(data)

[1] “Sunny”

โหมดนี้กลายเป็น “ซันนี่” ซึ่งเป็นสตริงที่ปรากฏบ่อยที่สุดในเวกเตอร์

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

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

วิธีการคำนวณผลสรุปของตัวเลขห้าตัวใน R
วิธีสร้างตารางสรุปใน R
วิธีใช้ฟังก์ชัน Mean() ใน R