如何将p(0.10)的打印输出转换为data.frame以实现数据合并？

Got it, let's figure out how to turn that printed table from your p(0.10) function into a usable data.frame. Here are a few common approaches depending on what your function is actually doing under the hood:

1. Check if the function returns an object invisibly #

Many functions print output but also return the data invisibly. Try assigning the result to a variable first:

# Assign the function output to a variable
my_output <- p(0.10)

# Check what type of object it is
class(my_output)

# If it's a table, matrix, or similar, convert directly to data frame
if (inherits(my_output, c("table", "matrix"))) {
  my_df <- as.data.frame(my_output)
}

This is the simplest case—if the function is already generating a structured object but just printing it, this will work instantly.

2. Capture and parse the printed text #

If the function doesn't return anything (only prints), we can capture the printed text and convert it into a data frame manually. Here's a step-by-step example:

# Capture all printed output from the function
captured_text <- capture.output(p(0.10))

# Clean up the text (adjust these steps based on your table's format)
# Remove empty lines and separator lines (like those with --- or ===)
cleaned_text <- captured_text[captured_text != "" & !grepl("^[-=]+$", captured_text)]

# Split each line into columns (using whitespace as the separator)
split_lines <- strsplit(cleaned_text, "\\s+")

# Convert to a data frame
my_df <- as.data.frame(do.call(rbind, split_lines[-1]), stringsAsFactors = FALSE)

# Set column names from the first line of the cleaned text
colnames(my_df) <- split_lines[[1]]

# Convert numeric columns to actual numeric type (optional but useful)
my_df[] <- lapply(my_df, function(col) {
  if (all(grepl("^\\d+\\.?\\d*$", col))) {
    as.numeric(col)
  } else {
    col
  }
})

Note: You might need to tweak the regex patterns (like ^[-=]+$ or \\s+) to match exactly how your table is formatted. For example, if columns are separated by commas, use "," instead of \\s+ in strsplit.

3. Modify the function to return a data frame (if possible) #

If you have access to the source code of the p() function, you can modify it to return the data frame directly instead of just printing it. Look for lines where it uses print() or cat() to output the table—replace or add a line that returns the data structure before printing.

For example, if the function currently does:

p <- function(x) {
  # some calculations to create table_data
  print(table_data)
}

Change it to:

p <- function(x) {
  # some calculations to create table_data
  print(table_data)
  return(table_data) # or just table_data, since R returns the last line
}

Then you can assign the result directly to a variable and convert to data frame as needed.

Once you have your data.frame, you can use merge() or dplyr::left_join() etc. to combine it with other data sets easily.

内容的提问来源于stack exchange，提问作者Josh. D