Datums-Funktion

let CreateDateTable = (StartDate as date, EndDate as date, optional Culture as nullable text) as table =>

  let

    DayCount = Duration.Days(Duration.From(EndDate - StartDate)),

    Source = List.Dates(StartDate,DayCount,#duration(1,0,0,0)),

    TableFromList = Table.FromList(Source, Splitter.SplitByNothing()),

    ChangedType = Table.TransformColumnTypes(TableFromList,{{"Column1", type date}}),

    RenamedColumns = Table.RenameColumns(ChangedType,{{"Column1", "Date"}}),

    InsertYear = Table.AddColumn(RenamedColumns, "Year", each Date.Year([Date]), type number),

    InsertQuarter = Table.AddColumn(InsertYear, "QuarterOfYear", each Date.QuarterOfYear([Date]), type number),

    InsertMonth = Table.AddColumn(InsertQuarter, "MonthOfYear", each Date.Month([Date]), type number),

    InsertDay = Table.AddColumn(InsertMonth, "DayOfMonth", each Date.Day([Date]), type number),

    InsertDayInt = Table.AddColumn(InsertDay, "DateInt", each [Year] * 10000 + [MonthOfYear] * 100 + [DayOfMonth], type number),

   InsertMonthName = Table.AddColumn(InsertDayInt, "MonthName", each Date.ToText([Date], "MMMM", Culture), type text),

    InsertCalendarMonth = Table.AddColumn(InsertMonthName, "MonthInCalendar", each (try(Text.Range([MonthName],0,3)) otherwise [MonthName]) & " " & Number.ToText([Year]), type text),

    InsertCalendarQtr = Table.AddColumn(InsertCalendarMonth, "QuarterInCalendar", each "Q" & Number.ToText([QuarterOfYear]) & " " & Number.ToText([Year]), type text),

    InsertDayWeek = Table.AddColumn(InsertCalendarQtr, "DayInWeek", each Date.DayOfWeek([Date]), type number),

    InsertDayName = Table.AddColumn(InsertDayWeek, "DayOfWeekName", each Date.ToText([Date], "dddd", Culture), type text),

    InsertWeekEnding = Table.AddColumn(InsertDayName, "WeekEnding", each Date.EndOfWeek([Date]), type date),

    #"Inserted Start of Month" = Table.AddColumn(InsertWeekEnding, "StartOfMonth", each Date.StartOfMonth([Date]), type date)

  in

    #"Inserted Start of Month"

in

  CreateDateTable

R-Code-ggplot einfach
 

# The following code to create a dataframe and remove duplicated rows is always executed and acts as a preamble for your script: 

 

# dataset <- data.frame(StartOfMonth, Umsatz)

# dataset <- unique(dataset)

 

# Paste or type your script code here:

 

library(ggplot2)

 

 

dataset$datum = as.Date(dataset$StartOfMonth)

 

grafik <- dataset

 

ggplot(data=grafik, aes(x=grafik$datum , y=grafik$Umsatz))+geom_line(color = "#FC4E07", size = 2)

R-Code ggplot facet_grid
 

# The following code to create a dataframe and remove duplicated rows is always executed and acts as a preamble for your script: 

 

# dataset <- data.frame(StartOfMonth, Umsatz, Category)

# dataset <- unique(dataset)

 

# Paste or type your script code here:

 

 

library(ggplot2)

 

dataset$datum = as.Date(dataset$StartOfMonth)

grafik <- dataset

ggplot(data=grafik, aes(x=grafik$datum , y=grafik$Umsatz))+geom_line(color = "#FC4E07", size = 2)+facet_grid(Segment~Category)

R-Code with Arima Forecast
 

# The following code to create a dataframe and remove duplicated rows is always executed and acts as a preamble for your script: 

 

# dataset <- data.frame(StartOfMonth, Umsatz)

# dataset <- unique(dataset)

 

# Paste or type your script code here:

 

dataset$datum = as.Date(dataset$StartOfMonth)

 

grafik <- dataset

 

library(forecast)

library(tseries)

ARIMA_Sales <- ts(dataset$Umsatz,start=c(1))

Sales_Forecast<- auto.arima(ARIMA_Sales, seasonal=TRUE)

Predicted_Sales <- forecast(Sales_Forecast, h=12)

plot(Predicted_Sales)