R语言：使用xlsx包循环拆分Cost数据框导出Excel无输出问题

Hey there! Let's troubleshoot why your loop isn't generating those Excel files and get it working properly. I've dealt with similar head-scratchers before, so here's a breakdown of what might be going wrong and how to fix it:

Common Issues That Cause No Output #

First, let's rule out the usual suspects:

• Incorrect Data Filtering: Maybe your column name doesn't match exactly (check case sensitivity! Is it countries or Country in your Cost dataframe?)
• Empty Dataframes: If a country has no matching rows in Cost, xlsx might skip creating a file instead of making an empty one.
• Java Environment Issues: The xlsx package relies on rJava, so if your R isn't connected to a working Java installation, exports will fail silently.
• Wrong Working Directory: Files might be generating somewhere you're not looking—run getwd() in R to check your current folder.

Working Code Solution #

Here's a refined loop that addresses all these points. I'll walk through each part:

First, make sure you've loaded the package (and that it's installed!):

# Install if needed (run once)
# install.packages("xlsx")
library(xlsx)

Now the loop:

# Your list of target countries
countries <- c("Ireland", "Scotland", "England", "Wales", "Germany", "Italy", "Russia", "Denmark", "USA", "Spain")

# Loop through each country
for (country in countries) {
  # 1. Filter the data for the current country
  # Double-check the column name matches your dataframe exactly!
  filtered_data <- Cost[Cost$countries == country, ]
  
  # 2. Only export if there's data to save
  if (nrow(filtered_data) > 0) {
    # 3. Create a clear filename (e.g., "Cost_Ireland.xlsx")
    output_filename <- paste0("Cost_", country, ".xlsx")
    
    # 4. Export to Excel—disable row names for cleaner output
    write.xlsx(
      x = filtered_data,
      file = output_filename,
      sheetName = country,
      row.names = FALSE
    )
    
    # Optional: Print a progress message to confirm success
    cat("Exported:", output_filename, "\n")
  } else {
    # Let you know if a country has no matching data
    cat("No data found for:", country, "\n")
  }
}

Post-Run Checks #

After running the loop:

1. Check the output from the cat() messages to see which files were created.
2. Verify your working directory with getwd()—that's where the Excel files should live.
3. If you still get no output, test if rJava is working: run library(rJava) in R. If you get an error, you'll need to install a compatible Java version (match 32/64-bit with your R installation) and restart R.

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