通过变量中的单独值在数据帧上应用长代码

Question

能给我一个提示，我该如何处理问题： 我有一个数据集，我想应用一个长代码（包含循环和内容）... 如何编写for循环，以子集（例如，按我在数据集中具有的city变量）分别遍历代码，然后按city保存结果。 谢谢！

我已经尝试了以下方法，但是没有用

    library(dplyr)
    library(purr)
    cities <- unique(df$city)
    my_function <- function(df){
    ## wrap your entire code here
    }
    map_df(cities, function(df, cityname){
    df %>%
    filter(city == cityname) %>%
    my_function()%>%
    write.csv(paste0(cityname, ".csv"))
    }
    )

filter_impl（.data，quo）中的错误： 结果的长度必须为9059907，而不是49

我的df包含9059907个观测值，而我的'city'角色包含49个