\documentclass[10pt,a4paper]{article}

% Packages
\usepackage{fancyhdr}           % For header and footer
\usepackage{multicol}           % Allows multicols in tables
\usepackage{tabularx}           % Intelligent column widths
\usepackage{tabulary}           % Used in header and footer
\usepackage{hhline}             % Border under tables
\usepackage{graphicx}           % For images
\usepackage{xcolor}             % For hex colours
%\usepackage[utf8x]{inputenc}    % For unicode character support
\usepackage[T1]{fontenc}        % Without this we get weird character replacements
\usepackage{colortbl}           % For coloured tables
\usepackage{setspace}           % For line height
\usepackage{lastpage}           % Needed for total page number
\usepackage{seqsplit}           % Splits long words.
%\usepackage{opensans}          % Can't make this work so far. Shame. Would be lovely.
\usepackage[normalem]{ulem}     % For underlining links
% Most of the following are not required for the majority
% of cheat sheets but are needed for some symbol support.
\usepackage{amsmath}            % Symbols
\usepackage{MnSymbol}           % Symbols
\usepackage{wasysym}            % Symbols
%\usepackage[english,german,french,spanish,italian]{babel}              % Languages

% Document Info
\author{BarplotNorm}
\pdfinfo{
  /Title (r-commands.pdf)
  /Creator (Cheatography)
  /Author (BarplotNorm)
  /Subject (R Commands Cheat Sheet)
}

% Lengths and widths
\addtolength{\textwidth}{6cm}
\addtolength{\textheight}{-1cm}
\addtolength{\hoffset}{-3cm}
\addtolength{\voffset}{-2cm}
\setlength{\tabcolsep}{0.2cm} % Space between columns
\setlength{\headsep}{-12pt} % Reduce space between header and content
\setlength{\headheight}{85pt} % If less, LaTeX automatically increases it
\renewcommand{\footrulewidth}{0pt} % Remove footer line
\renewcommand{\headrulewidth}{0pt} % Remove header line
\renewcommand{\seqinsert}{\ifmmode\allowbreak\else\-\fi} % Hyphens in seqsplit
% This two commands together give roughly
% the right line height in the tables
\renewcommand{\arraystretch}{1.3}
\onehalfspacing

