如何重排R中的复代数方程？

# 创建一个包含复代数方程的数据框
equations <- data.frame(
  equation = c("2x + 3y = 10", "3x - 2y = 5", "x + 2y = 8"),
  stringsAsFactors = FALSE
)

# 使用reorder()函数根据方程中的未知数进行排序
sorted_equations <- reorder(equations$equation, equations$equation)

# 打印排序后的方程
print(sorted_equations)

[1] "2x + 3y = 10" "3x - 2y = 5"  "x + 2y = 8"