我的模式匹配和替换功能有什么问题

Question

我有一个数据框，其温度格式为 XX,X 而不是 XX.X。

我可以使用下面的代码成功更改它们...

df$tempMedian <- sub(",",".",df$tempMedian) df$tempMedian <- as.numeric(df$tempMedian)

我尝试编写以下函数来做同样的事情：

comma_to_point <- function(data, colname){ data$colname <- sub(",", ".", data$colname) data$colname <- as.numeric(data$colname) }

当我调用函数时：

comma_to_point(df, tempMedian)

我收到以下错误：

“`$tmp`, colname, value = character(0)) 中的错误： 替换有0行，数据有365"

我的数据框是 365 obs 长。

Answer 1

试一试

comma_to_point <- function(data, colname){
  data[[colname]] <- sub(",", ".", data[[colname]])
  data[[colname]] <- as.numeric(data[[colname]])
  return (data)
}
df = comma_to_point(df, "tempMedian")

当使用变量var='my_column' 来引用data.frame 中的列时，您不能使用df$var，因为R 会认为var 是列的名称。相反，您可以使用df[[var]] 获取该列。