需求：将读取的Excel表格中的指定列数据类型从字符型转换为数值型。

方法1：使用read_excel函数进行数据读取，再使用mutate_if函数进行数据类型转换。

library(readxl)
library(dplyr)
      
data <- read_excel("data.xlsx", sheet = 1, col_types = "text") #读取数据

data_num <- data %>%    
  mutate_if(is.character, as.numeric)   #将数据类型为字符的列转换为数值型

head(data_num)  #查看前几条数据

方法2：使用dplyr包中的read_excel函数进行数据读取，并使用mutate函数进行数据类型转换。

library(dplyr)

data <- read_excel("data.xlsx", sheet = 1, col_types = "text") #读取数据

data_num <- data %>%    
  mutate(col1 = as.numeric(col1), col2 = as.numeric(col2)) #将列1和列2的数据类型转换为数值型

head(data_num)  #查看前几条数据

需要注意的是，使用as.numeric转换数据类型时，如果列中有缺失值或非数字的数据，转换会出现NA或NAN。因此，在进行数据类型转换之前需要先进行缺失值或异常值处理。