R တွင် အုပ်စုအလိုက် မုဒ်ကို တွက်ချက်နည်း (ဥပမာများဖြင့်)

ဒေတာအတွဲတစ်ခု၏ မုဒ်သည် မကြာခဏ အများဆုံးတန်ဖိုးကို ကိုယ်စားပြုသည်။

R စာရင်းအင်းဆော့ဖ်ဝဲတွင် ဒေတာအတွဲတစ်ခု၏မုဒ်ကို တွက်ချက်ရန် built-in လုပ်ဆောင်ချက် မပါဝင်သော်လည်း မုဒ်ကိုတွက်ချက်ရန် အောက်ပါလုပ်ဆောင်ချက်ကို သင်အသုံးပြုနိုင်သည်-

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

အောက်ပါနမူနာများသည် R တွင် အုပ်စုအလိုက် မုဒ်ကို တွက်ချက်ရန် ဤလုပ်ဆောင်ချက်ကို အသုံးပြုနည်းကို ပြသထားသည်။

ဥပမာ 1- R (တစ်မုဒ်) တွင် အုပ်စုအလိုက် မုဒ်ကို တွက်ချက်ပါ

မတူညီသောအသင်းများမှ ဘတ်စကက်ဘောကစားသမားများမှ ရမှတ်များကိုပြသသည့် R တွင် အောက်ပါဒေတာဘောင်ရှိသည်ဆိုပါစို့။

 #define data frame
df <- data. frame (team=c('A', 'A', 'A', 'A', 'B', 'B', 'B', 'B'),
                 points=c(5, 7, 7, 9, 12, 12, 10, 14))

#view data frame
df

  team points
1 to 5
2 to 7
3 to 7
4 to 9
5 B 12
6 B 12
7 B 10
8 B 14

အဖွဲ့ အလိုက် အုပ်စုဖွဲ့ထားသော အမှတ်များ မုဒ်ကို တွက်ချက်ရန် အောက်ပါကုဒ်ကို အသုံးပြုနိုင်ပါသည်။

 library (dplyr)

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

#calculate mode of 'points' by 'team'
df %>%
  group_by(team) %>%
  summarize(mode_points = find_mode(points))

# A tibble: 2 x 2
  team mode_points
         
1 to 7
2 B 12

ရလဒ်များမှ ကျွန်ုပ်တို့ မြင်နိုင်သည်-

• Team A အတွက် အမှတ်မုဒ်မှာ 7 ဖြစ်သည်။
• Team B အတွက် အမှတ်မုဒ်မှာ 12 ဖြစ်သည်။

ဥပမာ 2- R တွင် အုပ်စုအလိုက် မုဒ်ကို တွက်ချက်ပါ (များစွာသောမုဒ်များ)

R တွင် အောက်ပါ data frame ရှိသည်ဆိုပါစို့။

 #define data frame
df <- data. frame (team=c('A', 'A', 'A', 'A', 'B', 'B', 'B', 'B'),
                 points=c(5, 7, 7, 9, 12, 12, 10, 10))

#view data frame
df

  team points
1 to 5
2 to 7
3 to 7
4 to 9
5 B 12
6 B 12
7 B 10
8 B 10

အဖွဲ့ အလိုက် အုပ်စုဖွဲ့ထားသော အမှတ်များ မုဒ်ကို တွက်ချက်ရန် အောက်ပါကုဒ်ကို အသုံးပြုနိုင်ပါသည်။

 library (dplyr)

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

#calculate mode of 'points' by 'team'
df %>%
  group_by(team) %>%
  summarize(mode_points = find_mode(points))

# A tibble: 3 x 2
# Groups: team [2]
  team mode_points
         
1 to 7
2 B 12
3 B 10

ရလဒ်များမှ ကျွန်ုပ်တို့ မြင်နိုင်သည်-

• Team A အတွက် အမှတ်မုဒ်မှာ 7 ဖြစ်သည်။
• Team B အတွက် အမှတ်ပေးနည်းလမ်းမှာ 12 နှင့် 10 ဖြစ်သည်။

ဤနမူနာတွင်၊ Team B အတွက် အမှတ်တန်ဖိုးနှစ်ခု မကြာခဏ ဖြစ်ပွားပါသည်။ ထို့ကြောင့် ဤမုဒ်တန်ဖိုးတစ်ခုစီကို အထွက်ရှိ Team B အတွက် သီးခြားမျဉ်းတစ်ခုပေါ်တွင် ပြန်ပေးပါသည်။

ထပ်လောင်းအရင်းအမြစ်များ

အောက်ဖော်ပြပါ သင်ခန်းစာများသည် R တွင် အခြားသော သရုပ်ဖော်ကိန်းဂဏန်းများကို တွက်ချက်နည်းကို ရှင်းပြသည်-

R တွင် ဂဏန်းငါးလုံး၏ အကျဉ်းချုပ်ကို တွက်နည်း
R တွင် အနှစ်ချုပ်ဇယားများ ဖန်တီးနည်း
R တွင် Mean() function ကိုအသုံးပြုနည်း