\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{raeshmi}
\pdfinfo{
  /Title (r-programming.pdf)
  /Creator (Cheatography)
  /Author (raeshmi)
  /Subject (R Programming 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}{062E52}
\definecolor{LightBackground}{HTML}{F7F8F9}
\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 Programming Cheat Sheet}}}} \\
    \normalsize{by \textcolor{DarkBackground}{raeshmi} via \textcolor{DarkBackground}{\uline{cheatography.com/67112/cs/16792/}}}
\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}raeshmi \\
  \uline{cheatography.com/raeshmi} \\
  \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 27th 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}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{Util functions}}  \tn
% Row 0
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{getwd()} \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
\mymulticolumn{1}{x{5.377cm}}{setwd('C://file/path')} \tn 
% Row Count 2 (+ 1)
% Row 2
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{rm(variable\_name)} \tn 
% Row Count 3 (+ 1)
% Row 3
\SetRowColor{white}
\mymulticolumn{1}{x{5.377cm}}{str(variable\_name)} \tn 
% Row Count 4 (+ 1)
% Row 4
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{help.start()} \tn 
% Row Count 5 (+ 1)
% Row 5
\SetRowColor{white}
\mymulticolumn{1}{x{5.377cm}}{install.packages("ade4")} \tn 
% Row Count 6 (+ 1)
% Row 6
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{library(ade4)} \tn 
% Row Count 7 (+ 1)
% Row 7
\SetRowColor{white}
\mymulticolumn{1}{x{5.377cm}}{detach(package:ade4)} \tn 
% Row Count 8 (+ 1)
% Row 8
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{history()} \tn 
% Row Count 9 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{2.4885 cm} x{2.4885 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{DataFrame}}  \tn
% Row 0
\SetRowColor{LightBackground}
\seqsplit{d=data.frame(subjectID=1:3},gender=c("M","F","F"),score=c(8,3,6)) & A list where all elements are the same length. \tn 
% Row Count 4 (+ 4)
% Row 1
\SetRowColor{white}
\seqsplit{rbind(a\_data\_frame}, \seqsplit{another\_data\_frame)} & Bind rows \tn 
% Row Count 6 (+ 2)
% Row 2
\SetRowColor{LightBackground}
\seqsplit{cbind(a\_data\_frame}, \seqsplit{another\_data\_frame)} & Bind columns \tn 
% Row Count 8 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{1.89126 cm} x{3.08574 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Strings}}  \tn
% Row 0
\SetRowColor{LightBackground}
x \textless{}- (1:15) \textasciicircum{} 2 & toString(x) \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
toupper("I'm Shouting") & tolower("I'm Shouting") \tn 
% Row Count 3 (+ 2)
% Row 2
\SetRowColor{LightBackground}
tolower("I'm Shouting") & strsplit(woodchuck, " ", fixed = TRUE) \tn 
% Row Count 5 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{2.38896 cm} x{2.58804 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Data.table}}  \tn
% Row 0
\SetRowColor{LightBackground}
\seqsplit{library(data.table)} & class(flights) \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
head(flights) & flights{[}, .(.N), by = .(origin){]} \tn 
% Row Count 3 (+ 2)
% Row 2
\SetRowColor{LightBackground}
flights{[}, head(.SD, 2), by = month{]} & flights{[}1:5,sum(arr\_delay,dep\_delay),{]} \tn 
% Row Count 5 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{p{1.09494 cm} x{3.88206 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Vectors}}  \tn
% Row 0
\SetRowColor{LightBackground}
t(a) & transpose \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
5 * a & scalar multiplication \tn 
% Row Count 2 (+ 1)
% Row 2
\SetRowColor{LightBackground}
a+b & summing vector \tn 
% Row Count 3 (+ 1)
% Row 3
\SetRowColor{white}
c(1,0) & unit vectors \tn 
% Row Count 4 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{Matrices}}  \tn
% Row 0
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{matrix(1:6,2,3)} \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
\mymulticolumn{1}{x{5.377cm}}{m2=matrix(1:3)} \tn 
% Row Count 2 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{3.13551 cm} x{1.84149 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Vectors}}  \tn
% Row 0
\SetRowColor{LightBackground}
y\textless{}-c(5,7,7,8,2,5,6,4) & Numeric vector \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
x \textless{}- c("one","two","three") & Character vector \tn 
% Row Count 3 (+ 2)
% Row 2
\SetRowColor{LightBackground}
z \textless{}- c(TRUE,TRUE,FALSE) & Logical vector \tn 
% Row Count 4 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{2.4885 cm} x{2.4885 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Lists}}  \tn
% Row 0
\SetRowColor{LightBackground}
cars\textless{}-list(c("Toyota", "Nissan", "Honda"), c(150,180,50)) & Collection of elements which can be of different types. \tn 
% Row Count 3 (+ 3)
% Row 1
\SetRowColor{white}
cars{[}{[}1{]}{]} & first row of the list \tn 
% Row Count 5 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{1.4931 cm} x{3.4839 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Descriptive Statistics}}  \tn
% Row 0
\SetRowColor{LightBackground}
\seqsplit{summary(mydat)} & describe(mydat) \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
str(mydat) & names(mydat) \tn 
% Row Count 3 (+ 1)
% Row 2
\SetRowColor{LightBackground}
\seqsplit{par(mfrow=c(2},2)) & \seqsplit{plot(density(female\_dat\$science\_score))} \tn 
% Row Count 5 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{2.83689 cm} x{2.14011 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Functions}}  \tn
% Row 0
\SetRowColor{LightBackground}
hypotenuse(3, 4) & \seqsplit{formalArgs(hypotenuse)} \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
normalize(c(1, 3, 6, 10, NA)) & f(sqrt(5)) \tn 
% Row Count 4 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{1.89126 cm} x{3.08574 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Hypothesis Testing}}  \tn
% Row 0
\SetRowColor{LightBackground}
t.test(x, y) & t-test - difference between means. \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
prop.test & Test for difference between proportions. \tn 
% Row Count 4 (+ 2)
% Row 2
\SetRowColor{LightBackground}
\seqsplit{pairwise.t.test} & t-test for  paired data. \tn 
% Row Count 5 (+ 1)
% Row 3
\SetRowColor{white}
\seqsplit{cor.test(sample1},sample2) & Correlation \tn 
% Row Count 7 (+ 2)
% Row 4
\SetRowColor{LightBackground}
\seqsplit{wilcox.test(data3)} & Alternate hypothesis is proved \tn 
% Row Count 9 (+ 2)
% Row 5
\SetRowColor{white}
\seqsplit{chisq.test(marks1)} & Chi square test \tn 
% Row Count 11 (+ 2)
% Row 6
\SetRowColor{LightBackground}
\seqsplit{shapiro.test(vnor)} & Distribution is normal \tn 
% Row Count 13 (+ 2)
% Row 7
\SetRowColor{white}
aov & ANOVA - Analysis of Variance \tn 
% Row Count 15 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{X}
\SetRowColor{DarkBackground}
\mymulticolumn{1}{x{5.377cm}}{\bf\textcolor{white}{Arrays \& Matrices}}  \tn
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{(two\_d\_array \textless{}- array( 1:12, \newline dim = c(4, 3), \newline dimnames = list( \newline c("one", "two", "three", "four"), \newline c("c1", "c2", "c3")))) \newline  \newline dim(two\_d\_array) \newline nrow(two\_d\_array) \newline ncol(two\_d\_array) \newline length(two\_d\_array)} \tn 
\hhline{>{\arrayrulecolor{DarkBackground}}-}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{1.59264 cm} x{3.38436 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Visualization}}  \tn
% Row 0
\SetRowColor{LightBackground}
\seqsplit{barplot(Species)} & ggplot(mydata1,aes(x = subject, fill = subject) ) + geom\_bar() \tn 
% Row Count 3 (+ 3)
% Row 1
\SetRowColor{white}
\seqsplit{hist(Sepal.Length)} & plot(Sepal.Width) \tn 
% Row Count 5 (+ 2)
% Row 2
\SetRowColor{LightBackground}
\seqsplit{qqnorm(Sepal}.Width) & library(ggplot2) \tn 
% Row Count 7 (+ 2)
% Row 3
\SetRowColor{white}
\seqsplit{pie(table(Species))} & library(learningr) \tn 
% Row Count 9 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{2.09034 cm} x{2.88666 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Probability}}  \tn
% Row 0
\SetRowColor{LightBackground}
Uniform & u \textless{}- runif(2000) \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
Normal or Gaussian & u \textless{}- rnorm(2000,mean=50,sd=3) \tn 
% Row Count 3 (+ 2)
% Row 2
\SetRowColor{LightBackground}
Exponential & u \textless{}- rexp(2000) \tn 
% Row Count 4 (+ 1)
% Row 3
\SetRowColor{white}
Binomial Distribution & mybinom(k,n,p) * 1000 \tn 
% Row Count 6 (+ 2)
% Row 4
\SetRowColor{LightBackground}
Poisson Distribution & mypois(lambda, 2) \tn 
% Row Count 8 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{3.43413 cm} x{1.54287 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Matrix Manipulation}}  \tn
% Row 0
\SetRowColor{LightBackground}
det(matrix(c(1,0,0,1),2)) & Determinant \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
solve(m1) \%*\% m1 & Inverse \tn 
% Row Count 2 (+ 1)
% Row 2
\SetRowColor{LightBackground}
library(MASS) & ginv(m1) \tn 
% Row Count 3 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{3.68298 cm} x{1.29402 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Statistics - Algorithms}}  \tn
% Row 0
\SetRowColor{LightBackground}
predict(model3,mydat) & \seqsplit{Regression} \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
table(predict.glm(modelg,newdata=mydat,type="response")\textgreater{}0.5) & \seqsplit{Classification} \tn 
% Row Count 4 (+ 3)
% Row 2
\SetRowColor{LightBackground}
cl\$cluster & \seqsplit{Clustering} \tn 
% Row Count 5 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}


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

\end{document}