Skip to content

Instantly share code, notes, and snippets.

Shawn Mollie Taylor mollietaylor

Block or report user

Report or block mollietaylor

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@mollietaylor
mollietaylor / cities-coords.csv
Last active Jan 4, 2016
Merge by City and State in R
View cities-coords.csv
City State Latitude Longitude
San Francisco CA 37.7782251 -122.4424955
New York NY 40.7142691 -74.0059729
Los Angeles CA 34.0522342 -118.2436849
Chicago IL 41.850033 -87.6500523
Dallas TX 32.7830556 -96.8066667
Columbus GA 32.4609764 -84.9877094
Columbus OH 39.9611755 -82.9987942
@mollietaylor
mollietaylor / index.html
Created Jan 22, 2014
Add and Remove Leaflet Circle on Click
View index.html
<!DOCTYPE html>
<meta charset="utf-8">
<html>
<head>
<title>Click Circle</title>
<link rel="stylesheet" href="http://cdn.leafletjs.com/leaflet-0.6.4/leaflet.css" />
<!--[if lte IE 8]>
<link rel="stylesheet" href="http://cdn.leafletjs.com/leaflet-0.6.4/leaflet.ie.css" />
<![endif]-->
<script src="http://cdn.leafletjs.com/leaflet-0.6.4/leaflet.js"></script>
View audio.geojson
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@mollietaylor
mollietaylor / factorDummies.R
Created Jan 2, 2014
Compare Regression Results to a Specific Factor Level in R
View factorDummies.R
str(ChickWeight$Diet)
table(ChickWeight$Diet)
ols <- lm(weight ~ Time + Diet,
data = ChickWeight)
summary(ols)
ChickWeight$Diet <- relevel(ChickWeight$Diet,
ref = 4)
@mollietaylor
mollietaylor / fit.R
Last active Oct 21, 2018
ggplot or Lattice Fit Line in R
View fit.R
ols <- lm(Temp ~ Solar.R,
data = airquality)
summary(ols)
str(ols)
plot(Temp ~ Solar.R,
data = airquality)
abline(ols)
@mollietaylor
mollietaylor / index.html
Created Nov 21, 2013
Import JSON Data from an External File in Leaflet
View index.html
<!DOCTYPE html>
<meta charset="utf-8">
<html>
<head>
<title>Cities I've Been To</title>
<link rel="stylesheet" href="http://cdn.leafletjs.com/leaflet-0.6.4/leaflet.css" />
<!--[if lte IE 8]>
<link rel="stylesheet" href="http://cdn.leafletjs.com/leaflet-0.6.4/leaflet.ie.css" />
<![endif]-->
<script src="http://cdn.leafletjs.com/leaflet-0.6.4/leaflet.js"></script>
@mollietaylor
mollietaylor / presentations.txt
Created Nov 16, 2013
Govathon presentations
View presentations.txt
bus tracker
trash collection 404-620-5025
budget app http://public.tableausoftware.com/views/Expenses_2_0/DepartmentDashboard#1
innovations app
APS parent portal
form flow
votified http://votified.com/
geoincentives wordpress plugin
vendor application
municiplanner http://municiplanner.org/
@mollietaylor
mollietaylor / quickStart.html
Last active Dec 26, 2015
Make All Polygons the Same Shade in Leaflet
View quickStart.html
<!DOCTYPE html>
<meta charset="utf-8">
<html>
<head>
<title>Quick Start</title>
<link rel="stylesheet" href="http://cdn.leafletjs.com/leaflet-0.6.4/leaflet.css" />
<!--[if lte IE 8]>
<link rel="stylesheet" href="http://cdn.leafletjs.com/leaflet-0.6.4/leaflet.ie.css" />
<![endif]-->
<script src="http://cdn.leafletjs.com/leaflet-0.6.4/leaflet.js"></script>
@mollietaylor
mollietaylor / lineBreaks.R
Last active Oct 21, 2018
Line Breaks Between Words in Axis Labels in ggplot in R
View lineBreaks.R
library(OIdata)
data(birds)
library(ggplot2)
levels(birds$effect) <- gsub(" ", "\n", levels(birds$effect))
ggplot(birds,
aes(x = effect,
y = speed)) +
geom_boxplot() +
coord_flip()
View map-new-legend.R
library(OIdata)
library(RColorBrewer)
library(classInt)
# load state data from OIdata package:
data(state)
# set constants:
nclr <- 8 # number of bins
min <- 0 # theoretical minimum
You can’t perform that action at this time.