% Commands
\newcommand{\SetRowColor}[1]{\noalign{\gdef\RowColorName{#1}}\rowcolor{\RowColorName}} % Shortcut for row colour
\newcommand{\mymulticolumn}[3]{\multicolumn{#1}{>{\columncolor{\RowColorName}}#2}{#3}} % For coloured multi-cols
\newcolumntype{x}[1]{>{\raggedright}p{#1}} % New column types for ragged-right paragraph columns
\newcommand{\tn}{\tabularnewline} % Required as custom column type in use

% Font and Colours
\definecolor{HeadBackground}{HTML}{333333}
\definecolor{FootBackground}{HTML}{666666}
\definecolor{TextColor}{HTML}{333333}
\definecolor{DarkBackground}{HTML}{084DCD}
\definecolor{LightBackground}{HTML}{EFF3FB}
\renewcommand{\familydefault}{\sfdefault}
\color{TextColor}

% Header and Footer
\pagestyle{fancy}
\fancyhead{} % Set header to blank
\fancyfoot{} % Set footer to blank
\fancyhead[L]{
\noindent
\begin{multicols}{3}
\begin{tabulary}{5.8cm}{C}
    \SetRowColor{DarkBackground}
    \vspace{-7pt}
    {\parbox{\dimexpr\textwidth-2\fboxsep\relax}{\noindent
        \hspace*{-6pt}\includegraphics[width=5.8cm]{/web/www.cheatography.com/public/images/cheatography_logo.pdf}}
    }
\end{tabulary}
\columnbreak
\begin{tabulary}{11cm}{L}
    \vspace{-2pt}\large{\bf{\textcolor{DarkBackground}{\textrm{R Commands Cheat Sheet}}}} \\
    \normalsize{by \textcolor{DarkBackground}{BarplotNorm} via \textcolor{DarkBackground}{\uline{cheatography.com/203294/cs/43288/}}}
\end{tabulary}
\end{multicols}}

\fancyfoot[L]{ \footnotesize
\noindent
\begin{multicols}{3}
\begin{tabulary}{5.8cm}{LL}
  \SetRowColor{FootBackground}
  \mymulticolumn{2}{p{5.377cm}}{\bf\textcolor{white}{Cheatographer}}  \\
  \vspace{-2pt}BarplotNorm \\
  \uline{cheatography.com/barplotnorm} \\
  \end{tabulary}
\vfill
\columnbreak
\begin{tabulary}{5.8cm}{L}
  \SetRowColor{FootBackground}
  \mymulticolumn{1}{p{5.377cm}}{\bf\textcolor{white}{Cheat Sheet}}  \\
   \vspace{-2pt}Not Yet Published.\\
   Updated 2nd May, 2024.\\
   Page {\thepage} of \pageref{LastPage}.
\end{tabulary}
\vfill
\columnbreak
\begin{tabulary}{5.8cm}{L}
  \SetRowColor{FootBackground}
  \mymulticolumn{1}{p{5.377cm}}{\bf\textcolor{white}{Sponsor}}  \\
  \SetRowColor{white}
  \vspace{-5pt}
  %\includegraphics[width=48px,height=48px]{dave.jpeg}
  Measure your website readability!\\
  www.readability-score.com
\end{tabulary}
\end{multicols}}




\begin{document}
\raggedright
\raggedcolumns

% Set font size to small. Switch to any value
% from this page to resize cheat sheet text:
% www.emerson.emory.edu/services/latex/latex_169.html
\footnotesize % Small font.


\begin{tabularx}{17.67cm}{x{2.4705 cm} x{4.6116 cm} x{3.6234 cm} x{5.7645 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{4}{x{17.67cm}}{\bf\textcolor{white}{R as a Calculator}}  \tn
% Row 0
\SetRowColor{LightBackground}
\seqsplit{`exp(x)`} & \seqsplit{Exponential} & \seqsplit{`sum(x)`} & Sum. \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
\seqsplit{`log(x)`} & Natural log. & \seqsplit{`cumsum(x)`} & Cumulative Sum. \tn 
% Row Count 4 (+ 2)
% Row 2
\SetRowColor{LightBackground}
\seqsplit{`max(x)`} & Largest element. & \seqsplit{`ceil(x)`} & Round up. \tn 
% Row Count 6 (+ 2)
% Row 3
\SetRowColor{white}
\seqsplit{`min(x)`} & Smallest element. & \seqsplit{`floor(x)`} & Round down. \tn 
% Row Count 8 (+ 2)
% Row 4
\SetRowColor{LightBackground}
\seqsplit{`mean(x)`} & Mean. & \seqsplit{`median(x)`} & Median. \tn 
% Row Count 10 (+ 2)
% Row 5
\SetRowColor{white}
\seqsplit{`var(x)`} & Variance. & \seqsplit{`quantile(x)`} & Percentage quantiles. \tn 
% Row Count 12 (+ 2)
% Row 6
\SetRowColor{LightBackground}
`x \%\% y` & Modulo &  &  \tn 
% Row Count 14 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}----}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{17.67cm}{x{9.6712 cm} x{7.5988 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{17.67cm}}{\bf\textcolor{white}{Univariate Data: I/O}}  \tn
% Row 0
\SetRowColor{LightBackground}
`write(data, "mydata.dat")` & Write data as binary. \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
`scan("mydata.dat")` & Read binary data. \tn 
% Row Count 3 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{17.67cm}{x{6.908 cm} x{10.362 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{17.67cm}}{\bf\textcolor{white}{Univariate Data: Plotting}}  \tn
% Row 0
\SetRowColor{LightBackground}
`plot(data)` & Plot quick overview. \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
`barplot(x)` & Barplot of absolute frequencies. \tn 
% Row Count 3 (+ 2)
% Row 2
\SetRowColor{LightBackground}
\seqsplit{`plot.ecdf(data)`} & Plot ECDF. \tn 
% Row Count 5 (+ 2)
% Row 3
\SetRowColor{white}
`hist(data, prob=TRUE)` & Histogram of relative frequencies. \tn 
% Row Count 7 (+ 2)
% Row 4
\SetRowColor{LightBackground}
`rug(data)` & 1D-plot \tn 
% Row Count 8 (+ 1)
% Row 5
\SetRowColor{white}
`hist(data, breaks=30)` & Specify subdivisions of histogram. \tn 
% Row Count 10 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{17.67cm}{x{5.6991 cm} x{11.5709 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{17.67cm}}{\bf\textcolor{white}{Creating Vectors}}  \tn
% Row 0
\SetRowColor{LightBackground}
`c(2, 4, 6)` & Join elements into a vector \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
`2:6` & An integer sequence (end inclusive!) \tn 
% Row Count 4 (+ 2)
% Row 2
\SetRowColor{LightBackground}
`seq(2,3, by=0.5)` & Complex sequence (s. np.linspace) \tn 
% Row Count 6 (+ 2)
% Row 3
\SetRowColor{white}
`rep(1:2, 3)` & Repeat vector \tn 
% Row Count 7 (+ 1)
% Row 4
\SetRowColor{LightBackground}
`rep(1:2, 3:4)` & Repeat each element \tn 
% Row Count 9 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{17.67cm}{x{5.8718 cm} x{11.3982 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{17.67cm}}{\bf\textcolor{white}{Vecotr Functions}}  \tn
% Row 0
\SetRowColor{LightBackground}
`sort(x)` & Return x sorted. \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
`rev(x)` & Return x reversed. \tn 
% Row Count 2 (+ 1)
% Row 2
\SetRowColor{LightBackground}
`table(x)` & See counts of values. \tn 
% Row Count 3 (+ 1)
% Row 3
\SetRowColor{white}
`unique(x)` & See unique values. \tn 
% Row Count 4 (+ 1)
% Row 4
\SetRowColor{LightBackground}
`length(x)` & Length of x. \tn 
% Row Count 5 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{17.67cm}{x{7.4261 cm} x{9.8439 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{17.67cm}}{\bf\textcolor{white}{Selecting Vector Elements}}  \tn
% Row 0
\SetRowColor{LightBackground}
\mymulticolumn{2}{x{17.67cm}}{{\bf{By Position}}} \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
`x{[}4{]}` & The fourth element \tn 
% Row Count 2 (+ 1)
% Row 2
\SetRowColor{LightBackground}
`x{[}-4{]}` & All but the fourth. \tn 
% Row Count 3 (+ 1)
% Row 3
\SetRowColor{white}
`x{[}2:4{]}` & Elements two to four \tn 
% Row Count 4 (+ 1)
% Row 4
\SetRowColor{LightBackground}
`x{[}-(2:4){]}` & All elements except 2 to four \tn 
% Row Count 6 (+ 2)
% Row 5
\SetRowColor{white}
`x{[}c(1, 5){]}` & Elements one and five. \tn 
% Row Count 7 (+ 1)
% Row 6
\SetRowColor{LightBackground}
\mymulticolumn{2}{x{17.67cm}}{{\bf{By Value}}} \tn 
% Row Count 8 (+ 1)
% Row 7
\SetRowColor{white}
`x{[}x == 10{]}` & All elements equal to 10 \tn 
% Row Count 10 (+ 2)
% Row 8
\SetRowColor{LightBackground}
`x{[}x  \textless{} 10{]}` & All elements less than 10. \tn 
% Row Count 12 (+ 2)
% Row 9
\SetRowColor{white}
`x{[}x \%in\% c(1, 2, 5){]}` & Elements in the given set. \tn 
% Row Count 14 (+ 2)
% Row 10
\SetRowColor{LightBackground}
\mymulticolumn{2}{x{17.67cm}}{{\bf{Named Vectors}}} \tn 
% Row Count 15 (+ 1)
% Row 11
\SetRowColor{white}
`x{[}'apple'{]}` & Element with name 'apple'. \tn 
% Row Count 17 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{17.67cm}{x{5.0083 cm} x{12.2617 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{17.67cm}}{\bf\textcolor{white}{Runs Test of Randomness}}  \tn
% Row 0
\SetRowColor{LightBackground}
`rle(x)` & Compute the lengths and values of runs of equal values in a vector . \tn 
% Row Count 3 (+ 3)
% Row 1
\SetRowColor{white}
\seqsplit{`rle(x)\$lengths`} & Vector containing the length of each run. \tn 
% Row Count 5 (+ 2)
% Row 2
\SetRowColor{LightBackground}
\seqsplit{`rle(x)\$values`} & Vector of the same length as lengths with the corresponding values. \tn 
% Row Count 8 (+ 3)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}



\end{document}