报错原因分析 #

你遇到的unexpected else in else错误，主要是由三个语法和逻辑问题导致的：

• 括号不匹配：第二个else if的条件表达式末尾少了一个闭合括号)，R无法正确识别条件结构的边界
• else if语法错误：第三个else if的写法完全不符合R的语法规范，正确格式是else if(条件)，你写成了else if { (条件)，直接打乱了代码的结构逻辑
• 赋值逻辑错误：最后一个else分支里，你不小心把x[1]重复写成了x[2]，会导致最终排序结果出错

修正后的完整代码 #

x <- c(200, 700, 1000)
if ((x[1] > x[2]) & (x[1] > x[3])) {
  if (x[2] > x[3]) {
    ord <- c(x[1], x[2], x[3])
  } else {
    ord <- c(x[1], x[3], x[2])
  }
} else if ((x[2] > x[1]) & (x[2] > x[3])) {  # 补上缺失的闭合括号
  if (x[1] > x[3]) {
    ord <- c(x[2], x[1], x[3])
  } else {
    ord <- c(x[2], x[3], x[1])
  }
} else if (x[1] > x[2]) {  # 修正else if的语法格式
  ord <- c(x[3], x[1], x[2])
} else {
  ord <- c(x[3], x[2], x[1])  # 修正重复的x[2]，替换为x[1]
}
print(ord)

测试验证 #

运行修正后的代码，输入c(200,700,1000)会输出[1] 1000 700 200，完全符合降序排序的预期。如果需要升序排序，只需把每个分支里的向量元素顺序反转即可。

另外提个小补充：虽然作业要求必须用if-else实现，但实际R开发中排序可以直接用sort()函数更简洁高效，不过用if-else手动实现排序确实是很好的逻辑练习~

内容的提问来源于stack exchange，提问作者Saurabh Mehta