在R语言中解方程，你可以采用以下几种方法：

1. 使用 `uniroot（）` 函数

`uniroot（）` 函数用于求解单个未知数的方程。你可以将方程组转化为只有一个未知数的方程，然后使用 `uniroot（）` 函数来计算未知数的解。

```r

定义方程

f1 <- function(x) 121 - x^2

f2 <- function(x) exp(-x)*(x - 12)

求解方程

solution1 <- uniroot(f1, c(0, 10))

solution2 <- uniroot(f2, c(0, 2))

输出解

print(solution1$root)

print(solution2$root)

```

2. 使用 `solve（）` 函数

`solve（）` 函数用于求解线性方程组。你需要将方程组表示为矩阵形式，然后使用 `solve（）` 函数来求解。

```r

定义系数矩阵A和常数向量b

A <- matrix(c(3, 2, -4, 2), nrow = 2)

b <- c(3, 1)

求解方程组

solution <- solve(A, b)

输出解

print(solution)

```

3. 使用 `rootSolve` 包

`rootSolve` 包提供了 `uniroot（）`、`polyroot（）` 和 `multiroot（）` 函数，分别用于求解单个未知数、多个未知数以及带有复杂参数的多项式的根。

```r

安装并加载rootSolve包

install.packages("rootSolve")

library(rootSolve)

定义方程

f1 <- function(x) (121 - x^2)/(x^2 + 1)

f2 <- function(x) exp(-x)*(x - 12)

求解方程

solution1 <- uniroot(f1, c(0, 10))

solution2 <- uniroot(f2, c(0, 2))

输出解

print(solution1)

print(solution2)

```

4. 使用 `Ryacas` 或 `rSymPy` 包进行符号计算

对于非线性方程组，你可以使用 `optim（）` 或 `uniroot（）` 函数进行数值解法，或者使用 `Ryacas` 或 `rSymPy` 等包进行符号计算以找到精确解。

```r

安装并加载Ryacas包

install.packages("Ryacas")

library(Ryacas)

定义符号表达式

expr <- ysym("x^2 - 2")

求解方程

solution <- Solve(expr, "x")

输出解

print(solution)

```

根据你的具体需求和方程的类型，可以选择合适的方法来在R语言中解方程。对于简单的线性方程组，`solve（）` 函数通常是最直接的选择。对于非线性方程组，可能需要使用数值解法或符号计算。