Amend Test to Estimate in scatter plot legend title

remlapmot · remlapmot · commit b241cdabf14a · 2025-06-05T10:22:36.000+01:00
diff --git a/R/scatterplot.R b/R/scatterplot.R
@@ -101,7 +101,7 @@ mr_scatter_plot <- function(mr_results, dat) {
         )
       ) +
       ggplot2::labs(
-        colour = "MR Test",
+        colour = "MR Estimate",
         x = paste("SNP effect on", d$exposure[1]),
         y = paste("SNP effect on", d$outcome[1])
       ) +

Original file line number	Diff line number	Diff line change
`@@ -101,7 +101,7 @@ mr_scatter_plot <- function(mr_results, dat) {`
`101`	`101`	`)`
`102`	`102`	`) +`
`103`	`103`	`ggplot2::labs(`
`104`		`- colour = "MR Test",`
	`104`	`+ colour = "MR Estimate",`
`105`	`105`	`x = paste("SNP effect on", d$exposure[1]),`
`106`	`106`	`y = paste("SNP effect on", d$outcome[1])`
`107`	`107`	`) +`