Hello, I am having difficulties solving a system of equations with the NSolve Function in Mathematica. I have four sets of equations and attempted to combine several into one equation to enhance the ability to solve the problem, but it did not work. Here are much simplified versions of the equations I used as well as the formatting I used for NSolve. Is there a limit to the amount of equations I can use? Is there a better command I can use to solve this problem I want the value of x:

Simplified Equations
eq.1) 1=(1/n)(g/4)exp(g/4)
eq.2) n=(4/3)pir^2
eq.3) r=2x^3
eq.4) g=3/4x^3
For simplification, we can assume "eq.y" is a fully written out version of one of the above equations and all equalities have a "==" rather than just "="
Formatting*

NSolve[{eq.1,eq.2,eq.3,eq.4},x]