\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{Jyothis}
\pdfinfo{
  /Title (introduction-to-package-r.pdf)
  /Creator (Cheatography)
  /Author (Jyothis)
  /Subject (Introduction to package R 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}{9C5DA3}
\definecolor{LightBackground}{HTML}{F8F4F9}
\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{Introduction to package R Cheat Sheet}}}} \\
    \normalsize{by \textcolor{DarkBackground}{Jyothis} via \textcolor{DarkBackground}{\uline{cheatography.com/67244/cs/16866/}}}
\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}Jyothis \\
  \uline{cheatography.com/jyothis} \\
  \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 30th August, 2018.\\
   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{1.54287 cm} x{3.43413 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Util Functions}}  \tn
% Row 0
\SetRowColor{LightBackground}
getwd() & Get working directory \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
setwd() & Set working directory \tn 
% Row Count 2 (+ 1)
% Row 2
\SetRowColor{LightBackground}
ls() & List the objects declared \tn 
% Row Count 3 (+ 1)
% Row 3
\SetRowColor{white}
rm() & Remove an object \tn 
% Row Count 4 (+ 1)
% Row 4
\SetRowColor{LightBackground}
attach() & Add an object to the environment variable list \tn 
% Row Count 6 (+ 2)
% Row 5
\SetRowColor{white}
detach() & Remove an object from the environment variable list \tn 
% Row Count 8 (+ 2)
% Row 6
\SetRowColor{LightBackground}
\seqsplit{install.packages()} & Install R Packages \tn 
% Row Count 10 (+ 2)
% Row 7
\SetRowColor{white}
library() & Load the packages to the library \tn 
% Row Count 12 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{1.04517 cm} x{3.93183 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Aggregate Function}}  \tn
% Row 0
\SetRowColor{LightBackground}
mean() & Returns the mean value \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
range() & Returns the range \tn 
% Row Count 2 (+ 1)
% Row 2
\SetRowColor{LightBackground}
sd() & Returns the standard deviation \tn 
% Row Count 3 (+ 1)
% Row 3
\SetRowColor{white}
\seqsplit{length()} & Returns the length \tn 
% Row Count 4 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{0.9954 cm} x{3.9816 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{String functions}}  \tn
% Row 0
\SetRowColor{LightBackground}
\seqsplit{toString()} & Converts variable to string \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
\seqsplit{sprintf()} & Prints data in specified format \tn 
% Row Count 4 (+ 2)
% Row 2
\SetRowColor{LightBackground}
\seqsplit{toupper()} & Convert all characters to uppercase \tn 
% Row Count 6 (+ 2)
% Row 3
\SetRowColor{white}
\seqsplit{tolower()} & Convert all characters to lowercase \tn 
% Row Count 8 (+ 2)
% Row 4
\SetRowColor{LightBackground}
\seqsplit{substr()} & Extract a substring \tn 
% Row Count 9 (+ 1)
% Row 5
\SetRowColor{white}
paste() & Append two strings with delimiters in between \tn 
% Row Count 11 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{0.9954 cm} x{3.9816 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Date and Time}}  \tn
% Row 0
\SetRowColor{LightBackground}
\seqsplit{Sys.time()} & Returns system date and time \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
\seqsplit{POSIXlt()} & Date and time in POSIXlt format \tn 
% Row Count 4 (+ 2)
% Row 2
\SetRowColor{LightBackground}
\seqsplit{POSIXct()} & Date and time in POSIXct format \tn 
% Row Count 6 (+ 2)
% Row 3
\SetRowColor{white}
\seqsplit{strptime()} & \seqsplit{strptime("20180722T093000Z"},"\%Y\%m\%dT\%H\%M\%SZ", tz="UTC") \tn 
% Row Count 8 (+ 2)
% Row 4
\SetRowColor{LightBackground}
\seqsplit{strftime()} & strftime(now\_ct, "It's \%I:\%M\%p on \%A \%d \%B, \%Y.") \tn 
% Row Count 10 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{1.09494 cm} x{3.88206 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Matrix}}  \tn
% Row 0
\SetRowColor{LightBackground}
\seqsplit{matrix()} & Used to creates a matrix \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
Example & a\_matrix\textless{}-matrix(1:12,byrow=TRUE,                  nrow=4, \#ncol=3 works the same                  dimnames=list(                    c("one","two","three","four"),                    c("c1","c2","c3")                  )) \tn 
% Row Count 9 (+ 8)
% Row 2
\SetRowColor{LightBackground}
dim() & Returns the dimension of matrix \tn 
% Row Count 10 (+ 1)
% Row 3
\SetRowColor{white}
nrow() & Number of rows \tn 
% Row Count 11 (+ 1)
% Row 4
\SetRowColor{LightBackground}
ncols() & Number of columns \tn 
% Row Count 12 (+ 1)
% Row 5
\SetRowColor{white}
\seqsplit{identical()} & Returns true if same \tn 
% Row Count 14 (+ 2)
% Row 6
\SetRowColor{LightBackground}
\seqsplit{rownames()} & Name of the rows \tn 
% Row Count 16 (+ 2)
% Row 7
\SetRowColor{white}
\seqsplit{colnames()} & Name of the columns \tn 
% Row Count 18 (+ 2)
% Row 8
\SetRowColor{LightBackground}
\seqsplit{dimnames()} & Name of the dimensions \tn 
% Row Count 20 (+ 2)
% Row 9
\SetRowColor{white}
cbind() & Replicate columns \tn 
% Row Count 21 (+ 1)
% Row 10
\SetRowColor{LightBackground}
rbind() & Replicate rows \tn 
% Row Count 22 (+ 1)
% Row 11
\SetRowColor{white}
t() & Transpose \tn 
% Row Count 23 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{0.84609 cm} x{4.13091 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Control Structure}}  \tn
% Row 0
\SetRowColor{LightBackground}
if else & if(a\textgreater{}b \& a\textgreater{}c)\{   print("a is greater") \}else if(b\textgreater{}c \& b\textgreater{}a)\{   print("b is greater") \}else\{   print("c is greater") \} \tn 
% Row Count 4 (+ 4)
% Row 1
\SetRowColor{white}
\seqsplit{ifelse()} & ifelse(a\textgreater{}b, ifelse(a\textgreater{}c,"a","c"), ifelse(b\textgreater{}c,"b","c")) \tn 
% Row Count 6 (+ 2)
% Row 2
\SetRowColor{LightBackground}
\seqsplit{switch()} & (greek=switch(   "gamma",   alpha=1, beta=sqrt(4), gamma=4 )) \tn 
% Row Count 8 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{1.04517 cm} x{3.93183 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Stats}}  \tn
% Row 0
\SetRowColor{LightBackground}
\seqsplit{summary()} & Returns a summary of the object \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
\seqsplit{quantile()} & Returns the quartile details \tn 
% Row Count 4 (+ 2)
% Row 2
\SetRowColor{LightBackground}
hist() & Creates a frequency table \tn 
% Row Count 5 (+ 1)
% Row 3
\SetRowColor{white}
\seqsplit{density()} & Creates a standardized frequency table \tn 
% Row Count 7 (+ 2)
% Row 4
\SetRowColor{LightBackground}
plot() & Creates a graph \tn 
% Row Count 8 (+ 1)
% Row 5
\SetRowColor{white}
\seqsplit{boxplot()} & Creates a boxplot \tn 
% Row Count 10 (+ 2)
% Row 6
\SetRowColor{LightBackground}
\seqsplit{ggplot()} & Visualization function \tn 
% Row Count 11 (+ 1)
% Row 7
\SetRowColor{white}
\seqsplit{qpplot()} & Visualization function \tn 
% Row Count 12 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{1.29402 cm} x{3.68298 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Other functions}}  \tn
% Row 0
\SetRowColor{LightBackground}
\seqsplit{which.min()} & Returns the minimum from a list \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
\seqsplit{which.max()} & Returns the maximum from a list \tn 
% Row Count 4 (+ 2)
% Row 2
\SetRowColor{LightBackground}
rep() & Replicates a vector \tn 
% Row Count 5 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{p{0.54747 cm} x{4.42953 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Loop}}  \tn
% Row 0
\SetRowColor{LightBackground}
while & while(i\textless{}10)\{   print(i)   i=i+1 \} \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
for & for(i in 1:5) message("i=",i) \tn 
% Row Count 3 (+ 1)
% Row 2
\SetRowColor{LightBackground}
for & for(month in month.name)\{   message("The month of ",month) \} \tn 
% Row Count 5 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{p{0.74655 cm} x{4.23045 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Dataframes}}  \tn
% Row 0
\SetRowColor{LightBackground}
\seqsplit{Example} & \seqsplit{d=data.frame(subjectID=1:5},gender=c("M","F","F","M","F"),              score=c(8,3,6,5,5)) \tn 
% Row Count 3 (+ 3)
% Row 1
\SetRowColor{white}
\mymulticolumn{2}{x{5.377cm}}{Filters} \tn 
% Row Count 4 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\SetRowColor{LightBackground}
\mymulticolumn{2}{x{5.377cm}}{d{[}3,1{]};d{[},"subjectID"{]}\textgreater{}3;d{[},c("subjectID","gender"){]} \newline d\$subjectID \newline filter=d\$subjectID\textgreater{}3 \newline d{[}filter,{]} \newline d{[}"subjectID"{]};d\$subjectID\textgreater{}3;d{[}d\$subjectID\textgreater{}3,{]} \newline filter2=d\$gender=="F" \newline d{[}filter2,{]} \newline filter3=d\$score\textgreater{}5 \newline d{[}filter3,{]} \newline d{[}filter2,c("score"){]} \newline d{[}filter2 \& filter3,{]}{[},c("score"){]} \newline subset() - Returns a filtered set of data}  \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{0.9954 cm} x{3.9816 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Joins}}  \tn
% Row 0
\SetRowColor{LightBackground}
merge() & merge(a\_data\_frame,b\_data\_frame,by="x",all=TRUE) \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
\seqsplit{colsums()} & colSums(a\_data\_frame{[},-1{]}) \tn 
% Row Count 4 (+ 2)
% Row 2
\SetRowColor{LightBackground}
\seqsplit{colmeans()} & colMeans(fw{[},-2{]}) \tn 
% Row Count 6 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}


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

\end{document}