# --- Create dummy data
mfratio <- data.frame( Country = sample(EpiReport::MSCode$Country, 28),
Ratio = runif(28, min = 0, max = 28))
# --- Plot the dummy data
plotBarH(mfratio,
xvar = "Country",
xlabel = "",
yvar = "Ratio",
ylabel = "Male-to-Female ratio",
log10_scale = FALSE)
plotBarH(mfratio,
xvar = "Country",
xlabel = "",
yvar = "Ratio",
ylabel = "Male-to-Female ratio",
log10_scale = TRUE,
xlabel_black = "EU-EEA")
Run the code above in your browser using DataLab