Я пытаюсь воссоздать this animation. Я хочу иметь механическую систему в TikZ и участок в R/ggplot. В конце концов, я хочу использовать все это в презентации, в идеале, в презентации R markdown/sweave.Комбинация анимации TikZ с анимацией ggplot
Возможно ли это?
Что у меня до сих пор является TikZ механической системы:
\documentclass{standalone}
\usepackage{tikz}
\usetikzlibrary{calc, patterns, decorations.pathmorphing, decorations.markings}
\begin{document}
\tikzstyle{blocksmall} = [draw, rectangle, minimum height = 0.25cm, minimum width = 0.25cm]
\tikzstyle{block} = [draw, rectangle, minimum height = 1cm, minimum width = 2cm]
\tikzstyle{spring} = [decorate, decoration = {zigzag, pre length = 0.3cm, post length = 0.3cm, segment length = 6}]
\tikzstyle{ground} = [fill, pattern = north east lines, draw = none, minimum width = 0.75cm, minimum height = 0.3cm]
\begin{tikzpicture}
\node [blocksmall] (u) {$u$};
\node [block, right of = u, node distance = 3cm] (m) {$m$};
\node (ground) [ground, anchor = north, yshift = -0.25cm, xshift = 0cm, minimum width = 7cm] at (m.south) {};
\draw (ground.north east) -- (ground.north west);
\draw (m.south west) ++ (0.4cm,-0.125cm) circle (0.125cm) (m.south east) ++ (-0.4cm,-0.125cm) circle (0.125cm);
\draw [spring] (u) -- node[auto, yshift = 0.15cm] {$k$} (m);
\end{tikzpicture}
\end{document}
Edit 1: Я обнаружил, что эта анимация делается с Raphaël.js и обычая linear.js. Все тогда объединено в freq.html.