# ---
# jupyter:
#   jupytext:
#     text_representation:
#       extension: .r
#       format_name: light
#       format_version: '1.5'
#       jupytext_version: 1.14.4
#   kernelspec:
#     display_name: R
#     language: R
#     name: ir
# ---

dfSF = read.csv('F:/GitHub Repos/datasci_course_materials/assignment6/sanfrancisco_incidents_summer_2014.csv',head=TRUE,sep=",")

summary(df)

library(ggplot2)

install.packages('ggplot2', repos='http://cran.us.r-project.org')

library(ggplot2)

dfSF = df
dfSea = read.csv('F:/GitHub Repos/datasci_course_materials/assignment6/seattle_incidents_summer_2014.csv',head=TRUE,sep=",")

summary(dfSea)

dfSF$Month <- as.Date(cut(dfSF$Date,breaks="month"))
dfSF$Year <- as.Date(cut(dfSF$Date,breaks="year"))

dfSF$Date <- ymd_hms(dfSF$Date)

library(lubridate)

summary(dfSF)

dfSF$Month<-month(as.POSIXlt(dfSF$Date, format="%d/%m/%Y"))
dfSF$Year<-year(as.POSIXlt(dfSF$Date, format="%d/%m/%Y"))

summary(dfSF)

summary(dfSea)
summary(dfSF)



StarcoderdataJupyterScriptsDedupFiltered