How to show fewer decimal digits on an axis of hist_boxplot?

[yang6]

Hi there, I just got a hist_boxplot from the following codes with the given data. There are 8 decimals on the y-axis of the hist_boxplot, any suggestions on how to show fewer decimal digits (i.e. 2 decimals)?

By the way, I need the histogram, boxplot, and density in one graph, please let me know if you have any other methods. Thanks.

data_set <- c(12.05, 10.22, 11.99, 13.22, 13.99, 12.55, 15.88, 16.88, 13.55, 16.77, 12.66)
library(survival)
library(packHV)
hist_boxplot(data_set, freq = FALSE, density = TRUE)

[GreyMerchant]

Hello @yang6,

So this fuction hist_boxplot is very peculiar. I was hoping we can pass it to an assignment and then just round the values. It turned out not to work.

You'll see that I opened up the hist_boxplot function, created my own and applied rounding on certain parts. You can essentially adjust the rounding in the plot function like I did and then run it. See the result below

options(scipen=999)

data_set <- c(12.05, 10.22, 11.99, 13.22, 13.99, 12.55, 15.88, 16.88, 13.55, 16.77, 12.66)
library(survival)
library(packHV)
library(tidyverse)


custom_hist_boxplot <- 
function (x, freq = TRUE, density = FALSE, main = NULL, xlab = NULL, 
          ymax = NULL, ...) 
{
  abs <- deparse(substitute(x))
  if (is.null(xlab)) {
    xlab = abs
  }
  ted <- hist(x, plot = FALSE)
  par(yaxs = "i")
  if (freq) {
    ylim = c(-(max(ted$counts)/5), max(ted$counts)) %>% round(2)
    boxwex = max(ted$counts)/6
  }
  else {
    if (density) {
      max = max(max(density(x)$y), max(ted$density)) %>% round(2)
    }
    else {
      max = max(ted$density) %>% round(2)
    }
    ylim = c(-max/5, max) %>% round(2)
    boxwex = max/6 %>% round(2)
  }
  if (!is.null(ymax)) 
    ylim <- c(-ymax/5, ymax)
  if (is.null(main)) {
    main = paste("Histogram of", abs)
  }
  hist(x, ylim = ylim, yaxt = "n", xlab = xlab, freq = freq, 
       main = main, ...)
  axis(2, at = seq(0, ylim[2], length = 5))
  usrs <- par()$usr
  par(new = TRUE, bty = "n", xaxs = "i", yaxs = "i", 
      ann = FALSE)
  boxplot(x, horizontal = TRUE, ylim = usrs[1:2], add = TRUE, 
          at = usrs[3]/2, pars = list(boxwex = 5), col = "lightblue", 
          boxwex = ylim[2]/6)
  if (density) {
    lines(density(x), lwd = 2, col = "red")
  }
}


custom_hist_boxplot(data_set, freq = FALSE, density = TRUE)

^{Created on 2020-10-10 by the reprex package (v0.3.0)}

[yang6]

Thanks for your help, Grey. Excellent solution.