[英]How do I apply a function to specific columns in a dataframe and replace the original columns?
我有一个包含医疗数据 ( my.medical.data
) 的大型 dataframe。
许多列包含日期(例如入院日期),每列的名称以“_date”结尾。
I would like to apply the lubridate::dmy()
function to the columns that contain dates and overwrite my original dataframe with the output of this function.
拥有一个可以使用任何 function 应用的通用解决方案会很棒,而不仅仅是我的dmy()
示例。
本质上,我想将以下内容应用于我的所有日期列:
my.medical.data$admission_date <- lubridate::dmy(my.medical.data$admission_date)
my.medical.data$operation_date <- lubridate::dmy(my.medical.data$operation_date)
etc.
我试过这个:
date.columns <- select(ICB, ends_with("_date"))
date.names <- names(date.columns)
date.columns <- transmute_at(my.medical.data, date.names, lubridate::dmy)
现在date.columns
包含我的日期列,采用“日期”格式,而不是原始因素。 现在我想用正确格式的新列替换my.medical.data
中的日期列。
my.medical.data.new <- full_join(x = my.medical.data, y = date.columns)
现在我得到:
错误:无法将日期 object 与不是日期 object 的 object 连接起来
我有点像 R 新手,但我怀疑有更简单的方法可以做到这一点(例如直接处理原始 dataframe),或者可能是加入/合并两个数据帧的正确方法。
像往常一样,没有示例数据集很难回答,但这应该可以完成工作:
library(dplyr)
my.medical.data <- my.medical.data %>%
mutate_at(vars(ends_with('_date')), lubridate::dmy)
这将改变以“_date”结尾的每个变量,应用 function。 它还可以应用多种功能。 请参阅?mutate_at
(这也是mutate_if
的帮助)
有几种方法可以做到这一点。
如果您处理大量数据,我认为data.table
是最好的方法(将为您带来灵活性、速度和 memory 效率)
您可以使用:=
(按引用更新运算符)与lapplỳ
一起将lubridate::ymd
应用于.SDcols
维度中定义的所有列
library(data.table)
setDT(my.medical.data)
cols_to_change <- endsWith("_date", colnames(my.medical.date))
my.medical.data[, c(cols_to_change) := lapply(.SD, lubridate::ymd), .SDcols = cols_to_change]
标准的lapply
也可以提供帮助。 你可以尝试类似的东西(我没有测试过)
my.medical.data[, cols_to_change] <- lapply(cols_to_change, function(d) lubridate::ymd(my.medical.data[,d]))
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.