R新手求助：如何将R函数运行结果导出为CSV文件？

Hey there! Let's work through fixing your code so you can save all the breakpoint years from every column in your dataset into a single CSV file—right now, your loop is overwriting the file each time, so you're only getting the last column's results.

Here's an adjusted version of your code that collects all results first, then exports them once (plus some extra safeguards for edge cases):

# Install package only once (comment out after first run!)
# install.packages('strucchange')
library(strucchange)

# Set working directory (use forward slashes / OR double backslashes \\)
setwd('C:/your/actual/path/here')  # Example: C:/Documents/R_data

# Import your dataset
HPD_NDVI_Mean <- read.csv('NDVI_Mean_100_yearly.csv')

# Create an empty data frame to store all results
breakpoint_results <- data.frame(
  Column_Name = character(),
  Breakpoint_Year = numeric(),
  stringsAsFactors = FALSE
)

# Loop through each column starting from column 2
for (i in 2:ncol(HPD_NDVI_Mean)){
  # Grab the current column's data and its name
  NDVI_Mean <- HPD_NDVI_Mean[[i]]
  current_col <- colnames(HPD_NDVI_Mean)[i]
  
  # Convert to time series object
  NDVI_Mean_ts <- ts(NDVI_Mean, frequency = 1, start = 1988, end = 2017)
  
  # Calculate breakpoints
  Mean_bp <- breakpoints(NDVI_Mean_ts ~ 1)
  
  # Extract breakpoint year(s)
  year <- breakdates(Mean_bp)
  
  # Add results to our data frame
  if(length(year) > 0){
    # Handle cases where multiple breakpoints are found
    for(y in year){
      breakpoint_results <- rbind(breakpoint_results,
                                 data.frame(Column_Name = current_col,
                                            Breakpoint_Year = y,
                                            stringsAsFactors = FALSE))
    }
  } else {
    # Add NA if no breakpoints were detected for the column
    breakpoint_results <- rbind(breakpoint_results,
                               data.frame(Column_Name = current_col,
                                          Breakpoint_Year = NA,
                                          stringsAsFactors = FALSE))
  }
}

# Export all collected results to CSV
write.csv(breakpoint_results, file = 'Mean_bd.csv', row.names = FALSE)

Key Improvements & Explanations: #

• No More Overwriting: Instead of writing to CSV in every loop iteration, we store all results in a data frame first, then export once at the end. This preserves data from every column.
• Track Column Origins: We added a Column_Name column so you can easily match each breakpoint year back to the original column in your dataset.
• Handle Edge Cases: The code accounts for columns with multiple breakpoints or no breakpoints at all (adding NA for the latter), so you don't miss any data.
• Path Fix: Fixed the working directory path note—R requires forward slashes or double backslashes for file paths (single backslashes won't work!).
• Package Best Practice: Commented out the install.packages() line since you only need to run it once, not every time you execute the script.

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