diff --git a/build-map.R b/build-map.R new file mode 100644 index 0000000..3f5b17b --- /dev/null +++ b/build-map.R @@ -0,0 +1,14 @@ +library("leaflet") +library("mapview") +library("webshot") +m <- leaflet() |> + addTiles() |> + setView(lng = -3.432, lat = 53.1, zoom = 6.4) +# |> +# addMarkers(lat = 55.953251, lng = -3.188267, popup = "Edinburgh") |> +# addMarkers(lat = 51.4545, lng = -2.5879, popup = "Bristol") |> +# addMarkers(popup = "Leeds", lat = 53.8008, lng = -1.5491) |> +# addMarkers(popup = "Reading", lat = 51.455, lng = -0.971) +print(m) + +mapshot(m, file = "img/uk-map.png", cliprect = c(20, 365, 395, 600)) diff --git a/img/uk-map.png b/img/uk-map.png new file mode 100644 index 0000000..582ba69 Binary files /dev/null and b/img/uk-map.png differ diff --git a/principal.tex b/principal.tex index f05b640..5d8dc49 100644 --- a/principal.tex +++ b/principal.tex @@ -114,32 +114,47 @@ \begin{frame} \frametitle{Multiple networks} - \begin{figure}[ht] - \centering - \begin{subfigure}[ht]{0.475\textwidth} + \only<1>{\begin{figure}[ht] \centering - \includegraphics[width=0.5\textwidth]{tikz/applications/baldock/mat-Baldock2019_Bristol.pdf} - \caption{Bristol} - \end{subfigure} - \begin{subfigure}[ht]{0.475\textwidth} + \begin{subfigure}[ht]{0.475\textwidth} + \centering + \includegraphics[width=0.5\textwidth]{tikz/applications/baldock/mat-Baldock2019_Bristol.pdf} + \caption{Bristol} + \end{subfigure} + \begin{subfigure}[ht]{0.475\textwidth} + \centering + \includegraphics[width=0.5\textwidth]{tikz/applications/baldock/mat-Baldock2019_Edinburgh.pdf} + \caption{Edinburgh} + \end{subfigure} + \hfill + \begin{subfigure}[ht]{0.475\textwidth} + \centering + \includegraphics[width=0.5\textwidth]{tikz/applications/baldock/mat-Baldock2019_Leeds.pdf} + \caption{Leeds} + \end{subfigure} + \begin{subfigure}[ht]{0.475\textwidth} + \centering + \includegraphics[width=0.5\textwidth]{tikz/applications/baldock/mat-Baldock2019_Reading.pdf} + \caption{Reading} + \end{subfigure} + \caption{Adjacency matrices,~\cite{baldockSystemsApproachReveals2019}} + \label{fig:adj} + \end{figure}} + \only<2>{ + \addtocounter{figure}{1} + \begin{figure}[ht] \centering - \includegraphics[width=0.5\textwidth]{tikz/applications/baldock/mat-Baldock2019_Edinburgh.pdf} - \caption{Edinburgh} - \end{subfigure} - \hfill - \begin{subfigure}[ht]{0.475\textwidth} - \centering - \includegraphics[width=0.5\textwidth]{tikz/applications/baldock/mat-Baldock2019_Leeds.pdf} - \caption{Leeds} - \end{subfigure} - \begin{subfigure}[ht]{0.475\textwidth} - \centering - \includegraphics[width=0.5\textwidth]{tikz/applications/baldock/mat-Baldock2019_Reading.pdf} - \caption{Reading} - \end{subfigure} - \caption{Adjacency matrices,~\cite{baldockSystemsApproachReveals2019}} - \label{fig:adj} - \end{figure} + \begin{tikzpicture} + \tikzset{city/.style={circle, fill=white, draw=red, inner sep=0.65,minimum size=0}} + \node (map) at (0,0) {\includegraphics[width=0.35\textwidth]{img/uk-map.png}}; + \node[city, pin={[pin edge={<-,thick}, pin distance = 25mm]180:Leeds}] (leeds) at (0.2,0.03) {}; + \node[city, pin={[pin edge={<-,thick}, pin distance = 30mm]0:Edinburgh}] (edinburgh) at (-0.58,1.84) {}; + \node[city, pin={[pin edge={<-,thick}, pin distance = 20mm]180:Bristol}] (bristol) at (-0.3,-1.82) {}; + \node[city, pin={[pin edge={<-,thick}, pin distance = 20mm]0:Reading}] (reading) at (0.5,-1.82) {}; + + \end{tikzpicture} + \caption{Map of the 4 cities} + \end{figure}} \end{frame} \section[Bipartite collection models]{Bipartite network collection models} @@ -349,9 +364,31 @@ \begin{column}{0.6\textwidth} \begin{figure} \centering - \includegraphics[width=0.8\textwidth]{tikz/applications/baldock/shared-iid.pdf} - \caption{Shared structure of the 4 networks} - \label{fig:shared} + \begin{tikzpicture}[every every node/.style={anchor=south west, inner sep=0pt}, x=1mm, y=1mm] + \node (struct) at (0,0) {\includegraphics[width=0.8\textwidth]{tikz/applications/baldock/shared-iid.pdf}}; + \node (gen) at (-25,11) {}; + \node (interm) at (-25,2) {}; + \node (spe) at (-25,-7) {}; + + \node (gen_label) at (18, 11) {}; + \node (spe_label) at (18, -7) {}; + + \node (for_label) at (struct.west) {}; + \onslide<3->{ + \node[right = 3mm of gen_label] (generalist) {Gen.}; + \node[right = 3mm of spe_label] (specialist) {Spe.}; + \path (generalist) edge[->,thick] (gen_label); + \path (specialist) edge[->,thick] (spe_label); + } + \only<3>{ + \node[left = 3mm of gen] (towns_gen_garden) {B, L}; + \node[left = 3mm of spe] (towns_spe_garden) {E, R}; + \path (towns_gen_garden) edge[->,thick] (gen); + \path (towns_spe_garden) edge[->,thick] (spe); + } + % \only<4>{} + \end{tikzpicture} + \caption{Shared structure of the 4 networks}\label{fig:shared} \end{figure} \end{column} \end{columns}