Pheweb variant plot in ggplot2

pheweb.R

library(httr)
library(jsonlite)
library(ggplot2)
library(ggrepel)

variant <- "4-74853287-G-A"

getVariantData <- function(variant) {
    raw <- GET(paste0("http://pheweb.sph.umich.edu/FinMetSeq/variant/", variant))
    html <- content(raw, as="text")
    js <- regmatches(html,regexpr("window.variant = (.*)};", html, perl=T))
    json_string <- gsub(";$","",gsub("window.variant = ", "", js))
    fromJSON(json_string)
}

variant_data <- getVariantData(variant)
pheno_data <- variant_data$phenos

adjustOrder <- function(phenocodes, categories) {
      codes_by_cat <- split(phenocodes, categories)
	list(
          reordered = factor(phenocodes, levels=unlist(codes_by_cat)),
          firstcode = lapply(codes_by_cat, function(x) x[1])
      )
}

adj <- with(pheno_data, adjustOrder(phenocode, category))
pheno_data$ordcat <- adj$reordered

to_label <- subset(pheno_data, -log10(pval)>5)

ggplot(pheno_data, aes(ordcat, -log10(pval))) + 
   geom_point(aes(color=category)) + 
   geom_text_repel(aes(label = phenostring), data=to_label) +
   scale_x_discrete(breaks=unlist(adj$firstcode),labels=names(adj$firstcode)) + 
   theme(axis.text.x = element_text(angle = -45, hjust=0)) + 
   guides(color=FALSE) + xlab("")