Please do the programming work based on the guideline.

#installing packages
install.packages("janitor")
install.packages("lubridate")
install.packages("plyr")
#calling packages
library(janitor)
library(lubridate)
library(plyr)
## set the working directory where the data file is located using Ctrl+Shift+H
## reading data file
data <- read.table("assignment1.txt", sep="\t", header=T)
##Checking the dimension
dim(data)
# The dimension is correct as given in data file
##Excluding the missing values
data_surveyed<-data[!is.na(data$satis_survey),]
##Printing the frequenct table contains counts and percentages of each survey
tabyl(data_surveyed$satis_survey, sort = TRUE)
##changing survey_date column into date format
data_surveyed$survey_date<-as.Date(data_surveyed$survey_date,format = "%m/%d/%Y")
##Adding month column for our use
data_surveyed$Month<-month(data_surveyed$survey_date,label =...