replaced self implemented SIR in sim-tsir with "do.sir" from Rdimtools, add: fen2tensor image (TikZ), add: section chess data example in paper.tex
		
			
				
	
	
		
			115 lines
		
	
	
		
			3.6 KiB
		
	
	
	
		
			TeX
		
	
	
	
	
	
			
		
		
	
	
			115 lines
		
	
	
		
			3.6 KiB
		
	
	
	
		
			TeX
		
	
	
	
	
	
| %%% R code to generate the input data files from corresponding simulation logs
 | |
| % R> setwd("~/Work/tensorPredictors")
 | |
| % R>
 | |
| % R> sim <- read.csv("sim/sim-tsir-20231123T1155.csv")
 | |
| % R>
 | |
| % R> aggr <- aggregate(sim[startsWith(names(sim), "dist")], sim[c("rho", "order", "beta.version")], mean)
 | |
| % R>
 | |
| % R> write.table(aggr, file = "LaTeX/plots/aggr-tsir.csv", row.names = FALSE, quote = FALSE)
 | |
| \documentclass[border=0cm]{standalone}
 | |
| 
 | |
| \usepackage{tikz}
 | |
| \usepackage{pgfplots}
 | |
| \usepackage{bm}
 | |
| 
 | |
| \definecolor{gmlm}{RGB}{0,0,0}
 | |
| % \definecolor{mgcca}{RGB}{86,180,233}
 | |
| \definecolor{tsir}{RGB}{0,158,115}
 | |
| \definecolor{sir}{RGB}{86,180,233}
 | |
| % \definecolor{hopca}{RGB}{230,159,0}
 | |
| % \definecolor{pca}{RGB}{240,228,66}
 | |
| % \definecolor{lpca}{RGB}{0,114,178}
 | |
| % \definecolor{clpca}{RGB}{213,94,0}
 | |
| 
 | |
| \pgfplotsset{
 | |
|     compat=newest,
 | |
|     every axis/.style={
 | |
|         % grid,
 | |
|         % grid style={gray, dotted},
 | |
|         3d box = complete*,
 | |
|         xtick = {0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8},
 | |
|         ytick = {2, 3, 4},
 | |
|         ymin = 1.5, ymax = 4.5,
 | |
|         ztick = {0.2, 0.4, 0.6, 0.8, 1},
 | |
|         zmin = 0, zmax = 1,
 | |
|         xlabel = $\rho$,
 | |
|         ylabel = $r$
 | |
|     }
 | |
| }
 | |
| \tikzset{
 | |
|     legend entry/.style={
 | |
|         mark = *,
 | |
|         mark size = 1pt,
 | |
|         mark indices = {2},
 | |
|         line width=0.8pt
 | |
|     }
 | |
| }
 | |
| 
 | |
| \newcommand{\addarea}[4]{
 | |
|     \addplot3[
 | |
|         fill = #1,
 | |
|         draw = none,
 | |
|         fill opacity = 0.65,
 | |
|         y filter/.append expression={
 | |
|             \thisrow{order} == #3 && \thisrow{beta.version} == #2 ? #4 : NaN
 | |
|         }
 | |
|     ] table [x = rho, y expr = NaN, z = dist.subspace.#1] {aggr-tsir.csv} \closedcycle;
 | |
|     \addplot3[
 | |
|         color = #1,
 | |
|         line width = 0.8pt,
 | |
|         y filter/.append expression={
 | |
|             \thisrow{order} == #3 && \thisrow{beta.version} == #2 ? #4 : NaN
 | |
|         }
 | |
|     ] table [x = rho, y expr = NaN, z = dist.subspace.#1] {aggr-tsir.csv};
 | |
| }
 | |
| 
 | |
| \begin{document}
 | |
| \begin{tikzpicture}[>=latex]
 | |
| 
 | |
|     \begin{axis}[
 | |
|         name=v1
 | |
|     ]
 | |
|         \addarea{sir}{1}{4}{4.05};
 | |
|         \addarea{tsir}{1}{4}{4.0};
 | |
|         \addarea{gmlm}{1}{4}{3.95};
 | |
| 
 | |
|         \addarea{sir}{1}{3}{3.05};
 | |
|         \addarea{tsir}{1}{3}{3.0};
 | |
|         \addarea{gmlm}{1}{3}{2.95};
 | |
| 
 | |
|         \addarea{sir}{1}{2}{2.05};
 | |
|         \addarea{tsir}{1}{2}{2.0};
 | |
|         \addarea{gmlm}{1}{2}{1.95};
 | |
|     \end{axis}
 | |
|     \node[anchor = south] at (v1.north) {V1};
 | |
| 
 | |
|     \begin{axis}[
 | |
|         name=v2,
 | |
|         xshift = 8cm
 | |
|     ]
 | |
|         \addarea{sir}{2}{4}{4.05};
 | |
|         \addarea{tsir}{2}{4}{4.0};
 | |
|         \addarea{gmlm}{2}{4}{3.95};
 | |
| 
 | |
|         \addarea{sir}{2}{3}{3.05};
 | |
|         \addarea{tsir}{2}{3}{3.0};
 | |
|         \addarea{gmlm}{2}{3}{2.95};
 | |
| 
 | |
|         \addarea{sir}{2}{2}{2.05};
 | |
|         \addarea{tsir}{2}{2}{2.0};
 | |
|         \addarea{gmlm}{2}{2}{1.95};
 | |
|     \end{axis}
 | |
|     \node[anchor = south] at (v2.north) {V2};
 | |
| 
 | |
|     \matrix[anchor = north] at (current bounding box.south) {
 | |
|         \fill[color = gmlm, opacity = 0.65] (0, -.1) rectangle (.6, .1); \draw[color=gmlm, line width = 0.8pt] (0, .1) -- (.6, .1); & \node[anchor=west] {GMLM}; &
 | |
|         \fill[color = tsir, opacity = 0.65] (0, -.1) rectangle (.6, .1); \draw[color=tsir, line width = 0.8pt] (0, .1) -- (.6, .1); & \node[anchor=west] {TSIR}; &
 | |
|         \fill[color = sir,  opacity = 0.65] (0, -.1) rectangle (.6, .1); \draw[color=sir,  line width = 0.8pt] (0, .1) -- (.6, .1); & \node[anchor=west] {SIR}; \\
 | |
|     };
 | |
| 
 | |
|     \node[anchor = south, rotate = 90, yshift = 1.5em] at (v1.west) {Subspace Distance $d(\boldsymbol{B}, \widehat{\boldsymbol{B}})$};
 | |
|     \node[anchor = south, rotate = -90, yshift = 1.5em] at (v2.east) {\phantom{Subspace Distance $d(\boldsymbol{B}, \widehat{\boldsymbol{B}})$}};
 | |
| 
 | |
| \end{tikzpicture}
 | |
| \end{document}
 |