2019 Expenses (June to December)

The objective of the project is to create Shiny Apps. For this project using data for my 2019 Expenses from June to December based on categories.

For more details on R codes please visit https://github.com/EdricKaw/Course-Project-Shiny-Application-and-Reproducible-Pitch

For the shiny Application please visit https://edrickaw.shinyapps.io/ExpensesApp/

library(readxl)
library(dplyr)
data <- read_excel(“2019_Expenses.xlsx”, col_types = c(“date”, “text”, “text”,“numeric”, “numeric”, “numeric”,“text”))

data2 <- data.frame(data) %>% group_by(Year_Month, category) %>% summarize(count=n(), Total_Spent=sum(Money.Spent), Average_Spent=mean(Money.Spent))

For more details please visit the github link https://github.com/EdricKaw/Course-Project-Shiny-Application-and-Reproducible-Pitch on files server.R and ui.R

  Year_Month      category count Total_Spent Average_Spent
1     201906         Bills     7     1690.09     241.44143
2     201906           Car     2       15.00       7.50000
3     201906    Eating out    38      583.69      15.36026
4     201906 Entertainment     2      455.40     227.70000
5     201906          Food     4       48.78      12.19500
6     201906         Gifts     3     1018.90     339.63333

Please find the shiny apps on https://edrickaw.shinyapps.io/ExpensesApp/