python - 将函数应用于单个 R data.frame 列：lapply 和 apply 不起作用 - 寻找与 Python 的 DataFrame.apply(...) 等效的 R

Question

这里有 Python 编码器，但我有一些 shapefile 需要在 R 中处理，并附有数据，我需要通过对包含日期时间数据的列应用一个简单的函数来将其从当前格式转换为常规日期时间。这在 Python 中很简单，但是在 R 中使用 apply 和 lapply 时，我不断收到奇怪的错误（详见下文）。答案可能相对简单，因为我对 R 的熟悉程度远低于 Python，因此非常感谢任何帮助。

R版

# df is an R data.frame with 54 columns. The only one relevant for this
# question is df["ISSUE_DATE"], which is currently a list of 13-digit 
# integers. I need to convert it to a regular datetime.

df$ISSUE_DATE[0:5]
[1] 20011001000000 20030228000000 19990910000000 20131108000000
[5] 19970930000000

fix_date = function(x){
  string_x = toString(x)
  datestr = substr(string_x, 0, 8)
  result = as.Date(datestr, "%Y%m%d")
  return(result)
}

df$fixed_dates = lapply(df$ISSUE_DATE, fix_date)

# This returns a column with the same value - fix_date(df$ISSUE_DATE[1])
# - in every row:
df$fixed_dates[0:5]
[1] "2001-10-01" "2001-10-01" "2001-10-01" "2001-10-01"
[5] "2001-10-01"

# What I want instead is the result of fix_date applied to each value in 
# df$ISSUE_DATE as the values of df$fixed_dates:
df$fixed_dates[0:5]
[1] "2001-10-01" "2003-02-28" "1999-09-10" "2013-11-08"
[5] "1997-09-30"

这在 Python 中会是什么样子：

df["fixed_dates"] = df["ISSUE_DATE"].apply(fix_date)

标签： pythonrdataframeapplylapply

Answer 1

区分以下内容：

• df["colname"]是一列的数据框，即“colname”
• df$colname是保存“colname”数据框列内容的向量

所以你想做

df$FIXED_DATE <- fix_date(df$ISSUE_DATE)

或者

df$FIXED_DATE <- lapply(df["ISSUE_DATE"], fix_date)

前者将是惯用的方式。