Když provádíte úpravu hodnoty p, stejné neupravené hodnotě p v různých genech mohou být přiděleny různé upravené hodnoty p v závislosti na dalších faktorech. To znamená, že nemůžete přímo nakreslit čáru spojenou s FDR na grafu neupravené hodnoty p.
Jednou z možností by bylo použít řadu hodnot, které se blíží prahové hodnotě FDR (např. 20 hodnot nejblíže prahové hodnotě) a v této oblasti nakreslete hodnotu p greyzone:
#! / usr / bin / Rscriptvalues <- c (rnorm (10 000), rnorm (100, průměr = 1,5)); val.mean <- medián (hodnoty); val.diffs <- abs (hodnoty - medián (hodnoty)); val.reldiffs <- (hodnoty - medián (hodnoty)); val.pval <- pnorm (val.diffs, průměr = průměr (val.diffs), sd = sd (val.diffs), lower.tail = FALSE); val.padj <- p.adjust (val.pvals, metoda = "BH") ; fdr.threshold <- 0,1; close.bh <- order (abs (val.padj - fdr.threshold)) [1:20]; png ("SE.663.png"); plot (val.reldiffs, - log10 (val.pval), col = ifelse (1:10 100 < = 10 000, "darkblue", "darkgreen")); abline (h = -log10 (0,05), col = "red"); text (0, - log10 (0,05), "p = 0,05", pos = 1); abline (h = běh ge (-log10 (val.pval [close.bh])), col = "# 00000040", lty = "přerušovaný"); rect (xleft = min (val.reldiffs) * 2, xright = max (val.reldiffs ) * 2, ytop = max (-log10 (val.pval [close.bh])), ybottom = min (-log10 (val.pval [close.bh])), col = "# 00000020", ohraničení = NA ); text (0, min (-log10 (val.pval [close.bh])), "FDR = 0,1", pos = 1); neviditelný (dev.off ());