Miraglia Business-Intelligence
Funzione data
lascia CreateDateTable = (StartDate come data, EndDate come data, Culture opzionale come testo nullable) as table =>
permettere
ConteggioGiorni = Durata.Giorni(Durata.Da(DataFine - DataInizio)),
Sorgente = List.Dates(DataInizio,ConteGiorno,#durata(1,0,0,0)),
TableFromList = Table.FromList(Sorgente, Splitter.SplitByNothing()),
ChangedType = Table.TransformColumnTypes(TableFromList,{{"Column1", tipo data}}),
RenamedColumns = Table.RenameColumns(ChangedType,{{"Column1", "Date"}}),
InsertYear = Table.AddColumn(Colonne rinominate, "Anno", ogni Data.Anno([Data]), tipo numero),
InsertQuarter = Table.AddColumn(InsertYear, "QuarterOfYear", ogni Date.QuarterOfYear([Data]), digitare il numero),
InsertMonth = Table.AddColumn(InsertQuarter, "MonthOfYear", ogni Date.Month([Data]), digitare il numero),
InsertDay = Table.AddColumn(InsertMonth, "DayOfMonth", ogni Date.Day([Data]), digitare il numero),
InsertDayInt = Table.AddColumn(InsertDay, "DateInt", ciascuno [Anno] * 10000 + [MeseAnno] * 100 + [GiornoMese], digitare numero),
InsertMonthName = Table.AddColumn(InsertDayInt, "MonthName", ogni Date.ToText([Data], "MMMM", Culture), digita testo),
InsertCalendarMonth = Table.AddColumn(InsertMonthName, "MonthInCalendar", ciascuno (prova(Text.Range([MonthName],0,3)) altrimenti [MonthName]) & " " & Number.ToText([Year]), digita testo) ,
InsertCalendarQtr = Table.AddColumn(InsertCalendarMonth, "QuarterInCalendar", ogni "Q" & Number.ToText([QuarterOfYear]) & " " & Number.ToText([Year]), digita testo),
InsertDayWeek = Table.AddColumn(InsertCalendarQtr, "DayInWeek", ogni Date.DayOfWeek([Data]), digitare il numero),
InsertDayName = Table.AddColumn(InsertDayWeek, "DayOfWeekName", ogni Date.ToText([Data], "dddd", Culture), digita testo),
InsertWeekEnding = Table.AddColumn(InsertDayName, "WeekEnding", ogni Date.EndOfWeek([Data]), digitare data),
#"Inizio del mese inserito" = Table.AddColumn(InsertWeekEnding, "StartOfMonth", ogni Date.StartOfMonth([Data]), digitare data)
In
#"Inizio del mese inserito"
In
CreaDateTable
Codice R ggplot facile
# Il seguente codice per creare un dataframe e rimuovere le righe duplicate viene sempre eseguito e funge da preambolo per lo script:
# set di dati <- data.frame(StartOfMonth, Sales)
# set di dati <- unico(set di dati)
# Incolla o digita qui il codice dello script:
libreria(ggplot2)
dataset$data = as.Data(dataset$Iniziodelmese)
grafico <- set di dati
ggplot(data=grafica, aes(x=grafica$data, y=grafica$vendite))+geom_line(colore = "#FC4E07", dimensione = 2)
Codice R ggplot facet_grid
# Il seguente codice per creare un dataframe e rimuovere le righe duplicate viene sempre eseguito e funge da preambolo per lo script:
# set di dati <- data.frame(StartOfMonth, Sales, Category)
# set di dati <- unico(set di dati)
# Incolla o digita qui il codice dello script:
libreria(ggplot2)
dataset$data = as.Data(dataset$Iniziodelmese)
grafico <- set di dati
ggplot(data=graphic, aes(x=graphic$date, y=graphic$sales))+geom_line(color = "#FC4E07", size = 2)+facet_grid(Segmento~Categoria)
Codice R con previsione Arima
# Il seguente codice per creare un dataframe e rimuovere le righe duplicate viene sempre eseguito e funge da preambolo per lo script:
# set di dati <- data.frame(StartOfMonth, Sales)
# set di dati <- unico(set di dati)
# Incolla o digita qui il codice dello script:
dataset$data = as.Data(dataset$Iniziodelmese)
grafico <- set di dati
biblioteca(previsione)
libreria (serie T)
ARIMA_Sales <- ts(dataset$Sales,start=c(1))
Vendite_Previsione<- auto.arima(ARIMA_Sales, stagionale=TRUE)
Vendite_previste <- previsione(Previsione_vendite, h=12)
trama(Vendite_previste)