在r中执行多个计算的列表函数
我最近开始使用R,并感谢SO社区帮助我创建了100多个类似于下面的Tibble(按分钟划分)数据在r中执行多个计算的列表函数,r,list,function,lapply,R,List,Function,Lapply,我最近开始使用R,并感谢SO社区帮助我创建了100多个类似于下面的Tibble(按分钟划分)数据 time1 pid mlat mlong malt m_时间 123:57:00 2A 434。83470.140米2357 2 23:57:00 2D 433。83530.0702米2357 3 23:57:00 3D 433。83490.0135米2357 423:57:004A 434。83640.147 m_2357 5 23:57:00 4B 433。83510.162米2357 下面的
time1 pid mlat mlong malt m_时间
123:57:00 2A 434。83470.140米2357
2 23:57:00 2D 433。83530.0702米2357
3 23:57:00 3D 433。83490.0135米2357
423:57:004A 434。83640.147 m_2357
5 23:57:00 4B 433。83510.162米2357
下面的函数提供了单个数据集的解决方案
pd无需扩展现有功能代码。只需使用lappy
直接在函数中运行数据帧/TIB列表,例如:output谢谢您的帮助。我发现你的第二个答案非常有用,因为它减少了代码,使我的项目更容易阅读。太棒了!我发现
by
是一种利用率很低但很有用的方法。快乐编码!
pd <- function(mtime){
dm <- data.frame(x=mtime$mlat,
y=mtime$mlong,
z=mtime$malt,
row.names= mtime$pid)
...
# DYNAMIC VARIABLE NAME
write.csv(e_df, paste(mtime$m_time[1], ".csv")
# RETURN ACTUAL DATA FRAME
return(e_df)
}
new_df_list <- lapply(mylist, pd)
new_df_list <- by(my_master_data_frame, my_master_data_frame$m_time, pd)