<\/p>\n
\u901a\u5e38\uff0c\u60a8\u53ef\u80fd\u5bf9\u5728 R \u4e2d\u8fde\u63a5\u591a\u4e2a\u6570\u636e\u5e27\u611f\u5174\u8da3\u3002\u5e78\u8fd0\u7684\u662f\uff0c\u4f7f\u7528dplyr<\/a>\u5305\u4e2d\u7684<\/span>left_join()<\/a>\u51fd\u6570\u53ef\u4ee5\u8f7b\u677e\u505a\u5230\u8fd9\u4e00\u70b9<\/span>\u3002<\/p>\n \u4f8b\u5982\uff0c\u5047\u8bbe\u6211\u4eec\u6709\u4ee5\u4e0b\u4e09\u4e2a\u6570\u636e\u6846\uff1a<\/span><\/p>\n \u8981\u5c06\u4e09\u4e2a\u6570\u636e\u5e27\u8fde\u63a5\u5728\u4e00\u8d77\uff0c\u6211\u4eec\u53ef\u4ee5\u7b80\u5355\u5730\u6267\u884c\u4e24\u4e2a\u5de6\u8fde\u63a5\uff0c\u4e00\u4e2a\u63a5\u4e00\u4e2a\uff1a<\/span><\/p>\n \u8bf7\u6ce8\u610f\uff0c\u60a8\u8fd8\u53ef\u4ee5\u5c06\u6b64\u8fde\u63a5\u7684\u7ed3\u679c\u4fdd\u5b58\u4e3a\u6570\u636e\u6846\uff1a<\/span><\/p>\n \u5982\u4f55\u5728 R \u4e2d\u8fc7\u6ee4\u884c<\/a> \u901a\u5e38\uff0c\u60a8\u53ef\u80fd\u5bf9\u5728 R \u4e2d\u8fde\u63a5\u591a\u4e2a\u6570\u636e\u5e27\u611f\u5174\u8da3\u3002\u5e78\u8fd0\u7684\u662f\uff0c\u4f7f\u7528dplyr\u5305\u4e2d\u7684left_join()\u51fd\u6570\u53ef\u4ee5\u8f7b\u677e […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"class_list":["post-949","post","type-post","status-publish","format-standard","hentry","category-11"],"yoast_head":"\n library(dplyr)<\/strong><\/pre>\n
#create data frame<\/span>\ndf1 <- data.frame(a = c('a', 'b', 'c', 'd', 'e', 'f'),\n b = c(12, 14, 14, 18, 22, 23))\n\ndf2 <- data.frame(a = c('a', 'a', 'a', 'b', 'b', 'b'),\n c = c(23, 24, 33, 34, 37, 41))\n\ndf3 <- data.frame(a = c('d', 'e', 'f', 'g', 'h', 'i'),\n d = c(23, 24, 33, 34, 37, 41))\n<\/strong><\/pre>\n #join the three data frames<\/span>\ndf1 %>%\n left_join<\/span> (df2, by='a') %>%\n left_join<\/span> (df3, by='a')\n\n abcd\n1 to 12 23 NA\n2 to 12 24 NA\n3 to 12 33 NA\n4 b 14 34 NA\n5 b 14 37 NA\n6 b 14 41 NA\n7 c 14 NA NA\n8 d 18 NA 23\n9th 22 NA 24\n10 f 23 NA 33\n<\/strong><\/pre>\n #join the three data frames and save result as new data frame named all_data<\/span>\nall_data <- df1 %>%\n left_join<\/span> (df2, by='a') %>%\n left_join<\/span> (df3, by='a')\n\n#view summary of resulting data frame\n<\/span>glimpse(all_data)\n\nComments: 10\nVariables: 4\n$ a <chr> \"a\", \"a\", \"a\", \"b\", \"b\", \"b\", \"c\", \"d\", \"e\", \"f\"\n$b<dbl> 12, 12, 12, 14, 14, 14, 14, 18, 22, 23\n$ c <dbl> 23, 24, 33, 34, 37, 41, NA, NA, NA, NA\n$ d <dbl> NA, NA, NA, NA, NA, NA, NA, 23, 24, 33\n<\/strong><\/pre>\n\u5176\u4ed6\u8d44\u6e90<\/strong><\/span><\/h3>\n
\u5982\u4f55\u5220\u9664R\u4e2d\u7684\u91cd\u590d\u884c<\/a>
\u5982\u4f55\u5728 R \u4e2d\u5bf9\u6570\u636e\u8fdb\u884c\u5206\u7ec4\u548c\u6c47\u603b<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"