My sample code is-
\documentclass{article}
\usepackage{listings}
\usepackage{xcolor}
\begin{document}
\lstinputlisting[numbers=left,backgroundcolor=\color{lightgray},language=R]{code.R}
\end{document}
and code.R is -
m.datF <- read.csv("modified_dataF.csv", header=T)[,-1]
mod <- glm(salary ~ ., family=gaussian, data=m.datF)
summary(mod)
In this output the ~ is positioned little up.


listingscontext has been put forward so far. – Nov 12 '17 at 18:06