marcelcosta/chromatoR
1
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Canviar thr variable al plot

Browse Source
This commit is contained in:
root
2022-07-08 10:50:41 +02:00
parent cf8d95a695
commit c01a133038
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
chromatoR/app.R
+1 -1
View File
@@ -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=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)+ 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"))+ scale_color_manual(values=c("G"="black", "A"="#66CC00", "T"="red","C"="blue"))+
geom_hline(yintercept = peakthr)+ geom_hline(yintercept = input$thr)+
theme_classic() theme_classic()
print("Final Imagen") print("Final Imagen")
} }