愚蠢的问题 - 如何改进此代码?
my_data1 <- read_excel("C:/Users/farj0/Downloads/Pilares_ranking_clp.xlsx", sheet = 1)
my_data2 <- read_excel("C:/Users/farj0/Downloads/Pilares_ranking_clp.xlsx", sheet = 2)
my_data3 <- read_excel("C:/Users/farj0/Downloads/Pilares_ranking_clp.xlsx", sheet = 3)
my_data4 <- read_excel("C:/Users/farj0/Downloads/Pilares_ranking_clp.xlsx", sheet = 4)
k = list(my_data1,my_data2,my_data3,my_data4) %>% reduce(left_join, by = "Município")
谢谢!!
我们可以遍历sheet
数字并将其读入 alist
并reduce
加入它们
library(purrr)
library(readxl)
library(dplyr)
k <- map(1:4,
~ read_excel("C:/Users/farj0/Downloads/Pilares_ranking_clp.xlsx",
sheet = .x)) %>%
reduce(left_join, by = "Município")
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句