legend("topright", legend=c("вид-жертва", "вид-хищник"), col=c("red", "blue"), lty=c(1, 5), lwd=4, xjust=1, yjust=1)