Skip to content

Instantly share code, notes, and snippets.

@albert-decatur
Last active August 29, 2015 14:24
Show Gist options
  • Save albert-decatur/4f0366d8a304ac0e6ad3 to your computer and use it in GitHub Desktop.
Save albert-decatur/4f0366d8a304ac0e6ad3 to your computer and use it in GitHub Desktop.
ggplot for richmond property values
cat totalValue_by_streetType.txt | Rio -d'\t' -ge 'png("/tmp/foo.png",width=9,height=6,res=600,units="in"); library(scales);df$type <- factor(df$type, levels=c("civil rights leader","either","confederate")); ggplot(df,aes(x=df$type,y=df$total_value)) + coord_trans(y = "log10") + coord_flip() + geom_boxplot(aes(fill=df$type),outlier.shape = 1, outlier.size = 1) + labs(x="street named after",y="property value, USD 2015 (log scale)") + theme(axis.text.y = element_text(size=15,angle=90,hjust=.5),legend.position = "none") + scale_fill_manual(values=c("#0066CC", "#70B359", "#999999")) + scale_y_log10(breaks = trans_breaks("log10", function(x) 10^x)) + labs(titles="Value of Properties by Streets\nNamed After Confederates or Civil Rights Leaders\nRichmond VA 2015"); dev.off()'
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment