From a92d46259c900cbbd80286e70c3ad891cb58827b Mon Sep 17 00:00:00 2001 From: "Vera N. Karlbauer" Date: Fri, 7 Mar 2025 11:12:13 +0100 Subject: [PATCH] Fixed density report titles --- scripts/3_quality_control.Rmd | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/scripts/3_quality_control.Rmd b/scripts/3_quality_control.Rmd index 8ef3db5..a22a324 100644 --- a/scripts/3_quality_control.Rmd +++ b/scripts/3_quality_control.Rmd @@ -27,7 +27,6 @@ library(minfi) knitr::opts_knit$set(root.dir = paste0(user_choices$personal_path, "/")) knitr::opts_chunk$set(echo = FALSE) -phenotype_data <- readRDS(paste0(user_choices$project_name, "/processed_data/phenotype_data.rds")) ``` ```{r load data, include=FALSE} @@ -147,7 +146,7 @@ title_df <- title_df %>% dplyr::select(arrayid, personid) for (i in 1:ncol(RGSet_quality)){ - title_df_current <- title_df %>% filter(arrayid == rownames(pData(RGSet_quality))[i] %>% pull(personid)) + title_df_current <- title_df %>% filter(arrayid == rownames(pData(RGSet_quality))[i]) %>% pull(personid) titel <- paste0(rownames(pData(RGSet_quality))[i], " / ", title_df_current) densityPlot(as.matrix(Betas_quality[,i]), main = titel) print(i)