如何解决将函数应用于列表的所有元素以创建新列
我具有以下功能:
get_ym = function(x) {
paste0(str_replace(str_sub(deparse(substitute(x)),start= -11,end = -5),"[.]","-"),"-01")
}
应用于单个对象时,它可以正常工作,如下所示:
get_ym(device.2019.01.csv)
[1] "2019-01-01"
我想将此功能应用于本质上相同但日期不同的对象列表,例如device.2019.02.csv,device.2020.03.csv等。
当我使用lapply时,输出不是我想要的。
lapply(device_files,get_ym)
[[1]]
[1] "X[-01"
[[2]]
[1] "X[-01"
以此类推。
此外,我想使用get_ym函数在列表中的所有对象中创建新列。所以我写了
apply_ym = function(x) {
x$month = get_ym(x)
}
apply_ym(device.2020.03.csv)
但这不适用于单个对象,更不用说应用于列表了。
我在做什么错了?
编辑
device_files是这样创建的对象的列表:
device_files = list.files(pattern = "^device.2")
device_files = strsplit(device_files,split = " ")
解决方法
您编写的代码用于未加引号的变量。
get_ym(device.2019.01.csv)
[1] "2019-01-01"
传递带引号的变量时不起作用。
get_ym('device.2019.01.csv')
[1] "019-01.-01"
使用list.files
时,将输出为字符变量。因此,将您的功能更改为:
library(stringr)
get_ym = function(x) {
paste0(str_replace(str_sub(x,start= -11,end = -5),"[.]","-"),"-01")
}
并将其用作。 :
x <- c('device.2019.02.csv','device.2020.03.csv')
sapply(x,get_ym,USE.NAMES = FALSE)
#[1] "2019-02-01" "2020-03-01"
要添加新列,可以将mget
与Map
结合使用:
device_files = list.files(pattern = "^device.2")
all_data <- Map(cbind,mget(device_files),filename = sapply(device_files,get_ym))
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。