Hello,
I am creating a datatable and having a bit of trouble formatting it. There are two things that I would like to do. First, in the title of the table I would like the italicize only the term "p" and no other terms. I'd like to italicize the title of the "p" column as well. Second, I would like to replace all 0% terms with dashes, "-", when p is 0.00 or 1.00.
Thanks for your help!
library(tidyverse)
library(gt)
library(janitor)
#>
#> Attaching package: 'janitor'
#> The following objects are masked from 'package:stats':
#>
#> chisq.test, fisher.test
library(fs)
coin_flips <- tibble(replicate = 1:10000) %>%
mutate(Coin = sample(c("0.00", "0.25","0.50", "0.75", "1.00"),
size = 10000,
replace = TRUE,
prob = c(0.25, 0.05, 0.40, 0.05, 0.25))) %>%
mutate(
Flip1 = case_when(
Coin == "0.00" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.00, 1.00)),
Coin == "0.25" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.25, 0.75)),
Coin == "0.50" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.50, 0.50)),
Coin == "0.75" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.75, 0.25)),
Coin == "1.00" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(1.00, 0.00))
)
) %>%
mutate(
Flip2 = case_when(
Coin == "0.00" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.00, 1.00)),
Coin == "0.25" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.25, 0.75)),
Coin == "0.50" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.50, 0.50)),
Coin == "0.75" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.75, 0.25)),
Coin == "1.00" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(1.00, 0.00))
)
) %>%
mutate(
Flip3 = case_when(
Coin == "0.00" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.00, 1.00)),
Coin == "0.25" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.25, 0.75)),
Coin == "0.50" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.50, 0.50)),
Coin == "0.75" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.75, 0.25)),
Coin == "1.00" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(1.00, 0.00))
)
) %>%
mutate(
Flip4 = case_when(
Coin == "0.00" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.00, 1.00)),
Coin == "0.25" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.25, 0.75)),
Coin == "0.50" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.50, 0.50)),
Coin == "0.75" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.75, 0.25)),
Coin == "1.00" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(1.00, 0.00))
)
) %>%
mutate(
Flip5 = case_when(
Coin == "0.00" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.00, 1.00)),
Coin == "0.25" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.25, 0.75)),
Coin == "0.50" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.50, 0.50)),
Coin == "0.75" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.75, 0.25)),
Coin == "1.00" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(1.00, 0.00))
)
) %>%
mutate(
Flip6 = case_when(
Coin == "0.00" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.00, 1.00)),
Coin == "0.25" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.25, 0.75)),
Coin == "0.50" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.50, 0.50)),
Coin == "0.75" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(0.75, 0.25)),
Coin == "1.00" ~ sample(c(1, 0), size = 10000, replace = TRUE, prob = c(1.00, 0.00))
)
)
coin_flips %>%
mutate(heads = rowSums(coin_flips[,3:8])) %>%
tabyl(Coin, heads) %>%
adorn_percentages(denominator = "col") %>%
adorn_pct_formatting(digits = 0) %>%
gt() %>%
tab_header(
title = ("Posterior for p Based on Six Flips")
) %>%
tab_spanner(
label = "Number of Heads",
columns = vars(`0`, `1`, `2`, `3`, `4`, `5`, `6`)
) %>%
cols_label(
`Coin` = "p",
`0` = "Zero",
`1` = "One",
`2` = "Two",
`3` = "Three",
`4` = "Four",
`5` = "Five",
`6` = "Six"
)
|
Posterior for p Based on Six Flips |
|||||||
|---|---|---|---|---|---|---|---|
|
p |
Number of Heads |
||||||
|
Zero |
One |
Two |
Three |
Four |
Five |
Six |
|
|
0.00 |
94% |
0% |
0% |
0% |
0% |
0% |
0% |
|
0.25 |
4% |
31% |
14% |
5% |
1% |
1% |
0% |
|
0.50 |
3% |
68% |
85% |
90% |
85% |
68% |
3% |
|
0.75 |
0% |
0% |
1% |
5% |
14% |
32% |
4% |
|
1.00 |
0% |
0% |
0% |
0% |
0% |
0% |
93% |
Created on 2019-10-19 by the reprex package (v0.3.0)
^ The table as it appears in rStudio