R语言矩阵乘法%*%对S3类对象方法调度失效问题咨询

• R 内置的%*%属于内部原语函数，本身默认既不是S3泛型也不是S4泛型，它内部硬编码了参数校验逻辑：运行时会优先检查输入是否为数值/复数类型的矩阵或向量，不符合就直接抛出错误，根本不会触发后续的自定义方法调度。
• 你使用setOldClass+setMethod是S4体系的方法注册方式，直接对原生%*%注册方法时，即便R会隐式将其转换为S4泛型，该泛型的调度优先级也远低于内部原语的硬校验逻辑，你写的自定义方法完全不会被执行。

推荐直接通过定义S3泛型的方式适配，不会影响原生%*%对常规矩阵、向量的运算逻辑，示例代码如下：

# 显式声明%*%为S3泛型
`%*%` <- function(x, y) UseMethod("%*%")
# 定义默认回退方法，调用原生%*%逻辑
`%*%.default` <- function(x, y) base::`%*%`(x, y)
# 为foo类实现自定义方法
`%*%.foo` <- function(x, y) "foo-foo"

# 测试
x <- structure(list(), class = "foo")
y <- structure(list(), class = "foo")
x %*% y
# 输出：[1] "foo-foo"

如果你需要继续使用S4体系实现，只要先显式调用setGeneric("%*%")将其注册为S4泛型，再用你原来的setMethod逻辑注册方法即可正常运行。

内容的提问来源于stack exchange，提问作者t-kalinowski