请教各位大神，网上等高线的范例：
ContourPlot[ Evaluate[ BesselJ[1, r/2]*Cos[3 t ] /. {r -> Sqrt[x^2 + y^2], t -> ArcTan[x, y]}], {x, -5, 5}, {y, -5, 5}, PlotPoints -> 50, ColorFunction -> ColorData["DarkRainbow"], Contours -> 25]。
上图是案例，下面是我绘制的，左边多出的白线请问该如何让其消失。

Exclusions->None