9d88e0062744b8dea79861cb32836424485f2ebd chmalee Thu Mar 18 13:10:00 2021 -0700 When overwriting barChart boxplot labels with empty value because we draw custom ones later, I forgot to override the y-label value for new vertical boxplots, refs #27149 diff --git src/hg/hgc/hgcData/barChartBoxplot.R src/hg/hgc/hgcData/barChartBoxplot.R index 870da6e..45d98ac 100644 --- src/hg/hgc/hgcData/barChartBoxplot.R +++ src/hg/hgc/hgcData/barChartBoxplot.R @@ -65,31 +65,31 @@ main=title, horizontal=TRUE, space = 0.3, col=colorsHex, border=c(darkgray), # medians medcol="black", medlwd=2, # outliers outcex=.5, outcol=darkgray, # whiskers whisklty=1, whiskcol=gray, # 'staples' staplecol=gray, staplecex=1.3, staplewex=.8, # erase y ticks yaxt="n", # with R versions 3.6 and later must suppress x-labels manually - xlab="", + xlab="", ylab="" # erase X axis labels (add later rotated) names=rep(c(""), count)) y1 <- par("usr")[1] # draw numbers only black, at 90 degrees and left-adjusted rot <- 0 adjust <- .15*abs(y1) text(y1 + adjust, rev(1:count), exprPlot$n, cex=size, col="black", srt=rot, adj=0.0) # draw labels size <- .9 adjust <- .4*abs(y1) text(y1-adjust, rev(1:count), cex=size, labels=labels, srt=rot, xpd=TRUE, adj=c(1,.5), col="black") } } drawBarPlot <- function(df) {