我需要找到两个函数相交的点，并用标记的交点来绘制函数。
我已经发现了如何在r中绘制两个函数。 我的第一个问题是，我仍然需要将x轴更改为y轴。
功能是：
fun1 = function(d, m = 1.92) {m/((pi/4)*d^2)}
fun2 = function(d, mu = 0.039, kb = 3.5) {mu*(1-exp(-(kb)*d))}
我用以下方式绘制它们：
plot(fun1)
par(new=TRUE)
plot(fun2)
首先，我想更改轴，但是我不知道该命令。
第二，我需要找到两个函数相交的点的值。 在这里提出的其他问题中，我找到了使用命令uniroot的建议，但是我需要找到一种解决方案，而又不知道相交的范围。
有人知道解决方案吗？
fun1 = function(d, m = 1.92) {m/((pi/4)*d^2)}
fun2 = function(d, mu = 0.039, kb = 3.5) {mu*(1-exp(-(kb)*d))}
plot(fun1)
par(new=TRUE)
plot(fun2)