R characterをnumericに変換

Question

Rで
tmmというデータを読み込んで、
sapply(tmm, class)を行うと、
log2 fold changeという列で
"numeric"であってほしいデータが"character"なってしまいます。
tmmのCSVファイルを見ると、log2 fold changeの列に
infあるいはdecという文字列のセルが存在しています。
どうにかこの二つの文字列を数値0に変換、あるいはこの文字列を含む、行を削除したいのですが、うまくいきません。
初心者のためどうすればよいかわからず、教えていただけたら嬉しいです。

以下に今書いているスクリプトを張ります

#clean R's brain
rm(list=ls())

#libraries I need
library(ggplot2)
library(dplyr)

#Check libraries' version
packageVersion("ggplot2")
packageVersion("dplyr")

#get the data
library(readr)
tmm <- read_csv("C:/Users/R/Desktop/R/Datasets/tmm.csv")
df$"log2 fold change" <- as.numeric(df$"log2 fold change")
sapply(tmm, class)

Answer 1

tmm.csv

log2 fold change
1
2.0
inf
4.0
5.0
dec
7.0
8.0
inf
dec

dplyr

library(dplyr)
library(readr)

tmm <- read_csv("tmm.csv")
tmm <- tmm %>%
       filter(!grepl("inf|dec", `log2 fold change`)) %>%
       mutate_at(vars(`log2 fold change`), as.numeric)

print(tmm)
sapply(tmm, class)

#  A tibble: 6 × 1
#   `log2 fold change`
#                <dbl>
# 1                  1
# 2                  2
# 3                  4
# 4                  5
# 5                  7
# 6                  8
#
# log2 fold change 
#        "numeric"