\usepackage{listings}
\lstset{numbers=none,
numberstyle=\tiny,
keywordstyle=\color{blue!70}, commentstyle=\color{red!50!green!50!blue!50},
frame=shadowbox,
rulesepcolor=\color{red!20!green!20!blue!20},
basicstyle=\ttfamily\small,
escapeinside=`', %将中文放在`和'之间,可以在lstlisting环境中准确的显示中文
}
\begin{lstlisting}[language={R}]
> data<-read.csv(file='D:/test.csv')
> data
X0.2 X0.7 X0.5 X0.9
1 1.00 0.8 0.46 0.27
2 0.96 0.7 0.65 0.60
\end{lstlisting}