default fill color set to lightgray for reg line confidence bands #111

NEWS.md

@@ -2,7 +2,7 @@
 
 ## New features
 
-- New errorbar functions - `median_hilow_()` and `median_q1q3()` -  added ([@davidlorenz, #258](https://github.com/kassambara/ggpubr/issues/209)):
+- New errorbar functions - `median_hilow_()` and `median_q1q3()` -  added ([@davidlorenz, #209](https://github.com/kassambara/ggpubr/issues/209)):
     - `median_hilow_()`: computes the sample median and a selected pair of outer quantiles having equal tail areas. This function is a reformatted version of `Hmisc::smedian.hilow()`. The confidence limits are computed as follow: `lower.limits = (1-ci)/2` percentiles; `upper.limits = (1+ci)/2` percentiles. By default (`ci = 0.95`), the 2.5th and the 97.5th percentiles are used as the lower and the upper confidence limits, respectively. If you want to use the 25th and the 75th percentiles as the confidence limits, then specify `ci = 0.5` or use the function `median_q1q3()`.
     - `median_q1q3()`: computes the sample median and, the 25th and 75th percentiles. Wrapper around the function median_hilow_() using ci = 0.5.
 - New function `get_breaks()` added to easily create breaks for numeric axes. Can be used to increase the number of x and y ticks by specifying the option `n`. It's also possible to control axis breaks by specifying a step between ticks. For example, if by = 5, a tick mark is shown on every 5 ([@Chitanda-Satou, #258](https://github.com/kassambara/ggpubr/issues/258)).
@@ -14,7 +14,7 @@
 
 ## Bug fixes
 
-   
+- `ggscatter()`: When `conf.int = FALSE`, fill color is set to "lightgray" for the regression line confidence band ([@zhan6073, #111](https://github.com/kassambara/ggpubr/issues/111)).
 - Now, `gghistogram()` supports the paramter `yticks.by` ([@Chitanda-Satou, #258](https://github.com/kassambara/ggpubr/issues/258)).
 
 

R/ggscatter.R

@@ -266,6 +266,7 @@ ggscatter_core <- function(data, x, y,
   if(add %in% c("reg.line", "loess")){
     add <- ifelse(add == "reg.line", stats::lm, stats::loess)
     if(is.null(add.params$linetype)) add.params$linetype <- "solid"
+    if(conf.int == FALSE) add.params$fill <- "lightgray"
 
     .args <- .geom_exec(NULL, data = data,
                         se = conf.int, level = conf.int.level,