district of columbia craigslist job postings by day in march.R

library(rvest)

baseurl <- "https://washingtondc.craigslist.org/search/doc/jjj"

raw_query_list <- 
	lapply( 
		paste0( baseurl , "?s=" , seq( 0 , 1469 , 120 ) ) , 
		xml2::read_html 
	)

raw_ads_list <- lapply( raw_query_list , html_nodes , "li.result-row" )

raw_ads_times <- lapply( raw_ads_list , html_node , 'time' )

datetimes <- lapply( raw_ads_times , html_attr , 'datetime' )

plot(  as.Date( unlist( datetimes ) ) )

march_day <- as.numeric( format( as.Date( unlist( datetimes ) ) , "%d") )

hist( 
	march_day , 
	main = "district of columbia job postings on craigslist.org" , 
	xlab = 'day in march' ,
	breaks = 1:31 ,
	axes = FALSE
)

axis( side = 1 , at = seq( 1 , 31 ) )