ขอถามเรื่องการเขียนภาษา R หาค่า Mode หน่อยค่ะ

เราเขียนเป็นโค้ดนี้ค่ะ

สมมุติจะหาค่าmode(ฐานนิยม)ของ 2,2,3,3,3,4,5,6,7 เราเลยทำการเขียนแบบนี้ค่ะ
> findingmode <- function(mode_number)
+ {
+   names(which.max(table(mode_number)))
+ }
> mode_number <- c(2,2,3,3,3,4,5,6,7)
> (mode <- findingmode(mode_number))
เมื่อกด Enter จะได้ผลลัพธ์ [1] 3 เป็นคำตอบที่ถูกต้อง

แต่ปัญหาคือถ้าหากหาค่าmode(ฐานนิยม)ของ 2,3,4,5,6,7 มันจะไม่มี mode หรือ ไม่มีฐานนิยมใช่ไหมคะ แต่ผลลัพธ์มันออกมาไม่ถูกต้อง
> findingmode <- function(mode_number)
+ {
+   names(which.max(table(mode_number)))
+ }
> mode_number <- c(2,3,4,5,6,7)
> (mode <- findingmode(mode_number))
เมื่อกด Enter จะได้ผลลัพธ์  [1] 2 เป็นคำตอบไม่ถูกต้อง 

มีใครทราบวิธีแก้ไหมคะ ? แล้วถ้าหาแล้วไม่มีค่าฐานนิยมอยากให้ขึ้นประโยคว่า no mode ด้วยค่ะ ต้องทำยังไงคะ ?