{"id":4159,"date":"2023-07-13T05:07:27","date_gmt":"2023-07-13T05:07:27","guid":{"rendered":"https:\/\/statorials.org\/cn\/%e6%af%94%e8%be%83-r-%e4%b8%ad%e7%9a%84%e4%b8%89%e5%88%97\/"},"modified":"2023-07-13T05:07:27","modified_gmt":"2023-07-13T05:07:27","slug":"%e6%af%94%e8%be%83-r-%e4%b8%ad%e7%9a%84%e4%b8%89%e5%88%97","status":"publish","type":"post","link":"https:\/\/statorials.org\/cn\/%e6%af%94%e8%be%83-r-%e4%b8%ad%e7%9a%84%e4%b8%89%e5%88%97\/","title":{"rendered":"\u5982\u4f55\u6bd4\u8f83 r \u4e2d\u7684\u4e09\u5217\uff08\u9644\u793a\u4f8b\uff09"},"content":{"rendered":"

<\/p>\n

\n

\u60a8\u53ef\u4ee5\u4f7f\u7528\u4ee5\u4e0b\u57fa\u672c\u8bed\u6cd5\u6765\u6bd4\u8f83 R \u4e2d\u4e09\u5217\u7684\u503c\uff1a<\/span><\/p>\n

 df$all_matching <- df$A ==<\/span> df$B & df$B ==<\/span> df$C\n<\/strong><\/pre>\n
\u6b64\u8bed\u6cd5\u521b\u5efa\u4e00\u4e2a\u540d\u4e3aall_matching<\/strong>\u7684\u65b0\u5217\uff0c\u5982\u679c\u6240\u6709\u5217\u90fd\u6709\u5339\u914d\u503c\uff0c\u5219\u8fd4\u56deTRUE<\/b> \uff0c\u5426\u5219\u8fd4\u56deFALSE<\/strong> \u3002<\/span><\/p>\n
\u4ee5\u4e0b\u793a\u4f8b\u5c55\u793a\u4e86\u5982\u4f55\u5728\u5b9e\u8df5\u4e2d\u4f7f\u7528\u6b64\u8bed\u6cd5\u3002<\/span><\/p>\n
\u793a\u4f8b\uff1a\u6bd4\u8f83 R \u4e2d\u7684\u4e09\u5217<\/strong><\/span><\/h2>\n
\u5047\u8bbe\u6211\u4eec\u5728 R \u4e2d\u6709\u4ee5\u4e0b\u5305\u542b\u4e09\u5217\u7684\u6570\u636e\u6846\uff1a<\/span><\/p>\n
 #create data frame\n<\/span>df <- data. frame<\/span> (A=c(4, 0, 3, 3, 6, 8, 7, 9, 12),\n                 B=c(4, 2, 3, 5, 6, 4, 7, 7, 12),\n                 C=c(4, 0, 3, 5, 5, 10, 7, 9, 12))\n\n#view data frame\n<\/span>df\n\n   ABC\n1 4 4 4\n2 0 2 0\n3 3 3 3\n4 3 5 5\n5 6 6 5\n6 8 4 10\n7 7 7 7\n8 9 7 9\n9 12 12 12\n<\/strong><\/pre>\n
\u6211\u4eec\u53ef\u4ee5\u4f7f\u7528\u4ee5\u4e0b\u4ee3\u7801\u521b\u5efa\u4e00\u4e2a\u540d\u4e3aall_matching<\/strong>\u7684\u65b0\u5217\uff0c\u5982\u679c\u7ed9\u5b9a\u884c\u4e2d\u6240\u6709\u4e09\u5217\u90fd\u5339\u914d\uff0c\u5219\u8fd4\u56deTRUE<\/b> \uff0c\u5982\u679c\u4e0d\u5339\u914d\uff0c\u5219\u8fd4\u56deFALSE<\/b> \uff1a<\/span><\/p>\n
 #create new column that checks if values in all three columns match<\/span>\ndf$all_matching <- df$A ==<\/span> df$B & df$B ==<\/span> df$C\n\n#view updated data frame<\/span>\ndf\n\n   ABC all_matching\n1 4 4 4 TRUE\n2 0 2 0 FALSE\n3 3 3 3 TRUE\n4 3 5 5 FALSE\n5 6 6 5 FALSE\n6 8 4 10 FALSE\n7 7 7 7 TRUE\n8 9 7 9 FALSE\n9 12 12 12 TRUE\n<\/strong><\/pre>\n
\u540d\u4e3aall_matching<\/strong>\u7684\u65b0\u5217\u6307\u793a\u7ed9\u5b9a\u884c\u4e2d\u4e09\u5217\u4e2d\u7684\u503c\u662f\u5426\u5339\u914d\u3002<\/span><\/p>\n
\u4f8b\u5982\uff1a<\/span><\/p>\n