交互式選擇數據框的多行

Question

我有一個數據框，其中包含一些必需的行和一些不必要的行。 我希望用戶能夠通過使用彈出界面來確定應刪除哪些行。

我可以單行執行此操作：

df=data.frame(col1=letters[1:10],col2=1:10)

rm=menu(apply(df,1,paste,collapse="  "),graphics=TRUE)

df=df[!rownames(df) %in% rm,];df

但是不能將此擴展到多行。

我也想聽聽是否有完全不同的解決方案。

Answer 1

使用select.list而不是菜單

rm=select.list(apply(df,1,paste,collapse="  "),graphics=TRUE,multiple=T)

輸出並不完全相同，但是您可以選擇多個（使用ctr +單擊）