\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{Niki (worlddoit)}
\pdfinfo{
  /Title (r-part2.pdf)
  /Creator (Cheatography)
  /Author (Niki (worlddoit))
  /Subject (r part2 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}{566BA3}
\definecolor{LightBackground}{HTML}{F4F5F9}
\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 part2 Cheat Sheet}}}} \\
    \normalsize{by \textcolor{DarkBackground}{Niki (worlddoit)} via \textcolor{DarkBackground}{\uline{cheatography.com/170195/cs/35580/}}}
\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}Niki (worlddoit) \\
  \uline{cheatography.com/worlddoit} \\
  \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 26th November, 2022.\\
   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{multicols*}{3}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{Work Directory (WD), History, Source, Comm}}  \tn
\SetRowColor{white}
\mymulticolumn{1}{x{5.377cm}}{{\bf{WD}} - is the computer folder with the file you read in or save out. \newline % Row Count 2 (+ 2)
`getwd()` See current WD \newline % Row Count 3 (+ 1)
`getwd()` Set, change WD \newline % Row Count 4 (+ 1)
`dir()` Lists content of the dir \newline % Row Count 5 (+ 1)
{\bf{History}} \newline % Row Count 6 (+ 1)
\seqsplit{`savehistory(file="Name.Rhistory")`} \{\{noshy\}\} \newline % Row Count 7 (+ 1)
\seqsplit{`loadhistory(file="Name.Rhistory")`} \{\{noshy\}\} \newline % Row Count 8 (+ 1)
`sink("name.txt")` `sink()`   \{\{noshy\}\} \newline % Row Count 9 (+ 1)
open-close connection \newline % Row Count 10 (+ 1)
{\bf{Source}} \newline % Row Count 11 (+ 1)
\seqsplit{`source("CommandScript.R")`}  \{\{noshy\}\} \newline % Row Count 12 (+ 1)
Commands stored in scripts in WD \newline % Row Count 13 (+ 1)
Created objects saved and loaded in the WD: \newline % Row Count 14 (+ 1)
`save(object, file="path")`  \{\{noshy\}\} \newline % Row Count 15 (+ 1)
`load(file="path")` \{\{noshy\}\} \newline % Row Count 16 (+ 1)
{\bf{Commands}} \newline % Row Count 17 (+ 1)
Erase all objects in the workspace and list rest: \newline % Row Count 18 (+ 1)
`rm()` \newline % Row Count 19 (+ 1)
`ls()`% Row Count 20 (+ 1)
} \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{(**Basics)}  \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{Data types}}  \tn
% Row 0
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{Atomic (fundamental) Data Types?} \tn 
\mymulticolumn{1}{x{5.377cm}}{\hspace*{6 px}\rule{2px}{6px}\hspace*{6 px}`complex:` \{\{nl\}\} `raw:` \{\{nl\}\} `numeric:` \{\{nl\}\} `character:`  \{\{nl\}\} `logical:`} \tn 
% Row Count 3 (+ 3)
% Row 1
\SetRowColor{white}
\mymulticolumn{1}{x{5.377cm}}{Hierarchy?} \tn 
\mymulticolumn{1}{x{5.377cm}}{\hspace*{6 px}\rule{2px}{6px}\hspace*{6 px}Character \textgreater{} Double \textgreater{} Integer \textgreater{} Logical} \tn 
% Row Count 5 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{(**Basics)}  \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{1}}  \tn
% Row 0
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{} \tn 
% Row Count 0 (+ 0)
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{2.68758 cm} x{2.28942 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Loading Data}}  \tn
% Row 0
\SetRowColor{LightBackground}
`read.table \{\{nl\}\} (file="name.txt")` \{\{noshy\}\} & txt data frame \tn 
% Row Count 3 (+ 3)
% Row 1
\SetRowColor{white}
`read.csv2 \{\{nl\}\} (file="name.csv")` \{\{noshy\}\} & csv data frame \tn 
% Row Count 6 (+ 3)
% Row 2
\SetRowColor{LightBackground}
`read.spss \{\{nl\}\} (file="name.spss")` \{\{noshy\}\} & spss data frame \tn 
% Row Count 9 (+ 3)
% Row 3
\SetRowColor{white}
`data \{\{nl\}\} (name, package="pkg")` \{\{noshy\}\} & builtin dataset \tn 
% Row Count 12 (+ 3)
% Row 4
\SetRowColor{LightBackground}
`edit()` \{\{noshy\}\} & opens a spreadsheet \tn 
% Row Count 14 (+ 2)
% Row 5
\SetRowColor{white}
`read.file \{\{nl\}\} (file="name.spss")` \{\{noshy\}\} & Iibrary `psych`  import functions. \tn 
% Row Count 17 (+ 3)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\SetRowColor{LightBackground}
\mymulticolumn{2}{x{5.377cm}}{(**Basics)}  \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{Parsing}}  \tn
\SetRowColor{white}
\mymulticolumn{1}{x{5.377cm}}{A {\bf{parser}} converts the textual representation of R code into an internal form which may then be passed to the R evaluator. \newline % Row Count 3 (+ 3)
`(p1\textless{}-parse(text="3*(2+4)"))`  \{\{noshy\}\} \newline % Row Count 4 (+ 1)
{\emph{expression(3*(2+4))}} \newline % Row Count 5 (+ 1)
`eval(p1)` \newline % Row Count 6 (+ 1)
{\emph{18}} \newline % Row Count 7 (+ 1)
Abstract Syntax Trees (AST) that are parsed according to the language grammar% Row Count 9 (+ 2)
} \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{(***Advanced)}  \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{Parsing Image}}  \tn
\SetRowColor{LightBackground}
\mymulticolumn{1}{p{5.377cm}}{\vspace{1px}\centerline{\includegraphics[width=5.1cm]{/web/www.cheatography.com/public/uploads/worlddoit_1669477339_ экрана 2022-11-26 в 16.41.12.png}}} \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{(***Advanced)}  \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{Vectors}}  \tn
% Row 0
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{Vectors two types: \{\{nl\}\} {\bf{Atomic}}: all elements same type \{\{nl\}\} {\bf{List}}: a generalized vector, elements can have different types} \tn 
% Row Count 3 (+ 3)
% Row 1
\SetRowColor{white}
\mymulticolumn{1}{x{5.377cm}}{Ex: `vec \textless{}- c(1, 5, 4, 9, 0)`} \tn 
% Row Count 4 (+ 1)
% Row 2
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{Name the elements: \{\{nl\}\} `(vec \textless{}- c(Frodo=1, Bilbo=5, Gandalf=4))` \{\{nl\}\} `length(x)` \{\{nl\}\} {\emph{3}}} \tn 
% Row Count 6 (+ 2)
% Row 3
\SetRowColor{white}
\mymulticolumn{1}{x{5.377cm}}{Access the 1st element; remove the 3rd element \{\{nl\}\} `vec{[}1{]}; vec{[}-3{]}`} \tn 
% Row Count 8 (+ 2)
% Row 4
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{Access the last element using the length \{\{nl\}\} `vec{[}length(vec){]}` \{\{noshy\}\}} \tn 
% Row Count 10 (+ 2)
% Row 5
\SetRowColor{white}
\mymulticolumn{1}{x{5.377cm}}{Access more elements \{\{nl\}\}`vec{[}c(1,3){]}`} \tn 
% Row Count 11 (+ 1)
% Row 6
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{Remove more elements \{\{nl\}\}`vec{[}-c(1,3){]}`} \tn 
% Row Count 12 (+ 1)
% Row 7
\SetRowColor{white}
\mymulticolumn{1}{x{5.377cm}}{Access only elements that are greater than 3 \{\{nl\}\}`vec{[}vec\textgreater{}3{]}` \{\{noshy\}\}} \tn 
% Row Count 14 (+ 2)
% Row 8
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{Replace one or more elements \{\{nl\}\}`vec{[}c(1,3){]}\textless{}-c(1,3)`} \tn 
% Row Count 16 (+ 2)
% Row 9
\SetRowColor{white}
\mymulticolumn{1}{x{5.377cm}}{Access only elements that are not NA \{\{nl\}\}`vec{[}!is.na(vec){]}` \{\{noshy\}\}} \tn 
% Row Count 18 (+ 2)
% Row 10
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{Repeating \{\{nl\}\} `rep(2,5) = c(2,2,2,2,2)`} \tn 
% Row Count 19 (+ 1)
% Row 11
\SetRowColor{white}
\mymulticolumn{1}{x{5.377cm}}{Sequencing \{\{nl\}\} `seq(2,5,1)` {\emph{2,3,4,5}}} \tn 
% Row Count 20 (+ 1)
% Row 12
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{Matrices are long Vectors \{\{nl\}\} `matrix(1:4,2) + c(1,2)`} \tn 
% Row Count 22 (+ 2)
% Row 13
\SetRowColor{white}
\mymulticolumn{1}{x{5.377cm}}{`which(), any(), all()`} \tn 
% Row Count 23 (+ 1)
% Row 14
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{R performs operations on vectors element by element} \tn 
% Row Count 25 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{(**Basics)}  \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}


% That's all folks
\end{multicols*}

\end{document}