\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{Jona Priyaa S J}
\pdfinfo{
  /Title (r-programming-cheat-sheet.pdf)
  /Creator (Cheatography)
  /Author (Jona Priyaa S J)
  /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}{A3349F}
\definecolor{LightBackground}{HTML}{F9F2F9}
\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}{Jona Priyaa S J} via \textcolor{DarkBackground}{\uline{cheatography.com/67228/cs/16858/}}}
\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}Jona Priyaa S J \\
  \uline{cheatography.com/jona-priyaa-s-j} \\
  \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 29th 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{2.78712 cm} x{2.18988 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Util Functions}}  \tn
% Row 0
\SetRowColor{LightBackground}
data = \seqsplit{read.csv(file.choose())} & Opens file explorer to get data \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
setwd("Path") & Sets the working directory \tn 
% Row Count 4 (+ 2)
% Row 2
\SetRowColor{LightBackground}
getwd() & Gets the working directory \tn 
% Row Count 6 (+ 2)
% Row 3
\SetRowColor{white}
str(variable\_name) & Structure of the variable \tn 
% Row Count 8 (+ 2)
% Row 4
\SetRowColor{LightBackground}
ls() & Lists the variables \tn 
% Row Count 10 (+ 2)
% Row 5
\SetRowColor{white}
rm(variable\_name) & Removes the variable \tn 
% Row Count 12 (+ 2)
% Row 6
\SetRowColor{LightBackground}
help.start() & Opens help \tn 
% Row Count 13 (+ 1)
% Row 7
\SetRowColor{white}
library("Package Name") & Makes it available for the use \tn 
% Row Count 15 (+ 2)
% Row 8
\SetRowColor{LightBackground}
\seqsplit{install.packages("Package} Name") & Installs package \tn 
% Row Count 17 (+ 2)
% Row 9
\SetRowColor{white}
detach("Package Name") & detaches the package \tn 
% Row Count 19 (+ 2)
% Row 10
\SetRowColor{LightBackground}
history() & Shows the history \tn 
% Row Count 20 (+ 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}
d=data.frame(Roll No=1:3, gender=c("F","M","F"), Grade=c(8,4,7) & Input Dataframe - length should be equal \tn 
% Row Count 4 (+ 4)
% Row 1
\SetRowColor{white}
view(d) & Opens Editor \tn 
% Row Count 5 (+ 1)
% Row 2
\SetRowColor{LightBackground}
summary(d) & Provides the descriptive statistics \tn 
% Row Count 7 (+ 2)
% Row 3
\SetRowColor{white}
head(d)/tail(d) & Displays the top or bottom rows \tn 
% Row Count 9 (+ 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}{Strings}}  \tn
% Row 0
\SetRowColor{LightBackground}
toString(x) & To produce a single character string \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
\seqsplit{toupper(x)/tolower(x)} & Changes from upper to lower case and vice versa \tn 
% Row Count 5 (+ 3)
% Row 2
\SetRowColor{LightBackground}
strsplit(word, character, fixed=TRUE) & Splits the word based on the character given \tn 
% Row Count 8 (+ 3)
% Row 3
\SetRowColor{white}
substring(word,startpoint,endpoint) & Retrieves or replaces the substring of the character \tn 
% Row Count 11 (+ 3)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{3.08574 cm} x{1.89126 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Arrays}}  \tn
% Row 0
\SetRowColor{LightBackground}
1D = array(1:24) & 1 dimensional array \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
2D = array(1:24, dim = c(6,4)) & 2 dimensional array \tn 
% Row Count 4 (+ 2)
% Row 2
\SetRowColor{LightBackground}
3D = array(1:24, dim = c(4,3,2)) & 3 dimensional array \tn 
% Row Count 6 (+ 2)
% Row 3
\SetRowColor{white}
dim(2D) & nrow(2D) \tn 
% Row Count 7 (+ 1)
% Row 4
\SetRowColor{LightBackground}
ncol(2D) & length(2D) \tn 
% Row Count 8 (+ 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}{Vectors}}  \tn
% Row 0
\SetRowColor{LightBackground}
num = c(1,2,3,4,5,6) & numeric vector \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
chr = c("aaa","bbb") & character vector \tn 
% Row Count 4 (+ 2)
% Row 2
\SetRowColor{LightBackground}
log = c(TRUE,TRUE,FALSE) & logical vector \tn 
% Row Count 6 (+ 2)
% Row 3
\SetRowColor{white}
mean(vector) & mean \tn 
% Row Count 7 (+ 1)
% Row 4
\SetRowColor{LightBackground}
sd(vector) & standard deviation \tn 
% Row Count 8 (+ 1)
% Row 5
\SetRowColor{white}
var(vector) & variance \tn 
% Row Count 9 (+ 1)
% Row 6
\SetRowColor{LightBackground}
range(vector) & range \tn 
% Row Count 10 (+ 1)
% Row 7
\SetRowColor{white}
\seqsplit{which.min(vec)/which.max(vec)} position of the min/max value rep(1:5,times=3) & Finding the minimum and maximum values in the vector \tn 
% Row Count 15 (+ 5)
\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}{Matrix}}  \tn
% Row 0
\SetRowColor{LightBackground}
mat = matrix(1:12, nrow=4, ncol=3) & matrix \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
cbind(mat1,mat2) & column bind \tn 
% Row Count 3 (+ 1)
% Row 2
\SetRowColor{LightBackground}
rbind(mat1,mat2) & row bind \tn 
% Row Count 4 (+ 1)
% Row 3
\SetRowColor{white}
det(matrix(c(1,0,0,1),2)) & Determinant \tn 
% Row Count 5 (+ 1)
% Row 4
\SetRowColor{LightBackground}
solve(A) & Inverse \tn 
% Row Count 6 (+ 1)
% Row 5
\SetRowColor{white}
A\%*\%B & Matrix \seqsplit{Multiplication} \tn 
% Row Count 8 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{2.93643 cm} x{2.04057 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Lists}}  \tn
% Row 0
\SetRowColor{LightBackground}
x\textless{}-list(c(1,2,3),c("A","B","C")) & Collection of Elements \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
x{[}{[}1{]}{]} & First row \tn 
% Row Count 3 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{3.23505 cm} x{1.74195 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Descriptive Statistics}}  \tn
% Row 0
\SetRowColor{LightBackground}
colMeans(data{[}{]}) & column mean \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
colSums(data{[}{]}) & column sum \tn 
% Row Count 2 (+ 1)
% Row 2
\SetRowColor{LightBackground}
rowMeans(data{[}{]}) & row mean \tn 
% Row Count 3 (+ 1)
% Row 3
\SetRowColor{white}
rowSums(data{[}{]}) & row sum \tn 
% Row Count 4 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{3.33459 cm} x{1.64241 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Hypothesis}}  \tn
% Row 0
\SetRowColor{LightBackground}
t.test(data) & 1 sample t test \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
t.test(data1,data2) & 2 sample t test \tn 
% Row Count 4 (+ 2)
% Row 2
\SetRowColor{LightBackground}
t.test(pre,post,paired=TRUE) & paired sample t test \tn 
% Row Count 6 (+ 2)
% Row 3
\SetRowColor{white}
cor.test(data1,data2) & Correlation \tn 
% Row Count 8 (+ 2)
% Row 4
\SetRowColor{LightBackground}
chisq.test(data) & Chi square \tn 
% Row Count 9 (+ 1)
% Row 5
\SetRowColor{white}
aov() & ANOVA \tn 
% Row Count 10 (+ 1)
% Row 6
\SetRowColor{LightBackground}
wilcox.test(data) & Wilcox test \tn 
% Row Count 11 (+ 1)
% Row 7
\SetRowColor{white}
shapiro.test(data) & Shapiro test \tn 
% Row Count 12 (+ 1)
% Row 8
\SetRowColor{LightBackground}
prop.test & Testing proportions \tn 
% Row Count 14 (+ 2)
\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}{Visualization}}  \tn
% Row 0
\SetRowColor{LightBackground}
qplot(data, line=TRUE,...) & produces quantile-quantile plot \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
qqnorm(column) & produces quantile-quantile plot \tn 
% Row Count 4 (+ 2)
% Row 2
\SetRowColor{LightBackground}
barplot(table) & Relationship between a numerical and a categorical variable \tn 
% Row Count 7 (+ 3)
% Row 3
\SetRowColor{white}
boxplot(x,data=) & Distribution \tn 
% Row Count 8 (+ 1)
% Row 4
\SetRowColor{LightBackground}
ggplot(data = NULL, mapping = aes(), ...) & initializes a ggplot object \tn 
% Row Count 11 (+ 3)
% Row 5
\SetRowColor{white}
geom\_bar() & bar graph \tn 
% Row Count 12 (+ 1)
% Row 6
\SetRowColor{LightBackground}
coord\_flip() & flip x and y coordinates \tn 
% Row Count 14 (+ 2)
% Row 7
\SetRowColor{white}
facet\_grid() & lay out panels in a grid \tn 
% Row Count 16 (+ 2)
% Row 8
\SetRowColor{LightBackground}
geom\_density & density plot \tn 
% Row Count 17 (+ 1)
% Row 9
\SetRowColor{white}
geom\_hist & histogram \tn 
% Row Count 18 (+ 1)
% Row 10
\SetRowColor{LightBackground}
geom\_point & scatter plots \tn 
% Row Count 19 (+ 1)
% Row 11
\SetRowColor{white}
hist(column) & normality test \tn 
% Row Count 20 (+ 1)
% Row 12
\SetRowColor{LightBackground}
\seqsplit{pie(table(tablename))} & piecharts \tn 
% Row Count 22 (+ 2)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{3.53367 cm} x{1.44333 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Loops}}  \tn
% Row 0
\SetRowColor{LightBackground}
for (variable in sequence)\{ Do something \} & for loop \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
while (condition)\{ Do something \} & while loop \tn 
% Row Count 4 (+ 2)
% Row 2
\SetRowColor{LightBackground}
if (condition)\{ Do something \} else \{ Do something different \} & ifelse statement \tn 
% Row Count 7 (+ 3)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}

