What would it feel like if my parents or grandparents’ generations lived in the same building I live in 30 or 50 years ago? As a Korean student studying abroad, I am not used to that feeling because there are a lot of new cities and new buildings in Korea, but it is very common for the residents of Philadelphia.
“My father also graduated from the University of Pennsylvania, and he used the same dormitory building when he went to school.”
“My grandmother also went to this cathedral.”
knitr::opts_chunk$set(echo = TRUE)
if (!dir.exists("data")) {
dir.create("data")
}
# Install and Load Libraries
# install.packages('mapview')
library(tidyverse)
library(tidycensus)
library(sf)
library(kableExtra)
library(mapview)
library(dplyr)
library(scales)
library(viridis)
library(ggtext)
library(showtext)
library(maps)
library(ggplot2)
library(cowplot)
library(readxl)
library(leaflet)
library(httr)
remotes::install_github("mikejohnson51/climateR")
font_add_google("Roboto", "roboto")
showtext_auto(TRUE)
plotTheme <- theme(
plot.title = element_text(face="bold", hjust = 0, size=15, lineheight=0.8),
plot.subtitle = element_text(hjust = 0, size = 10, face = "italic", lineheight=0.8, margin = margin(b = 3, t = 6)),
plot.caption = element_text(size = 10, hjust = 0, lineheight=0.9),
plot.margin = margin(1.7, 1.7, 1.7, 1.7),
text = element_text(family = "roboto"),
legend.position="bottom",
legend.title = element_text(size = 10))
# Disable Scientific Notation
options(scipen=999)
options(tigris_class = "sf")
# Set ACS API Key
census_api_key("b2835f54d89a4499ba29829c908967b86765b345", overwrite = TRUE)
The following photos of Chestnut Street and 36th Street show that Philadelphia has preserved its streetscape, buildings, and even type of businesses for over 100 years. [1]
1895
1910