From d041537c7d17c54a220a1765281a3d64de1c14a4 Mon Sep 17 00:00:00 2001 From: GeraldineGomez Date: Thu, 25 Apr 2024 08:13:22 -0500 Subject: [PATCH] fix(plot_sex): lintr spaces Ref: #108 --- R/plotting.R | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/R/plotting.R b/R/plotting.R index 8213398a..2a3a8008 100644 --- a/R/plotting.R +++ b/R/plotting.R @@ -543,8 +543,10 @@ plot_sex <- function(data_agrupada, } if (porcentaje) { plot_casos_sex <- ggplot2::ggplot(data_agrupada, - ggplot2::aes(x = .data[[col_sex]], - y = .data[[col_distribucion]], + ggplot2::aes(x = + .data[[col_sex]], + y = + .data[[col_distribucion]], fill = .data[[col_sex]])) + ggplot2::geom_bar(width = 0.5, stat = "identity") + @@ -565,8 +567,10 @@ plot_sex <- function(data_agrupada, ncol = 2) } else { plot_casos_sex <- ggplot2::ggplot(data_agrupada, - ggplot2::aes(x = .data[[col_sex]], - y = .data[[col_distribucion]], + ggplot2::aes(x = + .data[[col_sex]], + y = + .data[[col_distribucion]], fill = .data[[col_sex]])) + ggplot2::geom_bar(width = 0.5, stat = "identity") +