如何将R语言中两个获取股票行情数据的函数合并为一个？

当然可以合并，而且合并后还能避免重复调用quantmod::getQuote()，提升效率。直接写一个函数一次性获取需要的两个字段即可：

ticker <- c("AAPL", "TSLA")

get_stock_info <- function(ticker) {
  # 仅调用一次getQuote，减少重复请求
  stock_data <- quantmod::getQuote(ticker)
  # 提取并返回需要的字段列
  stock_data[, c("Last", "Trade Time")]
}

调用该函数的输出示例：

> get_stock_info(ticker)
           Last           Trade Time
AAPL 131.57 2022-12-22 11:33:56 EST
TSLA 128.91 2022-12-22 11:33:57 EST

如果更偏好列表格式的返回结果，也可以调整函数逻辑：

get_stock_info_list <- function(ticker) {
  stock_data <- quantmod::getQuote(ticker)
  list(
    quote = stock_data$Last,
    trade_time = stock_data$`Trade Time`
  )
}

对应的调用结果：

> get_stock_info_list(ticker)
$quote
[1] 131.57 128.91

$trade_time
[1] "2022-12-22 11:33:56 EST" "2022-12-22 11:33:57 EST"

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