inst/app-visualize/helper/histogram.R

In rsquaredacademy/xplorerr: Tools for Interactive Data Exploration

# histogram
hist_plot <- function(x, bins, title = NA, xlab = NA, 
	ylab = NA, ylimit = NULL, probability = FALSE, right = TRUE, 
	axes = TRUE, labels = FALSE, 
	col = NULL, border = 'black',
	colmain = "black", colsub = "black", colaxis = "black",
	collab = "black", fontmain = 1, fontsub = 1, fontaxis = 1, fontlab = 1, 
	cexmain = 1, cexsub = 1, cexaxis = 1, cexlab = 1, leg = FALSE, leg_x, leg_y, legend,
	leg_point = 15, leg_colour, leg_boxtype, leg_boxcol, leg_boxlty, leg_boxlwd,
	leg_boxborcol, leg_boxxjust, leg_boxyjust, leg_textcol, leg_textfont,
	leg_textcolumns, leg_texthoriz, leg_title, leg_titlecol, leg_textadj, text_p = NA,
	text_x_loc = NA, text_y_loc = NA, text_col = "black", text_font = NA,
	text_size = NA, m_text = NA, m_side = 3, m_line = 0.5, m_adj = 0.5,
	m_col = "black", m_font = 1, m_cex = 1) {

	# hist function
	hist(x, breaks = bins, main = title, xlab = xlab, ylab = ylab, ylim = ylimit,
	probability = probability, right = right, axes = axes, labels = labels, 
	density = NULL, angle = 45, col = col, border = border,
  	col.main = colmain, col.sub = colsub,col.axis = colaxis, 
  	col.lab = collab, font.main = fontmain, font.sub = fontsub, 
  	font.axis = fontaxis, font.lab = fontlab, cex.main = cexmain, 
  	cex.sub = cexsub, cex.axis = cexaxis, cex.lab = cexlab)

  	# legend
  	if (leg == TRUE) {
  		legend(leg_x, leg_y, 
               legend = legend, pch = leg_point, col = leg_colour,
               bty = leg_boxtype, bg = leg_boxcol,
               box.lty = leg_boxlty, box.lwd = leg_boxlwd,
               box.col = leg_boxborcol, xjust = leg_boxxjust,
               yjust = leg_boxyjust, text.col = leg_textcol,
               text.font = leg_textfont, ncol = leg_textcolumns,
               horiz = leg_texthoriz, title = leg_title,
               title.col = leg_titlecol, title.adj = leg_textadj)
  	}

	# add text inside the plot
   	text(text_x_loc, text_y_loc, text_p, font = text_font, col = text_col,
  		cex = text_size)
  
	# add text on the margins of the plot
   	mtext(m_text, side = m_side, line = m_line, adj = m_adj,
  		col = m_col, font = m_font, cex = m_cex)

}

# histogram test
# hist_plot(mtcars$disp, bins = 5, colours = "blue", border = "red")