Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/list/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
在r中执行多个计算的列表函数_R_List_Function_Lapply - Fatal编程技术网

在r中执行多个计算的列表函数

在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 下面的

我最近开始使用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
下面的函数提供了单个数据集的解决方案


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)