R代码， 将书本例2.5中数据表2.3中的数据写成纯文本文件，用函数read.table( )读该文件，然后再用write.csv( )写成一个能用Excel表打开的文件，并用Excel打开。

在R中，你可以使用`write.table()`函数将数据写入纯文本文件，然后使用`read.table()`函数读取这个文件，最后使用`write.csv()`将数据写入CSV格式以便Excel打开。假设你的数据已经存储在一个名为`data`的数据框中，书本例2.5的数据表2.3的具体内容需要你提供。

首先，将数据写入纯文本文件（这里假设文件名是"data.txt"）：

# 假设data是一个数据框，例如：
data <- data.frame(column1 = c(1, 2, 3), column2 = c('a', 'b', 'c'))

# 写入文本文件
write.table(data, "data.txt", row.names = FALSE, sep = "\t")  # tab分隔符

这里`row.names = FALSE`表示不包含行索引，`\t`表示使用制表符作为字段分隔符。

接着，读取刚才写的文本文件：

# 读取文本文件
txt_data <- read.table("data.txt", header = TRUE, sep = "\t")  # 使用同样的tab分隔符

`header = TRUE`表示第一行是列标题。

最后，将数据写入Excel兼容的CSV文件：

# 写入CSV文件
write.csv(txt_data, "data_for_excel.csv", row.names = FALSE)  # Excel可用的CSV格式

现在你已经创建了一个名为"data_for_excel.csv"的CSV文件，可以用Excel直接打开。