{"id":3478,"date":"2023-07-17T07:04:18","date_gmt":"2023-07-17T07:04:18","guid":{"rendered":"https:\/\/statorials.org\/cn\/dplyr-%e6%9f%a5%e6%89%be%e9%87%8d%e5%a4%8d%e9%a1%b9\/"},"modified":"2023-07-17T07:04:18","modified_gmt":"2023-07-17T07:04:18","slug":"dplyr-%e6%9f%a5%e6%89%be%e9%87%8d%e5%a4%8d%e9%a1%b9","status":"publish","type":"post","link":"https:\/\/statorials.org\/cn\/dplyr-%e6%9f%a5%e6%89%be%e9%87%8d%e5%a4%8d%e9%a1%b9\/","title":{"rendered":"\u5982\u4f55\u4f7f\u7528 dplyr \u67e5\u627e\u91cd\u590d\u5143\u7d20"},"content":{"rendered":"

<\/p>\n

\n

\u60a8\u53ef\u4ee5\u4f7f\u7528\u4ee5\u4e0b\u65b9\u6cd5\u4f7f\u7528 dplyr \u67e5\u627e\u6570\u636e\u6846\u4e2d\u7684\u91cd\u590d\u5143\u7d20\uff1a<\/span><\/p>\n

\u65b9\u6cd5 1\uff1a\u663e\u793a\u6240\u6709\u91cd\u590d\u884c<\/strong><\/span><\/p>\n

 library<\/span> (dplyr)\n\n#display all duplicate rows\n<\/span>df %>%\n  group_by_all() %>%\n  filter(n()> 1<\/span> ) %>%\n  A group()<\/strong><\/pre>\n
\u65b9\u6cd5 2\uff1a\u663e\u793a\u6240\u6709\u91cd\u590d\u884c\u7684\u91cd\u590d\u9879\u6570<\/strong><\/span><\/p>\n
 library<\/span> (dplyr)<\/span>\n\n#display duplicate count for all duplicated rows\n<\/span>df %>%\n  add_count(col1, col2, col3) %>%\n  filter(n> 1<\/span> ) %>%\n  distinct()\n<\/span><\/span><\/strong><\/pre>\n
\u672c\u6559\u7a0b\u901a\u8fc7\u4ee5\u4e0b\u6570\u636e\u6846\u89e3\u91ca\u4e86\u5982\u4f55\u5728\u5b9e\u8df5\u4e2d\u4f7f\u7528\u6bcf\u79cd\u65b9\u6cd5\uff1a<\/span><\/p>\n
 #create data frame\n<\/span>df <- data. frame<\/span> (team=c('A', 'A', 'A', 'A', 'B', 'B', 'B', 'B'),\n                 position=c('G', 'G', 'F', 'F', 'G', 'G', 'F', 'F'),\n                 points=c(10, 10, 8, 14, 15, 15, 17, 17))\n\n#view data frame\n<\/span>df\n\n  team position points\n1 AG 10\n2 AG 10\n3AF 8\n4 AF 14\n5 BG 15\n6 BG 15\n7 BF 17\n8 BF 17\n<\/strong><\/span><\/pre>\n
\u793a\u4f8b 1\uff1a\u663e\u793a\u6240\u6709\u91cd\u590d\u884c<\/strong><\/span><\/h2>\n
\u4ee5\u4e0b\u4ee3\u7801\u663e\u793a\u5982\u4f55\u663e\u793a\u6570\u636e\u6846\u4e2d\u7684\u6240\u6709\u91cd\u590d\u884c\uff1a<\/span><\/p>\n
 library<\/span> (dplyr)<\/span>\n\n#display all duplicate rows in data frame\ndf %>%\n  group_by_all() %>%\n  filter(n()> 1<\/span> ) %>%\n  A group()\n\n# A tibble: 6 x 3\n  team position points\n        \n1 AG 10\n2 AG 10\n3 BG 15\n4 BG 15\n5 BF 17\n6 BF 17<\/span><\/span><\/strong><\/pre>\n
\u7ed3\u679c\u662f\u4e00\u4e2a\u5305\u542b 6 \u884c\u7684\u6570\u636e\u5e27\uff0c\u6bcf\u884c\u90fd\u662f\u91cd\u590d\u884c\u3002<\/span><\/p>\n
\u6ce8\u610f<\/strong>\uff1a\u5982\u679c\u60a8\u53ea\u60f3\u77e5\u9053\u54ea\u4e9b\u884c\u5728\u7279\u5b9a\u5217\u4e2d\u5177\u6709\u91cd\u590d\u503c\uff0c\u5219\u53ef\u4ee5\u4f7f\u7528\u7c7b\u4f3cgroup_by(team)<\/strong>\u4e4b\u7c7b\u7684\u65b9\u6cd5\u6765\u4ec5\u67e5\u627e\u5728team<\/strong>\u5217\u4e2d\u5177\u6709\u91cd\u590d\u503c\u7684\u884c\u3002<\/span><\/p>\n
\u793a\u4f8b 2\uff1a\u663e\u793a\u6240\u6709\u91cd\u590d\u884c\u7684\u91cd\u590d\u9879\u6570<\/strong><\/span><\/h2>\n
\u4ee5\u4e0b\u4ee3\u7801\u663e\u793a\u5982\u4f55\u663e\u793a\u6570\u636e\u6846\u4e2d\u6240\u6709\u91cd\u590d\u884c\u7684\u91cd\u590d\u8ba1\u6570\uff1a<\/span><\/p>\n
 library<\/span> (dplyr)\n\n#display duplicate count for each row\n<\/span>df %>%\n  add_count(team, position, points) %>%\n  filter(n> 1<\/span> ) %>%\n  distinct()\n\n  team position points n\n1 GA 10 2\n2 BG 15 2\n3 BF 17 2<\/strong><\/span><\/pre>\n
\u7b2cn<\/strong>\u5217\u663e\u793a\u6bcf\u884c\u7684\u91cd\u590d\u9879\u603b\u6570\u3002<\/span><\/span><\/p>\n
\u4f8b\u5982\uff1a<\/span><\/p>\n