下面是一个示例代码，可以将多个样本分开，并为分析添加两个标题行：

# 创建示例数据，包含3个样本，每个样本有2列
sample1 <- data.frame(A = c(1, 2, 3), B = c(4, 5, 6))
sample2 <- data.frame(A = c(7, 8, 9), B = c(10, 11, 12))
sample3 <- data.frame(A = c(13, 14, 15), B = c(16, 17, 18))

# 将样本放入一个列表中
samples <- list(sample1, sample2, sample3)

# 创建标题行
title1 <- c("Sample1", "Sample1", "Sample2", "Sample2", "Sample3", "Sample3")
title2 <- c("Column1", "Column2", "Column1", "Column2", "Column1", "Column2")

# 将样本和标题行合并为一个数据框
data <- do.call(rbind, samples)
data <- rbind(title1, title2, data)

# 打印结果
print(data)

这段代码首先创建了3个样本，每个样本有2列数据。然后将这些样本放入一个列表中。接下来，创建了两个标题行，分别为每个样本的名称和每列数据的名称。最后，使用do.call和rbind函数将样本和标题行合并为一个数据框，并将结果打印出来。