如何在Latex中高亮显示R语言代码

\documentclass[8pt]{beamer}
\usepackage{ctex}
\usepackage{listings} %插入代码
\usepackage{xcolor} %代码高亮

\lstset{numbers=left, %设置行号位置
numberstyle=\tiny, %设置行号大小
keywordstyle=\color{blue}, %设置关键字颜色
commentstyle=\color[cmyk]{1,0,1,0}, %设置注释颜色
frame=single, %设置边框格式
escapeinside=``, %逃逸字符(1左面的键)，用于显示中文
%breaklines, %自动折行
extendedchars=false, %解决代码跨页时，章节标题，页眉等汉字不显示的问题
xleftmargin=2em,xrightmargin=2em, aboveskip=1em, %设置边距
tabsize=4, %设置tab空格数
showspaces=false %不显示空格
}
% % % % % % % % % % % % % % % % % % % % % % % % % % %
\begin{document}
\begin{frame}[fragile] %must using [fragile]
\begin{lstlisting}[language=R]
# 绘制图形
rmax <- 3
# 设置图形分行方式和图形空白边距,并保存原有的方式
op <- par(mfrow = c(rmax,1), mar = .1+ c(2,2,2,1))
for(r in 1:rmax){
tstr <- sprintf("r=%d",r)
ricker(0.005, r);title(tstr)
}
par(op) # 恢复默认图形页面设置
\end{lstlisting}
\end{frame}

\end{document}