data <- data.frame(
Name = c("Outcome 1", "Outcome 2", "Outcome 3"),
Prior = c(0.5, 0.5, 0.5),
Posterior = c(0.2, 0.6, 0.9)
)
lollipops(data,
logoPath = 'https://upload.wikimedia.org/wikipedia/commons/b/b8/YouTube_Logo_2017.svg',
logoLocation = 'bottom-left')
Run the code above in your browser using DataLab