From c01a1330383e9b12a3cb8b865f66727fe518149f Mon Sep 17 00:00:00 2001 From: root Date: Fri, 8 Jul 2022 10:50:41 +0200 Subject: [PATCH] Canviar thr variable al plot --- chromatoR/app.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/chromatoR/app.R b/chromatoR/app.R index 714ee5d..a9505d1 100644 --- a/chromatoR/app.R +++ b/chromatoR/app.R @@ -229,7 +229,7 @@ server <- function(input, output) { geom_text(data=picks, aes(label=Base, y=3800, color=factor(Base,levels=c("G","A","T","C"))))+ geom_text(data=picks, aes(label=num, y=4250), size=3, angle=90, hjust=0.5, vjust=0.5)+ scale_color_manual(values=c("G"="black", "A"="#66CC00", "T"="red","C"="blue"))+ - geom_hline(yintercept = peakthr)+ + geom_hline(yintercept = input$thr)+ theme_classic() print("Final Imagen") }