用 R 中的另一个变量重写方程

Question

我有一个功能，比如Q = 4000-50P，写的R是 q1 <- function(p_)pmax(0,4000-50*p_)

我想重写等式中的条款P，以获得P = 80-(1/50)*Q，写成R如p1 <- function(q1_)pmax(0,80-(1/50)*q1_)

有没有办法R解决另一个变量的函数/方程？我想告诉R解决第一个方程p_。我似乎无法在网上找到任何答案。提前致谢！