====== Event sequences visualization ======

[[https://github.com/bavla/Nets/blob/master/data/mix/TableA11.net|Github Bavla / TableA11.net]]


Table A.11 from
Anton Yeshchenko, Jan Mendling: A survey of approaches for event sequence analysis and visualization
Information Systems 120 (2024) 102283.

Converted into Pajek's format by Vladimir Batagelj, February 22, 2024.

There is one "=" in the original table. Probably bug - "+" and "=" are on the same key on the keyboard\\
Recoded weight:  "-" -> 0,  "+" -> 1,  "=" -> 2

I copied the Table A.11 from the PDF into a text file, edited it in TextPad, and saved it as "TableA11.csv". To make column labels shorter I used the following abbreviations MB: Matrix-based, TB: Timeline-based, HB: Hierarchy-based, SB: Sankey-based, CB: Other chart-based; and I: Instance, M: Model. I converted it in R into a Pajek's network file "TableA11.net"
<code>
> rename <- function(nam){L <- strsplit(nam,"_")[[1]]; paste(L[1],substr(L[3],1,1),"_",L[2],sep="")}

> wdir <- "C:/Users/vlado/docs/papers/2024/Trajectories/test/table"
> setwd(wdir)
> source("https://raw.githubusercontent.com/bavla/Rnet/master/R/Pajek.R")
> csv <- "TableA11.csv"
> # csv <- "https://raw.githubusercontent.com/bavla/Nets/master/data/mix/TableA11.csv"
> T <- read.table(csv,skip=4,header=TRUE,sep=";",encoding="UTF-8")
> dim(T)
[1] 63 40
> N <- sapply(colnames(T),rename,USE.NAMES=FALSE)
> R <- trimws(gsub("et al. ","",row.names(T)))
> M <- as.matrix(T)
> table(M)
> M[M==" –"] <- 0 
> M[M==" +"] <- 1 
> M[M==" ="] <- 2 
> table(M)
> MI <- matrix(as.integer(M),ncol=ncol(M))
> row.names(MI) <- R; colnames(MI) <- N
> table(MI)
> MI[1:3,1:3]
> bimatrix2net(MI,Net="TableA11.net")
</code>