如何使用append的after =参数将数据框插入数据框列表中的特定位置？

如何解决如何使用append的after =参数将数据框插入数据框列表中的特定位置？

说我下载一个名为econ_dmg.csv的数据集

fileUrl <- "https://raw.githubusercontent.com/MichaelSodeke/DataSets/main/econ_dmg.csv"
download.file(fileUrl,destfile="econ_dmg.csv",method = "curl",mode="wb")
df <- read_csv("econ_dmg.csv") 

然后我将元素按这样分组：

df2 <- df %>% group_by(state,max.net.loss)

接下来，我将使用以下内容转换为列表：

df3 <- group_split(df2)

说我想在此列表中添加一个随机数据框：

newDF <- data.frame(state=c("UT","UT"),evtype=c("FLASH FLOOD","WINTER STORM"),max.net.loss=c(900,900))
newDF <- as_tibble(newDF)

然后假设我想在列表df3[[20]]中的子集df3的之后添加它。我尝试了以下操作，但失败了：

df3 <- append(list(newDF),df3,after=df3[[20]][[3]])

请说明在使用after=函数中的append()参数的过程中我做错了什么。

非常感谢。

解决方法

如果我们需要向数据中添加新行，请通过提取元素rbind并更新（{}，在base R的特定位置上使用list中的[[ {1}}）在同一列表元素上

<-

,

我解决了自己的问题@Akrun。非常感谢。

假设我使用：

df3[[20]] <- bind_rows(df3[[20]],newDF)

然后我用do.call取消分组

df4 <- do.call(rbind,df3) %>% as.data.frame()

然后通过降低顺序重新排序：

df5 <- df4[order(df4$max.net.loss,decreasing=TRUE),]