R/phewas_manhattan.R

In ekawaler/RadPheWAS:

#phenotypePlot <-
#  function(d, max.y,max.x, suggestive.line, significant.line,
#           size.x.labels=9, size.y.labels=9, switch.axis=F, sort.by.value=F, sort.by.category.value=F,
#           #annotation
#           annotate.phenotype.description,
#           annotate.angle=30, annotate.size=5, annotate.level,
#           annotate.phenotype=F,
#           annotate.snp.w.phenotype=F,
#           annotate.snp=F, annotate.snp.angle=0,
#           annotate.list, annotate.only.largest=T,
#           #labels
#           lc.labels=F,
#           x.group.labels=T, x.phenotype.labels=F,
#           sizes=F, direction=F, point.size=3,
#           #plot characteristics
#           use.color=T,
#           color.palette,
#           title= paste0("Phenotype Plot ", date()),
#           x.axis.label="Phenotypes",
#           y.axis.label="Values",
#           y.axis.interval=5)

phewas_manhattan <- function(results){
  phewasManhattan(results, annotate.angle=0, title=results$snp)
}