How to ggplot partial values with only max in whisker plot? - r

Question

I am thinking how to present partial values in whisker plot/...
M2 has only the max.
Both measurements do not hav
Code which output in Fig. 1
library("reshape2")
library("ggplot2")
ds <- structure(list(Vars = c("M1", "M2", "M1", "M2", "M1", "M2"),
variable = structure(c(1L, 1L, 2L, 2L, 3L, 3L), .Label = c("Max",
"Ave", "Min"), class = "factor"), value = c("150",
"61", " 60", NA, " 41", NA)), row.names = c(NA, -6L), .Names = c("Vars",
"variable", "value"), class = "data.frame")
# http://stackoverflow.com/q/44100187/54964 eipi10
ds$value = as.numeric(ds$value)
# http://stackoverflow.com/a/44090815/54964
minmax <- ds[ds$variable %in% c("Min","Max"), ]
absol <- ds[ds$variable %in% c("Ave"), ]
# absol <- ds[ds$variable %in% c("Ave", "Absolute"), ]
minm <- dcast(minmax, Vars ~ variable)
absol <- merge(absol, minm, by = "Vars", all.x = T)
absol
ggplot(absol, aes(x = Vars, y = value, fill = variable)) +
geom_bar(stat = "identity") +
geom_errorbar(aes(ymin = Min, ymax = Max), width = .25)
Values at start
Max Ave Min Vars
M1 150 60 41 M1
M2 61 <NA> <NA> M2
Fig. 1 Output where no visualisations when only max value exists
The presentation of M1 is also weird in the barplot becuase no absolute values in data, designed initially in absol.
Expected output: mark maximum value in M2 presentation
OS: Debian 8.7
R: 3.4 (backports)

Answer 1

Add a column to absol, call it yMin, that will set the min value to the max value if the min value is missing.
absol$yMin <- ifelse(is.na(absol$Min), absol$Max, absol$Min)
Then, when plotting, have the geom_errorbar use yMin in the aesthetics.
ggplot(absol, aes(x = Vars, y = value, fill = variable)) +
geom_bar(stat = "identity") +
geom_errorbar(aes(ymin = yMin, ymax = Max), width = .25)