R တွင် မတူညီသောအရောင်များဖြင့် ဟီစတိုဂရမ်တစ်ခုကို ဖန်တီးနည်း


မကြာခဏဆိုသလို R တွင် မတူညီသောအရောင်များစွာရှိသော histogram တစ်ခုကို ဖန်တီးလိုပေမည်။

အောက်ဖော်ပြပါနမူနာများသည် base R နှင့် ggplot2 တွင် ၎င်းကို မည်သို့လုပ်ဆောင်ရမည်ကို ပြသထားသည်။

ဥပမာ 1- အခြေခံ R တွင် မတူညီသောအရောင်များဖြင့် ဟီစတိုဂရမ်

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

 #create data frame
df <- data. frame (x=c(12, 14, 14, 15, 15, 17, 19, 22, 23, 23, 24))

#create histogram
hist(df$x)

မူရင်းအားဖြင့်၊ ဘားအရောင်အားလုံးသည် ဟီစတိုဂရမ်တွင် တူညီပါသည်။

သို့သော်၊ အရောင်သုံးမျိုးရှိသော histogram တစ်ခုဖန်တီးရန် အောက်ပါကုဒ်ကို အသုံးပြုနိုင်သည်။

 #create data frame
df <- data. frame (x=c(12, 14, 14, 15, 15, 17, 19, 22, 23, 23, 24))

#define histogram break points
hist_breaks <- hist(df$x)$breaks

#define colors to use in histogram based on break points
color_list <- rep(' red ', length(hist_breaks))
color_list[hist_breaks < 20 ] <- ' blue '
color_list[hist_breaks < 16 ] <- ' purple '

#create histogram with custom colors
hist(df$x, col=color_list)

R တွင် မတူညီသောအရောင်များဖြင့် ဟီစတိုဂရမ်

ဤသည်မှာ အရောင်သုံးမျိုးဖန်တီးရန် ယုတ္တိဗေဒက မည်သို့လုပ်ဆောင်ခဲ့သည်၊

  • ပထမဦးစွာ၊ ဘားတစ်ခုစီသည် အနီရောင် ဖြစ်ကြောင်းသတ်မှတ်ခဲ့သည်။
  • ထို့နောက် ကျွန်ုပ်တို့သည် ဘားတစ်ခုစီကို အပြာ အဖြစ် 20 ထက်နည်းသော breakpoint ဖြင့် ပြောင်းလဲခဲ့သည်။
  • ထို့နောက် ကျွန်ုပ်တို့သည် 16 ထက်နည်းသော breakpoint ဖြင့် ဘားတိုင်းကို ခရမ်းရောင် အဖြစ် ပြောင်းလဲခဲ့သည်။

နောက်ဆုံးရလဒ်မှာ ရောင်စုံဟစ်စတိုဂရမ်ဖြစ်သည်။

ဥပမာ 2- ggplot2 တွင် မတူညီသောအရောင်များဖြင့် Histogram

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

 #create data frame
df <- data. frame (x=c(12, 14, 14, 15, 15, 17, 19, 22, 23, 23, 24))

#view data frame
df

    x
1 12
2 14
3 14
4 15
5 15
6 17
7 19
8 22
9 23
10 23
11 24

ဤဒေတာဘောင်အတွက် မတူညီသောအရောင်များဖြင့် ဟီစတိုဂရမ်တစ်ခုကို ဖန်တီးရန်၊ ကျွန်ုပ်တို့သည် ပထမဦးစွာ nested if else ကြေညာချက်ကို အသုံးပြု၍ တန်ဖိုးများအတွက် အုပ်စုဖွဲ့ variable တစ်ခုကို ဖန်တီးရန် လိုအပ်သည်-

 #create grouping variable
df$group = ifelse(df$x < 16 , ' C ', ifelse(df$x < 20 , ' B ', ' A '))

#view updated data frame
df

    x group
1 12 C
2 14C
3 14C
4 15C
5 15C
6 17 B
7 19 B
8 22 A
9 23 A
10 23 A
11 24 A

ယခုကျွန်ုပ်တို့သည် ggplot2 တွင် histogram တစ်ခုကို ဖန်တီးပြီး group variable ကို အသုံးပြု၍ ကွက်ကွက်အတွင်းရှိ အရောင်များကို သတ်မှတ်နိုင်သည်-

 #create histogram with custom colors
ggplot(df, aes(x, fill=group)) +
  geom_histogram(bins= 6 , color=' black ') +
   scale_fill_manual(values = c(' A ' = ' red ',
                                ' B ' = ' blue ',
                                ' C ' = ' purple '))

နောက်ဆုံးရလဒ်မှာ ရောင်စုံဟစ်စတိုဂရမ်ဖြစ်သည်။

မှတ်ချက်scale_fill_manual() အတွက် စာရွက်စာတမ်းအပြည့်အစုံကို ဤနေရာတွင် ရှာနိုင်ပါသည်။

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

အောက်ဖော်ပြပါ သင်ခန်းစာများသည် R တွင် အခြားသော ဘုံလုပ်ဆောင်ချက်များကို မည်သို့လုပ်ဆောင်ရမည်ကို ရှင်းပြသည်-

R တွင် နှိုင်းရကြိမ်နှုန်း ဟီစတိုဂရမ် ဖန်တီးနည်း
R ဖြင့် histogram ပေါ်တွင် ပုံမှန်မျဉ်းကွေးတစ်ခုကို ထပ်တင်နည်း
R တွင် histogram breaks ကို သတ်မှတ်နည်း

မှတ်ချက်တစ်ခုထည့်ပါ။

သင့် email လိပ်စာကို ဖော်ပြမည် မဟုတ်ပါ။ လိုအပ်သော ကွက်လပ်များကို * ဖြင့်မှတ်သားထားသည်