在循环中添加熔化函数，生成具有R的子集

Question

您认为我可以在此循环中添加融合功能吗？

for (i in unique(df$year))

    {dfnames<- paste("df",i, sep = "_")
    assign(dfnames, df[df$year==i,])}

我只想重塑我使用该循环生成的所有子集。如果可能的话，我想在循环中添加此命令：

melt(df_i, id.vars = c("Company_name","year","ID","Status"),na.rm=F)