不使用dplyr等扩展包 如何在R中按值降序排列变量并输出

所有实现仅用R原生基础函数，无需引入任何第三方扩展包：

实现代码 #

# 你的原始计算逻辑
apples = sum(1+1)  
oranges = sum(1+3)   
kiwis = sum(1+2)  
grapes = sum(1+5)  
banana = sum(1+4) 

# 1. 构造命名数值向量，关联变量名和计算结果
fruit_vec <- c(
  apples = apples,
  oranges = oranges,
  kiwis = kiwis,
  grapes = grapes,
  banana = banana
)

# 2. 按数值降序排序
sorted_vec <- sort(fruit_vec, decreasing = TRUE)

# 3. 拼接为要求的字符串格式并输出
result <- paste(names(sorted_vec), sorted_vec, sep = " = ", collapse = ", ")
cat(result)

运行后直接输出：grapes = 6, banana = 5, oranges = 4, kiwis = 3, apples = 2，完全匹配要求的格式。

大批量变量场景优化 #

如果需要处理的变量数量很多，手动构造命名向量效率低，可以用批量抓取变量的方式实现，逻辑完全一致：

# 先列出所有需要处理的变量名
target_vars <- c("apples", "oranges", "kiwis", "grapes", "banana")
# 批量获取变量值构造命名向量
fruit_vec <- sapply(target_vars, get)

# 后续排序、拼接逻辑和上面完全相同
sorted_vec <- sort(fruit_vec, decreasing = TRUE)
result <- paste(names(sorted_vec), sorted_vec, sep = " = ", collapse = ", ")
cat(result)

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