Creating a Custom Gauge Visual

[Anonymous]

I'm trying to create a custom visual that shows the distribution of data through a visualisation similar to a boxplot. I then want to have a point on that plot that moves along the boxplot depending on the value of a slicer. But the problem is my slicer moves the boxplot and the scale aswell. I created my visual with R and I've included the code below:

Dar <- ggplot(data = dataset, aes(x = 0, y = Data)) +  

  scale_color_viridis_d(

  option = "mako", name = "Level:", direction = -1,

  begin = .15, end = .9,

  labels = function(x) paste0(as.numeric(x)*100, "%")

  ) +

  ggdist::stat_interval() +  

  coord_flip() +

  stat_summary(geom = "point", fun = "median", color = "red", size = 6, pch = 17, aes(x = -0.05, y = Data) )

Dar

And this is what my visualisation looks like:

Any help would be greatly appreciated!