\begin{tabularx}{5.377cm}{x{2.93643 cm} x{2.04057 cm} }
\SetRowColor{DarkBackground}
\mymulticolumn{2}{x{5.377cm}}{\bf\textcolor{white}{Probability}}  \tn
% Row 0
\SetRowColor{LightBackground}
runif(n, min = 0, max = 1) & Uniform \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
rnorm(n,mean,sd) & Normal or Gaussian \tn 
% Row Count 4 (+ 2)
% Row 2
\SetRowColor{LightBackground}
rexp(n) & Exponential \tn 
% Row Count 5 (+ 1)
% Row 3
\SetRowColor{white}
rbinom(n, size, prob) & Binomial \tn 
% Row Count 6 (+ 1)
% Row 4
\SetRowColor{LightBackground}
rpois(n,size) & Poisson \tn 
% Row Count 7 (+ 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}{Data Table}}  \tn
% Row 0
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{library(data.table)} \tn 
% Row Count 1 (+ 1)
% Row 1
\SetRowColor{white}
\mymulticolumn{1}{x{5.377cm}}{class(x)} \tn 
% Row Count 2 (+ 1)
% Row 2
\SetRowColor{LightBackground}
\mymulticolumn{1}{x{5.377cm}}{head(x)} \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}}  \tn
% Row 0
\SetRowColor{LightBackground}
fit \textless{}- lm(y \textasciitilde{} x1 + x2 + x3, data=mydata) summary(fit) & \seqsplit{Regression} \tn 
% Row Count 2 (+ 2)
% Row 1
\SetRowColor{white}
glm.fit(y \textasciitilde{} x1 + x2 + x3, family="", data=mydata) & \seqsplit{Classification} \tn 
% Row Count 4 (+ 2)
% Row 2
\SetRowColor{LightBackground}
kmeans(data) & \seqsplit{Clustering} \tn 
% Row Count 5 (+ 1)
\hhline{>{\arrayrulecolor{DarkBackground}}--}
\end{tabularx}
\par\addvspace{1.3em}


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

\end{document}