tempo saving

README.md

 #### DESCRIPTION
 
-Cute Little R Functions contains 33 functions for R/RStudio that facilitate basic procedures in 1) object analysis, 2) object modification, 3) graphic handling and 4) log file management.
+Cute Little R Functions contains 34 functions for R/RStudio that facilitate basic procedures in 1) object analysis, 2) object modification, 3) graphic handling and 4) log file management.
 
 The function names are:
 
@@ -46,6 +46,7 @@ fun_empty_graph() #### text to display for empty graphs
 ## gg graphics
 
 fun_gg_palette() #### ggplot2 default color palette
+fun_gg_just() #### ggplot2 justification of the axis labeling, depending on angle
 fun_gg_scatter() #### ggplot2 scatterplot + lines (up to 6 overlays totally)
 fun_gg_bar_mean() #### ggplot2 mean barplot + overlaid dots if required
 fun_gg_heatmap() #### ggplot2 heatmap + overlaid mask if required
@@ -124,6 +125,7 @@ fun_mat_fill()
 fun_consec_pos_perm()
 fun_empty_graph()
 fun_gg_palette()
+fun_gg_just()
 fun_gg_scatter()
 fun_gg_bar_mean()
 fun_gg_heatmap()
@@ -136,7 +138,9 @@ fun_python_pack_import()
 
 4) in fun_param_check(): (1) has now the class = "vector", (2) argument fun.name added
 
-5) writiing and debugging message errors improved in all the functions
+5) writting and debugging message errors improved in all the functions
+
+6) Functions checked for R version 3.5.3
 
 
 ## v5.1.0

examples_alone.txt

@@ -198,6 +198,16 @@ plot(1, pch = 16, cex = 5, col = fun_gg_palette(n = 2)[2]) # second color of the
 
 
 
+######## fun_gg_just()
+
+fun_gg_just(angle = 45, axis = "x")
+fun_gg_just(angle = (360*2 + 45), axis = "y")
+output <- fun_gg_just(angle = 45, axis = "x") ; obs1 <- data.frame(time = 1:20, group = rep(c("CLASS_1", "CLASS_2"), times = 10)) ; ggplot2::ggplot() + ggplot2::geom_bar(data = obs1, mapping = ggplot2::aes(x = group, y = time), stat = "identity") + ggplot2::theme(axis.text.x = ggplot2::element_text(angle = output$angle, hjust = output$hjust, vjust = output$vjust))
+output <- fun_gg_just(angle = -45, axis = "y") ; obs1 <- data.frame(time = 1:20, group = rep(c("CLASS_1", "CLASS_2"), times = 10)) ; ggplot2::ggplot() + ggplot2::geom_bar(data = obs1, mapping = ggplot2::aes(x = group, y = time), stat = "identity") + ggplot2::theme(axis.text.y = ggplot2::element_text(angle = output$angle, hjust = output$hjust, vjust = output$vjust)) + ggplot2::coord_flip()
+output1 <- fun_gg_just(angle = 90, axis = "x") ; output2 <- fun_gg_just(angle = -45, axis = "y") ; obs1 <- data.frame(time = 1:20, group = rep(c("CLASS_1", "CLASS_2"), times = 10)) ; ggplot2::ggplot() + ggplot2::geom_bar(data = obs1, mapping = ggplot2::aes(x = group, y = time), stat = "identity") + ggplot2::theme(axis.text.x = ggplot2::element_text(angle = output1$angle, hjust = output1$hjust, vjust = output1$vjust), axis.text.y = ggplot2::element_text(angle = output2$angle, hjust = output2$hjust, vjust = output2$vjust))
+
+
+
 ######## fun_gg_scatter()
 
 obs1 <- data.frame(a = 1:6, b = (1:6)^2, group = c("A", "A", "A", "B", "B", "B")) ; obs1 ; fun_gg_scatter(data1 = list(L1 = obs1), x = list(L1 = names(obs1)[1]), y = list(L1 = names(obs1)[2]), categ = list(L1 = names(obs1)[3]), legend.name = NULL, color = NULL, geom = list(L1 = "geom_point"), xlim = NULL, ylim = NULL, extra.margin = 0.05, xlab = NULL, ylab = NULL, pt.size = 1, li.size = 0.5, alpha = 0.5, title = "GRAPH1", text.size = 12, return = FALSE, classic = FALSE)