{"id":2985,"date":"2023-07-19T18:55:18","date_gmt":"2023-07-19T18:55:18","guid":{"rendered":"https:\/\/statorials.org\/cn\/%e6%89%80%e6%9c%89%e4%bb%bb%e4%bd%95-r-%e5%87%bd%e6%95%b0\/"},"modified":"2023-07-19T18:55:18","modified_gmt":"2023-07-19T18:55:18","slug":"%e6%89%80%e6%9c%89%e4%bb%bb%e4%bd%95-r-%e5%87%bd%e6%95%b0","status":"publish","type":"post","link":"https:\/\/statorials.org\/cn\/%e6%89%80%e6%9c%89%e4%bb%bb%e4%bd%95-r-%e5%87%bd%e6%95%b0\/","title":{"rendered":"\u5982\u4f55\u5728 r \u4e2d\u4f7f\u7528 all() \u548c any() \u51fd\u6570\uff08\u9644\u793a\u4f8b\uff09"},"content":{"rendered":"

<\/p>\n

\n

R \u4e2d\u7684all()<\/strong>\u548cany()<\/strong>\u51fd\u6570\u53ef\u7528\u4e8e\u68c0\u67e5\u8868\u8fbe\u5f0f\u4e2d\u5411\u91cf\u4e2d\u7684\u6240\u6709\u6216\u67d0\u4e9b\u503c\u662f\u5426\u8ba1\u7b97\u4e3a TRUE\u3002<\/span><\/p>\n

\u8fd9\u4e9b\u51fd\u6570\u4f7f\u7528\u4ee5\u4e0b\u8bed\u6cd5\uff1a<\/span><\/p>\n

 #check if all<\/em> values in x are less than 10<\/span>\nall(x < 10)\n\n#check if any<\/em> values in x are less than 10<\/span>\nany(x < 10)\n<\/strong><\/span><\/pre>\n
\u4ee5\u4e0b\u793a\u4f8b\u5c55\u793a\u4e86\u5982\u4f55\u5728\u5b9e\u8df5\u4e2d\u4f7f\u7528\u6bcf\u4e2a\u529f\u80fd\u3002<\/span><\/p>\n
\u793a\u4f8b 1\uff1a\u5c06 all() \u548c any() \u4e0e Vector \u4e00\u8d77\u4f7f\u7528<\/span><\/strong><\/h3>\n
\u6211\u4eec\u53ef\u4ee5\u4f7f\u7528\u4ee5\u4e0ball()<\/strong>\u548cany()<\/strong>\u51fd\u6570\u6765\u68c0\u67e5\u5411\u91cf\u4e2d\u7684\u90e8\u5206\u6216\u5168\u90e8\u503c\u662f\u5426\u5c0f\u4e8e 10\uff1a<\/span><\/p>\n
 #define vector of data values\ndata <- c(3, 4, 4, 8, 12, 15)\n<\/span>\n#check if all values are less than 10\nall(data < 10)\n\n[1] FALSE\n<\/span>\n#check if any values are less than 10\nany(data < 10)\n\n[1] TRUE\n<\/span><\/span><\/strong><\/span><\/pre>\n
 all()<\/strong>\u51fd\u6570\u7684\u8ba1\u7b97\u7ed3\u679c\u4e3aFALSE<\/strong> \uff0c\u56e0\u4e3a\u5411\u91cf\u4e2d\u7684\u6240\u6709\u503c\u5747\u4e0d\u5c0f\u4e8e 10\u3002<\/span><\/span><\/p>\n
 any()<\/strong>\u51fd\u6570\u7684\u8ba1\u7b97\u7ed3\u679c\u4e3aTRUE<\/strong> \uff0c\u56e0\u4e3a\u5411\u91cf\u4e2d\u81f3\u5c11\u6709\u4e00\u4e2a\u503c\u5c0f\u4e8e 10\u3002<\/span><\/p>\n
\u793a\u4f8b 2\uff1a\u5c06 all() \u4e0e NA \u503c\u4e00\u8d77\u4f7f\u7528<\/span><\/strong><\/h3>\n
\u5982\u679c\u6211\u4eec\u5c06all()<\/strong>\u51fd\u6570\u4e0e\u5177\u6709 NA \u503c\u7684\u5411\u91cf\u4e00\u8d77\u4f7f\u7528\uff0c\u6211\u4eec\u53ef\u4ee5\u6536\u5230NA<\/strong>\u7ed3\u679c\uff1a<\/span><\/p>\n
 #define vector of data values with some NA values\ndata <- c(3, 4, 4, 8, NA, NA)\n<\/span>\n#check if all values are less than 10\nall(data < 10)<\/span>\n\n[1] NA\n<\/span><\/span><\/strong><\/span><\/pre>\n
\u4e3a\u4e86\u907f\u514d\u8fd9\u79cd\u60c5\u51b5\uff0c\u6211\u4eec\u9700\u8981\u6307\u5b9ana.rm=TRUE<\/strong>\u6765\u9996\u5148\u4ece\u5411\u91cf\u4e2d\u5220\u9664 NA \u503c\uff0c\u7136\u540e\u518d\u68c0\u67e5\u6240\u6709\u503c\u662f\u5426\u6ee1\u8db3\u6761\u4ef6\uff1a<\/span><\/span><\/p>\n
 #define vector of data values with some NA values\ndata <- c(3, 4, 4, 8, NA, NA)\n<\/span>\n#check if all values are less than 10 (and ignore NA values)\nall(data < 10, na. rm<\/span> = TRUE<\/span> )\n\n[1] TRUE\n<\/span><\/span><\/strong><\/span><\/pre>\n
 all()<\/strong>\u51fd\u6570\u73b0\u5728\u7684\u8ba1\u7b97\u7ed3\u679c\u4e3aTRUE<\/strong> \uff0c\u56e0\u4e3a\u5047\u8bbe\u6211\u4eec\u5ffd\u7565 NA \u503c\uff0c\u5411\u91cf\u4e2d\u7684\u6bcf\u4e2a\u503c\u90fd\u5c0f\u4e8e 10\u3002<\/span><\/p>\n
\u793a\u4f8b 3\uff1a\u5c06 all() \u548c any() \u4e0e\u6570\u636e\u6846\u5217\u4e00\u8d77\u4f7f\u7528<\/span><\/strong><\/h3>\n
\u6211\u4eec\u8fd8\u53ef\u4ee5\u4f7f\u7528all()<\/strong>\u548cany()<\/strong>\u51fd\u6570\u6765\u8ba1\u7b97\u6570\u636e\u6846\u5217\u7684\u8868\u8fbe\u5f0f\u3002<\/span><\/span><\/p>\n
\u4f8b\u5982\uff0c\u5047\u8bbe\u6211\u4eec\u5728 R \u4e2d\u6709\u4ee5\u4e0b\u6570\u636e\u6846\uff1a<\/span><\/p>\n
 #define data frame\ndf <- data. frame<\/span> (points=c(30, 22, 19, 20, 14, NA),\n                 assists=c(7, 8, 13, 13, 10, 6),\n                 rebounds=c(8, 12, NA, NA, 5, 8))<\/span>\n\n#view data frame\ndf\n\n  points assists rebounds\n1 30 7 8\n2 22 8 12\n3 19 13 NA\n4 20 13 NA\n5 14 10 5\n6 NA 6 8<\/span><\/span><\/strong><\/span><\/pre>\n
\u6211\u4eec\u53ef\u4ee5\u4f7f\u7528all()<\/strong>\u548cany()<\/strong>\u51fd\u6570\u6765\u8ba1\u7b97\u201cbounces\u201d\u5217\u4e2d\u503c\u7684\u4e0d\u540c\u8868\u8fbe\u5f0f\uff1a<\/span><\/p>\n
 #check if all values are less than 10 in rebounds column\n<\/span>all(df$rebounds < 10, na. rm<\/span> = TRUE<\/span> )\n\n[1] FALSE\n\n#check if any values are less than 10 in rebounds column\n<\/span>any(df$rebounds < 10, na. rm<\/span> = TRUE<\/span> )\n\n[1] TRUE\n\n#check if there are any NA values in rebounds column\n<\/span>any(is. na<\/span> (df$rebounds))\n\n[1] TRUE\n<\/span><\/span><\/strong><\/span><\/pre>\n
\u4ece\u7ed3\u679c\u6211\u4eec\u53ef\u4ee5\u770b\u51fa\uff1a<\/span><\/p>\n