Rでデータフレーム内のInfを除く方法

Question

a <- c(0,2,3)
b <- c(4,5,6)
c <- c(7,8,9)
d <- rbind(a,b,c)
df <- as.data.frame(d)
df.log <- log(df)

とすると
0のところが-Infになりますが、ここに0を代入したいと考えています。

ただ、

df.log[is.infinite(df.log)] <- 0

とするとis.infinite(df.log)について怒られます。
うまい回避方法はないでしょうか。

<追記>
ださい方法ならば

del_inf <- function(df, assign_value) {
  for (i in 1:length(rownames(df))) {
    for (j in 1:length(colnames(df))){
      if (is.infinite(df[i,j])) {
        df[i,j] <- assign_value
      }
    }
  }
  return(df)
}

でいけます。かっこいい書き方でいけるならばお願いします。

Answer 1

which()を使ったら1行でできました．コードは次の通りです．

df.log[which(df.log == -Inf, TRUE)] <- 0

which()で-Infになっている箇所を見つけて，その位置を0にしています．もちろん，-Infが複数あってもこれでいけます．

Comments

[thinkn1108]

ありがとうございます!!