R语言使用cat函数按条件打印数据框行输出格式不符合预期问题

问题原因 #

• 你在匿名函数中传入的x是按行读取的长度为2的向量，paste0("(", x ,")\n")会向量化执行，对向量内的两个元素分别拼接括号，才会出现x、y各自被放在独立括号里的问题。
• else分支你只填充了1个空格，和预期的3个空格的空括号格式不符。

修复代码 #

你可以指定取行内的两个元素分别拼接，就能得到正确格式：

apply(result, 1, function(row) {
  if (row[1] < row[2]) {
    cat(paste0("(", row[1], ", ", row[2], ")\n"))
  } else {
    cat("(   )\n")
  }
})

如果要更简洁的写法，也可以用paste的collapse参数把行内两个元素拼成单个字符串再处理：

apply(result, 1, function(row) {
  cat(ifelse(row[1] < row[2], paste0("(", paste(row, collapse = ", "), ")"), "(   )"), "\n", sep = "")
})

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