How to make bold text in display.statistical.result?

[jarbet]

Is it possible to make the output of display.statistical.result bold?

Here is a made up example. I'm trying to get the entire title to be bold:

suppressPackageStartupMessages(library(BoutrosLab.plotting.general));
tab <- cbind(c(500, 20000), c(5000, 400000));
fisher <- fisher.test(tab);

odds.ratio.text <- sprintf('Fisher\'s exact test: OR = %s (%s, %s)', round(fisher$estimate, 1), round(fisher$conf.int[1], 1), round(fisher$conf.int[2], 1));
main <- display.statistical.result(
    x = fisher$p.value,
    lower.cutoff = 1e-100,
    digits = 1,
    statistic.type = odds.ratio.text,
    symbol = ', P:'
    );

set.seed(123);
simple.data <- data.frame(
    x = rnorm(2),
    y = rnorm(2)
    );
create.scatterplot(
    formula = y ~ x,
    data = simple.data,
    resolution = 50,
    main = main,
    main.cex = 1.3,
    );

^{Created on 2024-03-13 with reprex v2.0.2}

[maotian06]

Can you try: main = expression(bold(main)), ?

[jarbet]

This didn't work for me, but maybe there is a way to combine it with substitute to get it to work.. I tried using bquote but couldnt get that to work: as.expression(bquote(bold(.(main))))

[jmlivingstone]

Instead of using display.statistical.result you can do the following

pvalue.formatted <- list(
        base = scientific.notation(fisher$p.value, digits = 2, type = 'list')$base,
        exponent = scientific.notation(fisher$p.value, type = 'list')$exponent
        );

create.scatterplot(
    formula = y ~ x,
    data = simple.data,
    resolution = 200,
    filename = 'test.png',
    left.padding = 5,
    right.padding = 5,
    width = 8,
    main = bquote(bold(.(odds.ratio.text)~ " P"==.(pvalue.formatted$base)~"x"~.(as.character(10))^. 
(as.character((pvalue.formatted$exponent))))),
    main.cex = 1.3
    );

[jarbet]

@jmlivingstone, this worked for me. Thanks so much!!

suppressPackageStartupMessages(library(BoutrosLab.plotting.general));
tab <- cbind(c(500, 20000), c(5000, 400000));
fisher <- fisher.test(tab);

odds.ratio.text <- sprintf('Fisher\'s exact test: OR = %s (%s, %s)', round(fisher$estimate, 1), round(fisher$conf.int[1], 1), round(fisher$conf.int[2], 1));
main <- display.statistical.result(
    x = fisher$p.value,
    lower.cutoff = 1e-100,
    digits = 1,
    statistic.type = odds.ratio.text,
    symbol = ', P:'
    );

set.seed(123);
simple.data <- data.frame(
    x = rnorm(2),
    y = rnorm(2)
    );

pvalue.formatted <- list(
        base = scientific.notation(fisher$p.value, digits = 2, type = 'list')$base,
        exponent = scientific.notation(fisher$p.value, type = 'list')$exponent
        );

create.scatterplot(
    formula = y ~ x,
    data = simple.data,
    resolution = 200,
    left.padding = 5,
    right.padding = 5,
    width = 8,
    main = bquote(bold(.(odds.ratio.text)~ " P"==.(pvalue.formatted$base)~"x"~.(as.character(10))^. 
(as.character((pvalue.formatted$exponent))))),
    main.cex = 1.3
    )

^{Created on 2024-03-13 with reprex v2.0.2}