R | ECharts | use ec.clmn in endLabel formatter and in pictorialBar symbol

endLabel.R

library(echarty); library(dplyr)
# set first column as X and second as Y to avoid explicitly define them later
mydf <- data.frame(
	Date = c("2021-08-02", "2021-08-03", "2021-08-04", "2021-08-05", "2021-08-06", "2021-08-09", "2021-08-10", "2021-08-11", "2021-08-02", "2021-08-03", "2021-08-04", "2021-08-05", "2021-08-06", "2021-08-09", "2021-08-10", "2021-08-11", "2021-08-02", "2021-08-03", "2021-08-04", "2021-08-05", "2021-08-06", "2021-08-09", "2021-08-10", "2021-08-11", "2021-08-02", "2021-08-03", "2021-08-04", "2021-08-05", "2021-08-06", "2021-08-09", "2021-08-10", "2021-08-11"), 
	CasesPer100K = c(397, 575, 579, 591, 617, 733, 654, 690, 54, 79, 83, 88, 92, 76, 104, 107, 84, 89, 95, 101, 106, 123, 125, 133, 151, 249, 287, 249, 259, 245, 371, 378), 
	State = c("Florida", "Florida", "Florida", "Florida", "Florida", "Florida", "Florida", "Florida", "Massachusetts", "Massachusetts", "Massachusetts", "Massachusetts", "Massachusetts", "Massachusetts", "Massachusetts", "Massachusetts", "New York", "New York", "New York", "New York", "New York", "New York", "New York", "New York", "South Carolina", "South Carolina", "South Carolina", "South Carolina", "South Carolina", "South Carolina", "South Carolina", "South Carolina"), 
	stringsAsFactors = FALSE)

p <- mydf |> group_by(State) |> ec.init(ctype= 'line')
p$x$opts$series <- lapply(p$x$opts$series, function(ss) {
	ss$endLabel <- list(show= TRUE, formatter= ec.clmn(3)); ss })
p$x$opts$tooltip <- list(show= TRUE)
p

@helgasoft this is very cool! Thank you for digging into this.