It is indeed a ylim matter: I tried randomly this command
plot((pchisq(z_score,10)-10)/(sqrt(2*10)),type = "l",ylim=c(-3,0))
and got more than one line. Then you will need to fiddle a little bit to find the best option.
CLICK HERE to find out more related problems solutions.