.Rhistory

source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
View(high_level_purpse)
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
View(high_level_purpse)
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
View(num_high_level)
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
View(num_high_level)
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
View(num_high_level)
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
View(purpose)
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
View(high_level_table)
View(protests)
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
View(most_articles)
![Black Lives Matter protest crowd](../BLM_protests.png)
View(mean_median_diff)
View(num_in_wa)
View(prop_in_wa)
View(num_protests)
View(state_table)
View(high_level_table)
View(protests)
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a1-foundations-mastery-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
install.packages("tidyverse")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(national)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(national)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(national)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(total_us_cases)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(total_us_cases)
View(states)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(total_us_cases)
View(total_us_deaths)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(num_highest_state)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(state_highest_ratio)
View(state_highest_cases)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(state_lowest_cases)
View(state_lowest_cases)
View(counties)
View(counties[counties$county == "Cook"])
View(counties[counties$county = "Cook"])
View(counties[counties$county == "Cook"])
View(counties[counties$county == "Cook"],)
View(counties[counties$county == "Cook",])
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(states)
View(state_highest_ratio)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(location)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(location)
View(location)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(location_most_deaths)
View(national)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(national)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(national)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(date_most_cases)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(most_deaths)
View(date_most_deaths)
View(counties)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(location)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(highest_in_each_state)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(highest_in_each_state)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(highest_in_each_state)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(highest_in_each_state)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(highest_in_each_state)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(highest_in_each_state)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(highest_in_each_state)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(highest_in_each_state)
View(states)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(state_by_day)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(state_by_day)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(state_by_day)
View(counties)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
highest_in_each_state <- counties %>%
filter(date == max(date, na.rm = TRUE)) %>%
group_by(state) %>%
filter(cases == max(cases, na.rm = TRUE)) %>%
pull(location)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(highest_in_each_state)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(state_by_day)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(location_most_deaths)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(highest_in_each_state)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(lowest_in_each_state)
View(lowest_in_each_state)
View(table(lowest_in_each_state))
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(table(lowest_in_each_state))
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(table(lowest_in_each_state))
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(state_by_day
)
View(county_by_day)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(totals_by_day)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(all_totals)
View(national)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(num_state_diff)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(num_county_diff)
View(counties)
View(states)
View(county_by_day)
View(lowest_in_each_state)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(sum_county_to_state)
sum_county_to_state <- states %>%
# group_by(state) %>%
group_by(date) %>%
summarise(county_totals = sum(cases))
View(sum_county_to_state)
sum_county_to_state <- states %>%
group_by(state) %>%
# group_by(date) %>%
summarise(county_totals = sum(cases))
View(sum_county_to_state)
sum_county_to_state <- states %>%
group_by(state, date) %>%
summarise(county_totals = sum(cases))
sum_county_to_state <- states %>%
group_by(state, date) %>%
summarise(county_totals = sum(cases), .groups = "drop")
View(sum_county_to_state)
View(sum_county_to_state)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(joined_states)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(joined_states)
View(state_by_day)
# To find out where (and when) there is a discrepancy in the number of cases,
# create the variable `has_discrepancy`, which has *only* the observations
# where the sum of the county cases in each state and the state values are
# different. This will be a *dataframe*.
has_discrepancy <- joined_states[joined_states$county_totals != joined_states$cases,]
View(has_discrepancy)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(has_discrepancy)
# To find out where (and when) there is a discrepancy in the number of cases,
# create the variable `has_discrepancy`, which has *only* the observations
# where the sum of the county cases in each state and the state values are
# different. This will be a *dataframe*.
has_discrepancy <- joined_states[joined_states$county_totals == joined_states$cases,]
View(has_discrepancy)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(has_discrepancy)
View(sum_county_to_state)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(counties)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
# To find out where (and when) there is a discrepancy in the number of cases,
# create the variable `has_discrepancy`, which has *only* the observations
# where the sum of the county cases in each state and the state values are
# different. This will be a *dataframe*.
has_discrepancy <- joined_states[joined_states$county_totals != joined_states$cases, na.rm = TRUE]
# To find out where (and when) there is a discrepancy in the number of cases,
# create the variable `has_discrepancy`, which has *only* the observations
# where the sum of the county cases in each state and the state values are
# different. This will be a *dataframe*.
has_discrepancy <- joined_states[joined_states$county_totals != joined_states$cases,], na.rm = TRUE
# To find out where (and when) there is a discrepancy in the number of cases,
# create the variable `has_discrepancy`, which has *only* the observations
# where the sum of the county cases in each state and the state values are
# different. This will be a *dataframe*.
has_discrepancy <- na.omit(joined_states[joined_states$county_totals != joined_states$cases,])
# Next, lets find the *state* where there is the *highest absolute difference*
# between the sum of the county cases and the reported state cases.
# `state_highest_difference`.
# (hint: you may want to create a new column in `has_discrepancy` to do this.)
state_highest_difference <- has_discrepancy[which.max(abs(has_discrepancy$county_totals - has_discrepancy$cases)), 2]
View(state_highest_difference)
print(abs(7-9))
View(national)
# How many days in 2021 where there is no new case reported in the nation?
no_case_2021 <- national[national$date >= "2019-01-01" & national$date <= "2019-12-31" & national$new_cases == "0"]
# How many days in 2021 where there is no new case reported in the nation?
no_case_2021 <- national[national$date >= "2021-01-01" & national$date <= "2021-12-31" & national$new_cases == "0"]
no new case reported in the nation?
# no_case_2021 <- national[national$dat
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(no_case_2021)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
# How many days in 2021 where there is no new case reported in the nation?
no_case_2021 <- national[national$new_cases == "0"]
# How many days in 2021 where there is no new case reported in the nation?
no_case_2021 <- national[national$date >= "2021-01-01" & national$date <= "2021-12-31"]
# How many days in 2021 where there is no new case reported in the nation?
no_case_2021 <- national[national$cases == "0"]
# How many days in 2021 where there is no new case reported in the nation?
no_case_2021 <- national[national$date >= "2021-01-01" & national$date <= "2021-12-31" & national$new_cases == "0",]
View(no_case_2021)
# How many days in 2021 where there is no new case reported in the nation?
no_case_2021 <- national[national$date >= "2020-01-01" & national$date <= "2020-12-31" & national$new_cases == "0",]
View(no_case_2021)
# How many days in 2021 where there is no new case reported in the nation?
no_case_2021 <- national[national$date >= "2022-01-01" & national$date <= "2022-12-31" & national$new_cases == "0",]
View(no_case_2021)
# Is 2022 any better?
no_case_2022 <- national[national$date >= "2022-01-01" & national$date <= "2022-12-31" & national$new_cases == "0",]
View(no_case_2022)
#
odd_ratio <- states[states$ratio >= "1",]
View(odd_ratio)
#
odd_ratio <- states[states$ratio >= "0.5",]
View(odd_ratio)
#
odd_ratio <- states[which.max(states$ratio),]
View(odd_ratio)
#
odd_ratio <- states[which.max(states$ratio), 6]
View(odd_ratio)
#
odd_ratio <- states[which.max(states$ratio), c(1,6)]
View(odd_ratio)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(highest_ratio)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(national)
View(counties)
View(states)
View(state_lowest_cases)
View(state_highest_cases)
View(location_most_deaths)
View(county_highest_cases)
View(lowest_in_each_state)
View(table(lowest_in_each_state))
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(national)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
View(state_highest_difference)
View(has_discrepancy)
source("~/Documents/UW_classes/INFO 201/hw/a2-covid-trends-ngduytan/analysis.R")
install.packages("shiny")
source("~/Documents/UW_classes/INFO 201/lectures/app.r")
runApp('Documents/UW_classes/INFO 201/lectures')
runApp('Documents/UW_classes/INFO 201/lectures')
runApp('Documents/UW_classes/INFO 201/lectures')
runApp('Documents/UW_classes/INFO 201/lectures')
runApp('Documents/UW_classes/INFO 201/lectures')
runApp('Documents/UW_classes/INFO 201/lectures')
runApp('Documents/UW_classes/INFO 201/lectures')
View(incarceration_trend.csv)
View(incarceration_trends.csv)
source("~/Documents/UW_classes/INFO 201/lab/info201_BE_rmarkdown/code.R")
source("~/Documents/UW_classes/INFO 201/lab/info201_BE_rmarkdown/code.R")
install.packages(dplyr)
source("~/Documents/UW_classes/INFO 201/lab/info201_BE_rmarkdown/code.R")
install.packages("usmap")
source("~/Documents/UW_classes/INFO 201/lab/info201_BE_rmarkdown/code.R")
install.packages("tidyverse")
source("~/Documents/UW_classes/INFO 201/lab/info201_BE_rmarkdown/code.R")
install.packages("ggplot2")
install.packages("ggplot2")
source("~/Documents/UW_classes/INFO 201/lab/info201_BE_rmarkdown/code.R")
source("~/Documents/UW_classes/INFO 201/lab/info201_BE_rmarkdown/code.R")
source("~/Documents/UW_classes/INFO 201/lab/info201_BE_rmarkdown/code.R")
source("~/Documents/UW_classes/INFO 201/lab/info201_BE_rmarkdown/code.R")
source("~/Documents/UW_classes/INFO 201/lab/info201_BE_rmarkdown/code.R")
source("~/Documents/UW_classes/INFO 201/lab/info201_BE_rmarkdown/code.R")
shiny::runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
source("~/Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan/app_server.R")
source("~/Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan/app_ui.R")
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
shiny::runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
source("~/Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan/app_server.R")
View(filter2_df)
source("~/Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan/app_server.R")
source("~/Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan/app_server.R")
View(filter2_df)
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
source("~/Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan/app_server.R")
source("~/Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan/app_server.R")
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
source("~/Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan/app_server.R")
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
source("~/Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan/app_server.R")
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
source("~/Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan/app_server.R")
source("~/Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan/app_server.R")
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
install.packages("plotly")
install.packages("plotly")
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
source("~/Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan/app_server.R")
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
source("~/Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan/app_server.R")
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
runApp('Documents/UW_classes/INFO_201/hw/a4-data-applications-ngduytan')
setwd("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/:data")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
install.packages("dplyr")
install.packages("dplyr")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/summary_calc.r")
View(summary_info)
knitr::opts_chunk$set(echo = TRUE)
library(ggplot2)
library(dplyr)
View(summary_info)
View(state_np_area)
View(vis_by_state)
View(vis_to_acre)
chart_1
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/app_server.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/app_server.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/app_server.r")
runApp('~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder')
setwd("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/:data")
runApp('~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder')
runApp('~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder')
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
runApp('~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder')
runApp('~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder')
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
runApp('~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/app.r')
runApp('~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/:data')
runApp('~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/')
runApp('~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/')
runApp('~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder')
runApp('~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder')
View(summary_info)
View(us_states_territories)
View(us_states_territories)
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
View(sec_us_states_territories)
View(park_visits)
View(chart_2_df)
View(sec_us_states_territories)
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
View(parks)
View(sec_us_states_territories)
View(chart_2_df)
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
View(chart_2_df)
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
View(chart_2_df)
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
View(chart_2_df)
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/app_ui.r")
runApp('~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder')
runApp('~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder')
runApp('~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder')
library(shiny)
library(shiny)
runApp('~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder')
runApp('~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder')
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
getwd()
setwd("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/app_server.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/app_server.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/app_server.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")
source("~/Documents/UW_classes/INFO_201/final_project/final-projects-JackSchreuder/chart_2.r")