R语言：如何实现数据框任意数量目标行的语句拼接通用化？

Got it, let's tackle this problem step by step. You want to generate a clean, grammatically correct statement no matter how many invoices match your filter (0, 1, or multiple). Here's how to do it in base R, with explanations along the way:

Step 1: Filter your data frame #

First, your initial filtering code works perfectly, but I'll also note a tidyverse alternative in case you prefer that syntax:

# Base R approach
y <- subset(x, Incidence.type == "Appro.11.Plural")

# Optional: dplyr/tidyverse approach (requires installing dplyr first)
# library(dplyr)
# y <- x %>% filter(Incidence.type == "Appro.11.Plural")

Step 2: Generate a flexible statement for any number of invoices #

We'll extract the invoice numbers first, then handle three scenarios (0 matches, 1 match, multiple matches) to keep the statement natural and grammatically correct:

# Pull the invoice numbers into a standalone vector
invoice_nums <- y$Invoice

# Build the statement based on how many invoices we have
if (length(invoice_nums) == 0) {
  Statement <- "There are no invoices with Incidence.type 'Appro.11.Plural'."
} else if (length(invoice_nums) == 1) {
  Statement <- paste("The invoice", invoice_nums, "is...")
} else {
  # Format multiple invoices as "A, B, and C" (standard English list structure)
  all_except_last <- paste(invoice_nums[-length(invoice_nums)], collapse = ", ")
  full_invoice_list <- paste(all_except_last, invoice_nums[length(invoice_nums)], sep = " and ")
  Statement <- paste("The invoices", full_invoice_list, "are...")
}

Breakdown of the logic #

• 0 invoices: We avoid empty placeholders by explicitly stating there are no matches.
• 1 invoice: Uses singular grammar ("is" instead of "are") to sound natural.
• Multiple invoices: Combines all but the final invoice with commas, then adds "and" before the last entry—this follows standard formatting for lists of items in English.

Bonus: Wrap it into a reusable function #

If you need to run this for multiple incidence types, turn the logic into a function to save time:

generate_invoice_statement <- function(df, target_incidence) {
  filtered_data <- subset(df, Incidence.type == target_incidence)
  invoice_nums <- filtered_data$Invoice
  
  if (length(invoice_nums) == 0) {
    paste("There are no invoices with Incidence.type '", target_incidence, "'.", sep = "")
  } else if (length(invoice_nums) == 1) {
    paste("The invoice", invoice_nums, "is...")
  } else {
    all_except_last <- paste(invoice_nums[-length(invoice_nums)], collapse = ", ")
    full_list <- paste(all_except_last, invoice_nums[length(invoice_nums)], sep = " and ")
    paste("The invoices", full_list, "are...")
  }
}

# Example usage
Statement <- generate_invoice_statement(x, "Appro.11.Plural")

内容的提问来源于stack exchange，提问作者Álvaro Rodríguez