将Release_Time列（19天前发布，6个月前发布等数据字符型数据）转化为19,180这样的数值型数据

可以利用正则表达式将Release_Time列中的字符型数据转换为数值型数据。具体实现步骤如下：

1. 定义一个函数，接收一个字符型数据作为参数，返回一个数值型数据。

convert_time <- function(time_str) {
  # 利用正则表达式提取数字部分
  num <- as.integer(gsub("[^0-9]", "", time_str))
  # 根据时间单位返回对应的秒数
  if (grepl("分钟", time_str)) {
    return(num * 60)
  } else if (grepl("小时", time_str)) {
    return(num * 3600)
  } else if (grepl("天", time_str)) {
    return(num * 86400)
  } else if (grepl("周", time_str)) {
    return(num * 604800)
  } else if (grepl("月", time_str)) {
    return(num * 2592000)
  } else {
    return(NA)
  }
}

该函数将字符型数据转换为秒数并返回。

2. 对Release_Time列应用该函数。

df$Release_Time <- sapply(df$Release_Time, convert_time)

利用sapply函数将convert_time函数应用于Release_Time列中的所有元素，将结果赋给Release_Time列。

这样，Release_Time列中的字符型数据就被转换为了数值型数据。