ECharts | R | jitter values; renaming grouped variable; replace axis labels

jitter.categorical.R

# (elegant) ggplot2 code to replicate in echarty
library(ggplot2)
iris |> 
  ggplot(aes(x = Species, y = Petal.Length)) + 
  geom_jitter(width = 0.1)

library(echarty); library(dplyr)

# with categorical axis
iris |> group_by(Species) |> ec.init(xAxis= list(type='category')) |>
ec.upd({
	series <- lapply(series, function(s) {
		s$encode=list(x='Species', y='Petal.Length'); s })
})

# with jittered values and formatted value axis 
iris |> mutate(Species=as.numeric(Species)) |> ec.init(
	yAxis= list(name= 'Petal.Length'),
	series= list(list(type= 'scatter', encode= list(x='Species', y='Petal.Length')))
) |> ec.upd({
	dataset[[1]]$source <- lapply(dataset[[1]]$source, function(xx) {
		if (is.character(xx)) return(xx)
		as.list(jitter(unlist(xx), amount=0.15))
	})
	cats <- paste0("['','",paste0(attributes(iris$Species)$levels, collapse="','"),"']")
	jcode <- paste0("function(val) { return (val % 1)==0 ? ",cats,"[val] : '';}")
	xAxis <- list(type= 'value', name= 'Species',
					  axisTick= list(show= FALSE), 
					  axisLabel= list(formatter= htmlwidgets::JS(jcode))
	)
})

Get axis labels from another data column by using an invisible second axis, inquiry by @XR97

df <- data.frame(   # echarty default columns 1st=X, 2nd=Y
  x_value = c('a', 'b', 'c', 'd', 'e', 'f', 'g'),
  y = 8:14,
  x_label = c('A', 'A', 'A', 'D', 'D', 'M', 'A')
)
library(echarty)    # >= v.1.4.6.04
df |> ec.init() |> ec.upd({
	series <- list(list(type= 'line', encode= list(x= 'x_value', y= 'y'), xAxisIndex= 1))
	xAxis <- list(
	    list(data= df$x_label), 
	    list(data= df$x_value, show=FALSE ) 
	)
})

If you like this solution, please consider granting a Github star ⭐ to echarty.

chart with multiple axes, based on experiments by @XR97

df <- data.frame(   # echarty default columns are 1st=X, 2nd=Y
	x_value = c('a', 'b', 'c', 'd', 'e', 'f', 'g'),
	y = 8:14,
	x_label = c('A', 'A', 'A', 'D', 'D', 'M', 'A'),
	z = 18:24
)
library(echarty)    # >= v.1.4.6.04
df |> ec.init(ctype= 'line') |> ec.upd({
	xAxis <- list(
	  list(data= df$x_value ),  # x_value
	  list(data= df$x_label )   # x_label
	)
	yAxis <- list(
	  list(show= TRUE),         # y
	  list(data= df$z)          # z
	)
})

If you like this solution, please consider granting a Github star ⭐ to echarty.