如何简化R中的代码？

我有以下来自R的丑陋代码，我只想简化，这样代码更实用，占用更少的行。这只是同一个命令被反复运行

x$Avg..session.duration..seconds.<- 
as.numeric(x$Avg..session.duration..seconds.)
x$All.conv..value...cost<- as.numeric(x$All.conv..value...cost)
x$All.conv..value <- as.numeric(x$All.conv..value)
x$Interactions<- as.numeric(x$Interactions)
x$Views<- as.numeric(x$Views)
x$Total.cost<- as.numeric(x$Total.cost)
x$Avg..CPM<- as.numeric(x$Avg..CPM)
x$Cost<- as.numeric(x$Cost)
x$Impressions <- as.numeric(x$Impressions)
x$Clicks<- as.numeric(x$Clicks)
x$Bounce.rate <- as.numeric(x$Clicks)

---

x$Avg..session.duration..seconds.如果其中没有任何因素：

x[] <- lapply(x, as.numeric))

x[]如果其中没有任何因素：

x[] <- lapply(x, as.numeric))

x[]您希望遵循的一般模式是

确定需要更改的列
使用
lappy
如果只想转换字符值，可以使用

# Identify character values (all character values)
to_num <- vapply(X, is.character, logical(1))

X[to_num] <- lapply(X[to_num], as.numeric)

#识别字符值（所有字符值）
您希望遵循的一般模式是

确定需要更改的列
使用
lappy
如果只想转换字符值，可以使用

# Identify character values (all character values)
to_num <- vapply(X, is.character, logical(1))

X[to_num] <- lapply(X[to_num], as.numeric)

#识别字符值（所有字符值）
数到