列表字符串中的下划线和星号颜色

Question

我有以下代码：

\documentclass{article}
\usepackage[utf8]{inputenc}
\usepackage{listings}
\usepackage[usenames,dvipsnames]{color}

\begin{document}
\lstdefinestyle{R} {
      language=R,
      showstringspaces=false,
      columns=flexible,
      stringstyle=\color{Orange},
}

\begin{lstlisting}[style=R]
print("This is a test string with_underscore_in_it and one * asterisk.")
\end{lstlisting}


\end{document}

结果是下划线和星号变成黑色，而不是像字符串的其余部分一样变成橙色。有什么方法可以让它也变成橙色吗？