From 0e59c646626f4736d1d04e34a6f6e7043c5cdd37 Mon Sep 17 00:00:00 2001 From: Gavin Rhys Lloyd Date: Fri, 8 Mar 2024 09:00:18 +0000 Subject: [PATCH] fix use of .data with aes --- R/glog_transformation.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/glog_transformation.R b/R/glog_transformation.R index 9e8e997..3013cd9 100644 --- a/R/glog_transformation.R +++ b/R/glog_transformation.R @@ -125,7 +125,7 @@ glog_plot_optimised_lambda <- function(df, optimised_lambda, classes, qc_label, length.out=plot_grid)) sse_df$SSE <- vapply(X=sse_df$lambda, FUN=SSE, y0=0, y=assay(df_qc), FUN.VALUE=numeric(1)) - g <- ggplot(data=sse_df, aes(x=data[['lambda']],y=data[['SSE']])) + + g <- ggplot(data=sse_df, aes(x=.data[['lambda']],y=.data[['SSE']])) + geom_vline(xintercept=optimised_lambda, color="red") + geom_line(linewidth=1.1) + theme_bw() + labs (title="glog parameter optimisation",