Merge pull request #8 from pabsantos/7-add-option-to-change-font-size

7 add option to change font size

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: onsvplot
 Title: Apply ONSV Style for Ggplot Graphics
-Version: 0.2.1
+Version: 0.2.2
 Authors@R: 
     person(
         given = c("Pedro", "Augusto", "Borges"), 

NEWS.md

@@ -1,10 +1,13 @@
+# onsvplot 0.2.2
+
+* Add new parameter to `theme_onsv()` (#7): Now it is possible to change `basesize` of the font used in the plot
+
 # onsvplot 0.2.1
 
 * Add two new parameters to `theme_onsv()` (#3): `plot.title.position = "plot"` and `plot.caption.position = "plot"`.
 
 * Add bottom margin to `title` element.
 
-
 # onsvplot 0.2.0
 
 * Updates the package name to `onsvplot`. The `obsplot` package already exists, therefore it was necessary to change the previous name. (#4)

R/theme_onsv.R

@@ -2,6 +2,8 @@
 #'
 #' `theme_onsv()` is used to apply the ONSV theme to a ggplot graphics.
 #'
+#' @param basesize A number to define font base size
+#'
 #' @return A custom `theme()` object.
 #' @export
 #'
@@ -11,7 +13,7 @@
 #' ggplot(data = iris, aes(x = Sepal.Width, y = Sepal.Length)) +
 #'   geom_point() +
 #'   theme_onsv()
-theme_onsv <- function() {
+theme_onsv <- function(basesize = 10) {
   if (.Platform$OS.type == "windows") {
     font <- "sans"
   } else {
@@ -21,14 +23,14 @@ theme_onsv <- function() {
   ggplot2::theme(
     plot.title = ggplot2::element_text(
       family = font,
-      size = 14,
+      size = basesize + 4,
       face = "bold",
       color = "grey10",
       margin = ggplot2::margin(t = 0, r = 0, b = 5, l = 0),
     ),
     plot.subtitle = ggplot2::element_text(
       family = font,
-      size = 12,
+      size = basesize + 2,
       margin = ggplot2::margin(t = 5, r = 0, b = 5, l = 0),
       color = "grey20"
     ),
@@ -42,19 +44,19 @@ theme_onsv <- function() {
     legend.key = ggplot2::element_blank(),
     legend.text = ggplot2::element_text(
       family = font,
-      size = 10,
+      size = basesize,
       color = "grey20"
     ),
     legend.margin = ggplot2::margin(t = 0, r = 0, b = 0, l = -10),
     axis.title = ggplot2::element_text(
       family = font,
-      size = 10,
+      size = basesize,
       color = "grey10"
     ),
     axis.ticks = ggplot2::element_blank(),
     axis.text = ggplot2::element_text(
       family = font,
-      size = 9,
+      size = basesize - 1,
       color = "grey30"
     ),
     panel.grid.minor = ggplot2::element_blank(),
@@ -68,6 +70,6 @@ theme_onsv <- function() {
     ),
     panel.background = ggplot2::element_rect(color = "white", fill = "white"),
     strip.background = ggplot2::element_rect(fill = "white"),
-    strip.text = ggplot2::element_text(size = 12, hjust = 0)
+    strip.text = ggplot2::element_text(size = basesize + 2, hjust = 0)
   )
 }

README.Rmd

@@ -82,7 +82,7 @@ ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width)) +
 
 ## Citation
 
-If you want to cite this package, you can cite as :
+If you want to cite this package, you can cite as:
 
 ```{r citation, echo=FALSE}
 citation("onsvplot")

README.md

@@ -92,19 +92,19 @@ ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width)) +
 
 ## Citation
 
-If you want to cite this package, you can cite as :
+If you want to cite this package, you can cite as:
 
     #> To cite package 'onsvplot' in publications use:
     #> 
     #>   Santos PAB (2023). _onsvplot: Apply ONSV Style for Ggplot Graphics_.
-    #>   R package version 0.2.1, <https://www.github.com/pabsantos/onsvplot>.
+    #>   R package version 0.2.2, <https://www.github.com/pabsantos/onsvplot>.
     #> 
     #> A BibTeX entry for LaTeX users is
     #> 
     #>   @Manual{,
     #>     title = {onsvplot: Apply ONSV Style for Ggplot Graphics},
     #>     author = {Pedro Augusto Borges Santos},
     #>     year = {2023},
-    #>     note = {R package version 0.2.1},
+    #>     note = {R package version 0.2.2},
     #>     url = {https://www.github.com/pabsantos/onsvplot},
     #>   }