R တွင် အဆမတန်ရွေ့လျားမှုပျမ်းမျှအား တွက်ချက်နည်း

အချိန်စီးရီးခွဲခြမ်းစိတ်ဖြာမှုတွင်၊ ရွေ့လျားပျမ်းမျှ သည် ယခင်ကာလများစွာ၏ ပျမ်းမျှတန်ဖိုးဖြစ်သည်။

အညွှန်းကိန်းရွေ့လျားမှုပျမ်းမျှ သည် မကြာသေးမီက လေ့လာတွေ့ရှိချက်များအပေါ် အလေးချိန်ပိုစေသည့် ရွေ့လျားပျမ်းမျှအမျိုးအစားတစ်ခုဖြစ်ပြီး၊ ဆိုလိုသည်မှာ ၎င်းသည် လတ်တလောခေတ်ရေစီးကြောင်းများကို ပိုမိုလျင်မြန်စွာဖမ်းယူနိုင်သည်ဟု ဆိုလိုသည်။

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

ဥပမာ- R တွင် အဆမတန် ရွေ့လျားပျမ်းမျှ

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

 #create data frame
df <- data.frame(period=1:10,
                 sales=c(25, 20, 14, 16, 27, 20, 12, 15, 14, 19))

#view data frame
df

   period sales
1 1 25
2 2 20
3 3 14
4 4 16
5 5 27
6 6 20
7 7 12
8 8 15
9 9 14
10 10 19

ယခင်ကာလများစွာအတွက် ကိန်းဂဏန်းအလိုက် အလေးချိန်ရွေ့လျားနေသောပျမ်းမျှအား တွက်ချက်ရန် pracma package မှ movavg() လုပ်ဆောင်ချက်ကို အသုံးပြုနိုင်သည်။

ဤလုပ်ဆောင်ချက်သည် အောက်ပါ syntax ကိုအသုံးပြုသည်-

movavg(x၊ n၊ type=c(“s”၊ “t”၊ “w”၊ “m”၊ “e”၊ “r”))

ရွှေ-

• x: ဒစ်ဂျစ်တယ် vector ပုံစံဖြင့် အချိန်စီးရီး
• n- ပျမ်းမျှအတွက် အသုံးပြုရန် ယခင်ကာလများ အရေအတွက်
• အမျိုးအစား- တွက်ချက်ရန် ရွေ့လျားပျမ်းမျှ အမျိုးအစား။ ကိန်းဂဏန်းဖြင့် ရွေ့လျားမှုပျမ်းမျှအတွက် “ e” ကို အသုံးပြုပါမည်။

ဥပမာအားဖြင့်၊ ဤသည်မှာ ယခင်ကာလလေးခုကို အသုံးပြု၍ အဆအလေးချိန်ရှိသော ရွေ့လျားပျမ်းမျှအား တွက်ချက်နည်းဖြစ်သည်-

 library (pracma)

#create new column to hold 4-day exponentially weighted moving average
df$EWM_4day <- movavg (df$sales, n=4, type=' e ')

#view DataFrame 
df

        period sales 4dayEWM
0 1 25 25.000000
1 2 20 23.000000
2 3 14 19.400000
3 4 16 18.040000
4 5 27 21.624000
5 6 20 20.974400
6 7 12 17.384640
7 8 15 16.430784
8 9 14 15.458470
9 10 19 16.875082

ကျွန်ုပ်တို့သည် 4-ရက်ကြာ အတိုးနှုန်းဖြင့် အလေးချိန်ရှိသော ရွေ့လျားမှုပျမ်းမျှအား အရောင်းအ၀ယ်ကို မြင်ယောင်နိုင်ရန် ggplot2 visualization library ကိုလည်း အသုံးပြုနိုင်ပါသည်။

 library (ggplot2)
library (reshape2)

#melt data into format for easy plotting
df <- melt (df, id.vars = ' period ', variable.name = ' series ')

#plot sales vs. 4-day exponentially weighted moving average
ggplot(df, aes (period, value)) +
  geom_line( aes (color=series))

အနီရောင်မျဉ်းသည် ကာလတစ်ခုစီအတွင်း ရောင်းအားကိုပြသပြီး အပြာလိုင်းသည် ကိန်းဂဏာန်းအလေးချိန်ရွေ့လျားမှုပျမ်းမျှအား ပြသသည်။

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

R တွင် ကော်လံများစွာကို ဘယ်လိုဆွဲမလဲ။
R တွင် ကော်လံများထက် ပျမ်းမျှနည်း
R တွင် အုပ်စုအလိုက် ပျမ်းမျှတွက်နည်း