列表中大型整数相乘遇整数溢出NA问题及do.call适配咨询

当列表中的元素为整数类型（带L后缀），直接使用do.call(*, num)会触发整数溢出错误：

num <- list(Sweden = 167192L, Poland = 16223L)
do.call(`*`, num)
# 报错：NAs produced by integer overflow

要解决这个问题，需先将列表内的整数元素转换为数值型（numeric），再执行相乘操作，以下是两种实用方法：

方法一：lapply转换后执行do.call #

通过lapply遍历列表，将每个元素转为数值型，再传入do.call完成相乘：

num <- list(Sweden = 167192L, Poland = 16223L)
do.call(`*`, lapply(num, as.numeric))
# 输出：[1] 2712355816

方法二：Reduce结合类型转换 #

用Reduce逐个处理列表元素，同时完成类型转换与相乘操作：

num <- list(Sweden = 167192L, Poland = 16223L)
Reduce(function(x, y) as.numeric(x) * as.numeric(y), num)
# 输出：[1] 2712355816

原理说明 #

R的整数类型（integer）存在取值范围限制（约-2147483648到2147483647），当乘积超出该范围时会溢出产生NA。转换为数值型（双精度浮点数）后，取值范围远大于整数，可容纳更大的计算结果。

内容的提问来源于stack exchange，提问作者Working dollar