如何将pair(1L,2L)转为pair(1,2)？R语言循环输出问题求助

嘿，我来帮你搞定这个小问题！

首先得搞清楚为什么会出现L后缀：R里1:4生成的是**整数类型（integer）**的向量，当你把这些整数传入pair()函数时，生成的数对元素会保留整数类型，R在打印整数时就会加上L来标记它不是普通的数值型（numeric）。

接下来给你几种简单的解决方法，选哪种都可以：

方法1：把循环变量转成数值型 #

在调用pair()的时候，用as.numeric()把i和j转成数值型，这样生成的数对元素就不带L了：

for (i in 1:4) { 
  for (j in 1:4) { 
    print(pair(as.numeric(i), as.numeric(j)))
  } 
}

方法2：直接生成数值型的序列 #

把循环里的1:4换成数值型的序列，比如用as.numeric(1:4)或者seq(1,4)，这样循环变量本身就是数值型：

for (i in as.numeric(1:4)) { 
  for (j in as.numeric(1:4)) { 
    print(pair(i,j))
  } 
}

方法3：自定义pair函数（如果是你自己写的） #

如果pair是你自定义的函数，可以在函数内部直接把参数转成数值型，一劳永逸：

pair <- function(a, b) {
  # 把输入转成数值型再返回
  list(as.numeric(a), as.numeric(b))
}

# 之后正常用循环就行
for (i in 1:4) { 
  for (j in 1:4) { 
    print(pair(i,j))
  } 
}

方法4：只修改输出格式（不改变数据类型） #

如果你不想改变数据本身的类型，只是打印的时候去掉L，可以写个自定义的打印函数：

# 自定义打印函数
print_clean_pair <- function(pair_obj) {
  cat(sprintf("(%s,%s)\n", pair_obj[[1]], pair_obj[[2]]))
}

# 循环里用这个函数代替print
for (i in 1:4) { 
  for (j in 1:4) { 
    print_clean_pair(pair(i,j))
  } 
}

这样就能得到你想要的(1,1)、(1,2)这类不带L的输出啦！

内容的提问来源于stack exchange，提问作者ahmad alanaqreh