One_Variable_Plots_and_Summary_Stats.R

############# Getting a Data File into R ##############################
# Download the data set st314-student-survey.csv from Canvas to your computer.
# Don't change anything about the dataset. 
# Simply download and save to familiar location.
# Upload Dataset using the read.csv() command below. 
# file.choose() will open a search window for you to select the file.


st314data = read.csv(file.choose(), header = TRUE)


# Look at the names of the variables in the data with names()

names(st314data)

# Look at the first six rows of data with head()

head(st314data)

# Look at the size of the dataset with nrow()
# n is the number of rows or students in the sample
n = nrow(st314data)
n

# Choose a categorical variable to make a table of counts and a bar chart. 
# To choose a variable from the dataset
# dataset$variable, $ tells R "use this variable from this dataset".
# Example: st314data$SubjectPreffered 
# Choose a different categorical variable for your analysis!

table(st314data$Phone)
barplot(table(st314data$Phone), 
        main = "Type of Phone used by ST314 Fall Students",
        col = c("green","cornflowerblue", "red"),
        cex.names = 0.5,
        las = 2)

# Choose a quantitative variable to visualize. 
# To choose a variable from the dataset
# call the dataset followed by $ and the variable name 
# Example: st314data$Email

# Choose a different quantiative variable for your analysis!

# Make a histogram of your variable of interest 
# Use the hist() command and define the variable from the dataset. 
# dataset$variable, $ tells R "use this variable from this dataset". 

hist(st314data$GamingHours)

# The basic histogram is ugly. Should add a title and some color. 
# Add a title with main = " Title" 
# Add x axis or y axis labels, xlab = " xlabel", ylab = "ylabel" 
# Add color with col = "blue" (or "red" or "orange" etc...)
# More graphical options can be explored at help(hist)

hist(st314data$GamingHours, 
     main = "ST314 Fall 2020 Students: Gaming Hours", 
     xlab = "Number of hours spent gaming over a 7 day period", 
     col = "dodgerblue")

# Now create a boxplot. 
# Should add a title and some color. 
# Add a title with main = " Title" 
# Add x axis or y axis labels, xlab = " xlabel", ylab = "ylabel" 
# Add color with col = "blue" (or "red" or "orange" etc...)
# Graphical options are the essentially the same as histogram. 
# More graphical options can be explored at help(boxplot)

boxplot(st314data$GamingHours, 
     main = "ST314 Fall 2020 Students: Gaming Hours", 
     xlab = "Number of hours spent gaming over a 7 day period", 
     col = "dodgerblue")

# This plot is vertical. 
#Make is horizontal by adding , horizontal = TRUE) 

boxplot(st314data$GamingHours, 
        main = "ST314 Fall 2020 Students: Gaming Hours", 
        xlab = "Number of hours spent gaming over a 7 day period", 
        col = "dodgerblue", horizontal = TRUE)

# Calculate the summary statistics for your chosen variable. 

# Calculate the "Five Number Summary" and the mean with summary()
summary(st314data$GamingHours)

# Calculate the Sample Standard Deviation sd()
sd(st314data$GamingHours)

# Calculate the Sample IQR sd()
IQR(st314data$GamingHours)