如何在R语言中将函数输出转换为单行向量

问题根源 #

你的代码里new.function只是在循环中逐个打印计算值，没有返回结果集合，后续的unlist和print(v)实际上拿不到有效数据，最终输出的是四次单独打印的结果加上NULL。要实现单行向量输出，需要让函数返回完整的结果向量，再统一输出。

修改后的代码 #

# 读取输入并统一转为整数
xmin = as.integer(readline("Input the left boundary of the period: "))
xmax = as.integer(readline("Input the right boundary of the period: "))
step = as.integer(readline("Input the step of the sequence: "))

new.function = function(xmin, xmax, step) {
  # 初始化空向量存储结果
  result <- c()
  while (xmin <= xmax) {
    # 计算y值
    y = 5 + log(xmin) * exp(xmin) * xmin - (1.5 / xmin)
    # 将y追加到结果向量
    result <- c(result, y)
    # 更新xmin
    xmin = xmin + step
  }
  # 返回结果向量
  return(result)
}

# 调用函数获取结果
v <- new.function(xmin, xmax, step)

# 方式1：输出R默认的向量格式（带[1]前缀）
print(v)

# 方式2：输出纯逗号分隔的单行文本（完全匹配示例格式）
# cat(paste(v, collapse = ", "), "\n")

效果说明 #

当输入左边界1、右边界4、步长1时：

• 用print(v)会输出：[1] 3.50000 14.49341 70.69865 307.38140
• 用注释里的cat语句会输出：3.5, 14.49341, 70.69865, 307.3814

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