使用R语言对一个13行4列的数据按照每一列依次选取3-13行进行组合求和要求显示抽取的对应的行名与求和的数值进行对应。

假设数据框的名字为df，可以使用以下代码实现所需功能：

# 创建一个空的数据框用于存储结果
result <- data.frame()

# 循环遍历每一列
for (i in 1:ncol(df)) {
  # 选取每一列的3-13行数据，并求和
  sum_values <- sum(df[3:13, i])
  
  # 获取对应列的行名
  row_names <- row.names(df)[3:13]
  
  # 将行名与求和的数值进行对应，并添加到结果数据框中
  result <- rbind(result, data.frame(row_names, sum_values))
}

# 输出结果
print(result)

请注意，上述代码中假设数据框的行名为默认的数字索引。如果数据框具有自定义的行名，需要将代码中的 row.names(df) 修改为实际的行名变量名。