如何在列表中查找重复项并删除其中一个答案

【问题标题】：How to find duplicates and remove one of them in a list如何在列表中查找重复项并删除其中一个
【发布时间】：2021-05-08 07:52:43
【问题描述】：

我有一个数据框列表，其中包含一些重复项，我只想删除其中一个。我应该如何编写代码？

[[1]]
    term groups          y         data
1  value group3  -31.90134  383.4430531
2  value group3 -306.43674  308.9175450
3  value group3 -403.04776   13.3965355
4  value group3 -383.19765   33.1466333
5  value group3 -578.81867 -163.4743873
6  value group1 -404.39316   11.0511309
7  value group3  -31.90134  383.4430531

[[2]]
    term groups          y         data
1  value group3  -31.90123  383.4430531
2  value group3 -206.42674  208.9175450
3  value group3 -403.04776   12.2965256
4  value group2 -382.19765   33.1466323
5  value group2 -578.81867 -163.4743872
6  value group1 -404.29316   11.0511209
7  value group3  -31.90123  383.4430531

【问题讨论】：

没错！ - 有用！最后一个问题，然后我的整个脚本就完成了 - 我创建了一个 ggplot 列表，现在我想将每个 ggplot 保存为一个单独的文件，我的代码如下：
``` 绘图
lapply(test, unique) 完美运行
你可以保存+ggsave(filename = paste0(nm, '.png'))

标签： r

【解决方案1】：

我们用lapply 循环list 并得到unique 行

test1 <- lapply(test, unique)

关于第二种情况，如果我们有 list 中的图

names(plots) <- sub("\\.xlsx$", ".png", names(raphael_calc_sum))
lapply(names(plots), function(nm) plots[[nm]] + 
   ggsave(filename = file.path("C:/Users/Raphael/Desktop/barplot/barplot_tukey_", 
          nm )))

【讨论】：

如何更改路径和宽度？
@Raphael 你可以setwd(yourpath) 然后这样做或使用lapply(file.path(yourpath, names(raphael_calc_sum)), function(nm) ..
我想使用第二种方法，因为我想将数据存储在不同的文件夹中。不幸的是，我收到此错误： grDevices::png(..., res = dpi, units = "in") 中的错误：无法启动 png() 设备我的代码如下：lapply(file.path("C:/Users/Raphael/Desktop/barplot/barplot_tukey_", names(raphael_calc_sum)), function(nm) plots[[nm]] + ggsave( filename = paste0(nm, ".png")))
你能在函数filename = nm中显示files <- file.path("C:/Users/Raphael/Desktop/barplot/barplot_tukey_", paste0(names(raphael_calc_sum), ".png"))
是的，我现在运行它，它看起来不错：´[1] "C:/Users/Raphael/Desktop/barplot/raphael_2021_022.png" [2] "C:/Users/Raphael/Desktop /barplot/raphael_2021_023.png"`