如何在R中提取mbir::swc_ind()输出的趋势线MBI汇总数据？

由于mbir::swc_ind()默认仅将结果打印到控制台，不直接返回目标表格数据，我们可以通过捕获控制台输出并解析文本的方式提取数据，具体步骤如下：

步骤1：捕获函数的控制台输出 #

使用capture.output()将swc_ind()打印的所有内容保存为字符向量：

df <- c(97.5, 99.9, 100.2, 101.1, 101.3, 99.8)
# 捕获控制台输出
output <- capture.output(mbir::swc_ind(x = df, swc = 0.25, ts = 0.2, type = "trend"))

步骤2：定位并提取表格行 #

通过字符串匹配找到“MBI From Trend Line:”所在行，提取其下方的表头和数据行：

# 定位目标标记行的索引
start_idx <- which(grepl("MBI From Trend Line:", output))
# 提取表头及数据行（跳过标记行后的空行）
table_content <- output[(start_idx + 2):length(output)]

步骤3：转换为数据框 #

利用read.table()直接解析文本格式的表格内容，自动处理空格分隔的列：

# 将文本转换为数据框
mbi_trend_df <- read.table(
  text = paste(table_content, collapse = "\n"),
  header = TRUE,
  stringsAsFactors = FALSE
)

验证结果 #

运行print(mbi_trend_df)即可查看转换后的结构化数据框：

print(mbi_trend_df)
#   Point  Diff  N  T  P                  MBI
# 1     1  -1.3 88  7  5         Likely Lower
# 2     2   0.6 26 12 62                  ---
# 3     3   0.5 30 13 57                  ---
# 4     4   0.9 21 11 68                  ---
# 5     5   0.6 26 13 61                  ---
# 6     6  -1.4 90  5  5    Very Likely Lower

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