下面是一个简单的R函数示例，用于将原始数据框按个体ID分割成不同的子数据框：

split_dataframe <- function(df, id_col) {
  # 'df' is the original dataframe
  # 'id_col' is the column name containing individual IDs
  
  # Group the original dataframe by ID
  grouped_data <- split(df, df[[id_col]])
  
  # Return a list of dataframes (one for each individual)
  return(grouped_data)
}

该函数将原始数据框按照给定的个体ID列拆分成不同的子数据框，并返回这些子数据框的列表。可以使用以下命令将其应用于一个数据框：

my_data <- read.csv("my_data.csv")
split_data <- split_dataframe(my_data, "individual_id")

其中，'my_data.csv”是数据文件的名称，而'individual_id”是包含个体ID的列的名称。

这个函数可以作为更复杂操作的基础，例如：根据每个个体ID的平均值计算各组的数据汇总统计量。