R分段函数绘图

Question

所以我读了一个答案here，然后继续使用ifelse来定义分段函数。

我有一个分段函数，用于说明在p美元的不同损失金额下不保证价值的罚款金额x。

p <- function(x){
  return(ifelse(x <=300, x - x*(300/400) , 
      ifelse(x > 300 & x <= 400,  300 - x*(300/400),
      ifelse(x > 400, 0, 0))))}
plot(p(0:500),type="l")

正如你所看到的那样输出不是很顺利，我的问题是：

1. 任何绘图选项都可以让它非常流畅（因为它应该在这里）？
2. 如何仅在x范围内从200到420进行绘制，每10美元损失增加一个绘图点？我想这可能是非常简单的事我不知道200:10:420 ??