从数据框R中提取行

Question

我有一个小问题。我设法从其他两个数据帧创建了数据帧，这很好，但是行太多。示例：

<?php echo get_review_title( $comment->comment_ID ); ?>

我应该只在**PL|WPLF05652203|Terytorium_nowe|F109|2017-05-14|F106|2017-09-05** PL|WPLF05652203|Terytorium_nowe|F109|2017-05-14|F106|2017-09-07 PL|WPLF05652203|Terytorium_nowe|F109|2017-05-14|F106|2017-09-11 PL|WPLF05652203|Terytorium_nowe|F109|2017-05-14|F106|2017-09-14 PL|WPLF05652203|Terytorium_nowe|F109|2017-05-14|F107|2018-03-04 PL|WPLF05652203|Terytorium_nowe|F109|2017-05-14|KB|2018-05-13 **PL|WPLF05652203|Terytorium_nowe|F106|2017-09-05|F109|2017-09-06** PL|WPLF05652203|Terytorium_nowe|F106|2017-09-05|F109|2017-09-10 PL|WPLF05652203|Terytorium_nowe|F106|2017-09-05|F109|2017-09-12 PL|WPLF05652203|Terytorium_nowe|F106|2017-09-05|F109|2017-09-17 PL|WPLF05652203|Terytorium_nowe|F106|2017-09-05|F107|2018-03-04 PL|WPLF05652203|Terytorium_nowe|F106|2017-09-05|KB|2018-05-13 **PL|WPLF05652203|Terytorium_nowe|F109|2017-09-06|F106|2017-09-07** 之间插入行。 问题是如何提取它们，我应该创建什么规则或条件，或者如何提取剩下的仅留下相关内容。创建数据的条件是

**

因此很明显，第一个日期早于第二个日期，但是我不想有那么多记录。新日期应与下一行的旧日期匹配。

感谢您的帮助。最好的问候

Answer 1

我通过消除文本中的星号并使用

从文件中读取来再现了您的情况

df <- read.table('text.txt', sep = '|')

您可以在前5列中检查唯一行。

df[which(!duplicated(df[,1:5])),]