Rent Control

rent control

# Read the data
sf <- read.csv("sf_tenants.csv")

# Recode 
sf$market_rates <- gsub("%", "", sapply(strsplit(sf$market_rate, " / "), "[", 2)) # market_rate
sf$rent_control_rates <- gsub("%", "", sapply(strsplit(sf$rent_control, " / "), "[", 2)) # market_rate

# Ratio of rent_control vs. rent_control 
sf$ratio <- as.numeric(sf$rent_control_rates)/as.numeric(sf$market_rates)

# Load libs 
library(ggplot2)

# Custom Theme
cust_theme <- 
theme_minimal() +
theme(panel.grid.major.x = element_blank(),
	  panel.grid.major.y = element_line(color="#e7e7e7",  linetype = "dotted"),
	  panel.grid.minor   = element_blank(),
	  legend.position    ="none",
	  legend.key         = element_blank(),
	  legend.key.width   = unit(1,"cm"),
	  axis.title   = element_text(size=10, color="#555555"),
	  axis.text    = element_text(size=8, color="#555555"),
	  axis.ticks.y = element_blank(),
	  axis.title.x = element_text(vjust=-1),
	  axis.title.y = element_text(vjust= 1),
	  axis.ticks.x = element_line(color="#e3e3e3", size=.2),
	  plot.margin = unit(c(0,1,.5,.5), "cm"))

# Plot 
ggplot(sf[1:5,], aes(x=Ethnicity, y=ratio)) + 
geom_bar(stat="identity") + 
xlab("") +
ylab("Ratio of Percent in Rent Control and Percent in Market Rates") + 
cust_theme 

ggsave("ratio.png")

# Two bars
# Plot 
sf2 <- with(sf[1:5, ], data.frame(ethnicity = c(Ethnicity, Ethnicity), value = as.numeric(c(market_rates, rent_control_rates)), market_rent = c(rep("Market Rate", 5), rep("Rent Control", 5))))

ggplot(sf2, aes(x=ethnicity, y=value, fill=market_rent)) + 
geom_bar(stat = "identity", width=.25, position="dodge") +  
xlab("") +
ylab("Percent of Market Rate and Rent Control Apartments Occupied by Ethnicity") + 
cust_theme 
ggsave("two_bars.png")

sf_tenants.csv