R语言读入数据 data.txt， 以第一列为行名，并运用算术运算符产生数据框新变量 sum（分薮总和）和average（平均分）

在R语言中，首先我们需要读取名为"data.txt"的文本文件，这个文件应该是一列数据，每一行为一行。我们可以使用`read.table()`或`read_delim()`（来自`tidyverse`包）函数来读取这种格式的数据：

# 使用read.table()读取数据
data <- read.table("data.txt", header = FALSE, comment.char = "", stringsAsFactors = FALSE)

# 或者使用tidyverse包的read_delim()
# data <- read_delim("data.txt", "\t") # 如果数据是以制表符分隔的
# data <- read_delim("data.txt", ",")   # 如果数据是以逗号分隔的

这里的`header = FALSE`表示我们不提供列名，`comment.char = ""`表示不识别任何字符作为注释，`stringsAsFactors = FALSE`防止将所有非数字视为因子。

接着，为了根据数据生成sum（总和）和average（平均值）的新变量，假设第一列是我们要操作数值的列，我们可以这样做：

# 假设第一列是数值列
numeric_col <- data[,1]

# 求总和（sum）
data$sum <- rowSums(numeric_col)

# 求平均值（average）
data$average <- apply(numeric_col, 1, mean)

`rowSums()`用于对每一行求和，`apply(numeric_col, 1, mean)`则对每一行应用mean函数得到平均值，`1`表示沿行操作。

如果你的数据不是连续的数值，而是包含NA值，上述操作前最好先清理或处理缺失值。