R 不含inf的合计

想知道是否有人有聚合和排除Inf值的解决方案。比如说

df <- data.frame(Id = c(1:9),
         Fact = c("A", "A", "A", "B", "B", "B", "C", "C", "C"),
         Values = c(10, 5, 14, 3, 1, 10/0, 7, 11, 22))

---

df使用匿名函数，条件为
x
：

aggregate(Values ~ Fact, df, function(x) max(x[x < Inf], na.rm = TRUE))
#   Fact Values
# 1    A     14
# 2    B      3
# 3    C     22

aggregate（值~Fact、df、函数（x）max（x[x

或在聚合之前删除这些行：

aggregate(Values ~ Fact, df[df$Values < Inf, ], max, na.rm = TRUE)
#   Fact Values
# 1    A     14
# 2    B      3
# 3    C     22

aggregate（Values~Fact，df[df$Values
使用匿名函数，条件为
x
：

aggregate(Values ~ Fact, df, function(x) max(x[x < Inf], na.rm = TRUE))
#   Fact Values
# 1    A     14
# 2    B      3
# 3    C     22

aggregate（值~Fact、df、函数（x）max（x[x

或在聚合之前删除这些行：

aggregate(Values ~ Fact, df[df$Values < Inf, ], max, na.rm = TRUE)
#   Fact Values
# 1    A     14
# 2    B      3
# 3    C     22

aggregate（Values~Fact，df[df$Values