e_gauge: remove plot area margins

[micboat]

Hi is there any way to completely remove or at least reduce the margins from e_gauge plots? the space between the gauage plots and the rest of the narrative in my quarto document is too noticeable.

I tried setting e_grid but it doesnt seem to apply.

e_charts() %>% e_y_axis(gridIndex = 0, min=0,max=100) %>% e_gauge(1.01, "LoA", min = 0, max = 2, splitNumber = 20, axisLine = list( lineStyle = list( color = list( c(0.4, "red"), c(0.45, "yellow"), c(0.55, "green"), c(0.6, "yellow"), c(20/20, "red") ) ) ))

Am trying to set up 6 gauges (2 rows 3 cols) compacted but the margins makes that impossible. I tried the e_arrange but it didnt help either

[rdatasculptor]

@micboat can you add what you tried with e_grid modifications? Thanks!

[micboat]

@rdatasculptor I tested your approach. Couldn't get the labels on there so I ended up creating each gauge and using combinewidgets to display them. Each chart had different metrics customization. But this is how far I got with your recommendation:

Load the library

librarian::shelf(echarty, data.table)

df <- data.table( Metric = c('LoA', 'CoD', 'PRB', 'PRD', 'MKI', 'RRI'), Estimate = c(1.003, 9.14, -0.041, 1.012, 0.881, 0.065), Min = c(0, 0, -0.5, 0.5, 0.5, 0), Max = c(2, 25, 0.5, 1.5, 1.5, 1), Split_no = c(10, 10, 10, 10, 10, 10), Colorlist = list( list( c(0.4, "red"), c(0.45, "yellow"), c(0.55, "green"), c(0.6, "yellow"), c(1, "red") ), list( c(4/25, "red"), c(5/25, "yellow"), c(10/25, "green"), c(12/25, "yellow"), c(25/25, "red") ), list( c(8/20, "red"), c(9/20, "yellow"), c(11/20, "green"), c(12/20, "yellow"), c(20/20, "red") ), list( c(8/20, "red"), c(9/20, "yellow"), c(11/20, "green"), c(12/20, "yellow"), c(20/20, "red") ), list( c(8/20, "red"), c(9/20, "yellow"), c(11/20, "green"), c(12/20, "yellow"), c(20/20, "red") ), list( c(0.10, "#006400"), c(0.25, "#7fbf7f"), c(0.50, "#FFFF00"), c(0.75, "#FFA07A"), c(10/10, "red") ) ) )

tmp <- lapply(ec.data(df, 'names'), function(c) { # ec.data() converts data.frame into named list ec.init(height= '40vh', grid= list(left=0, right=0, top=0, bottom=0, show=T), series= list(list(type= 'gauge', data= list(c$Estimate), label=c$Metric, radius='95%', min= c$Min, max= c$Max, splitNumber= c$Split_no, axisLine= list( lineStyle= list( color= c$Colorlist ) ) )) ) }) ec.util(cmd= 'layout', charts= tmp, cols= 3)

[rdatasculptor]

Thanks! I think you put the wrong script in your answer. That's {echarty}, not {echarts4r} :).