в папке.
на выходе показывает что значения пустые http://prntscr.com/un1s3u
хотя они есть в эксельках.
сам скрипт
library(readxl)
library(plyr)
files <- list.files(path = "C:/Users/aaa/Desktop/aaa",
full.names = TRUE,
recursive = TRUE,
pattern = "*.xlsx")
data <- ldply(files, read_excel, sheet = "list1", skip = 1, col_names = TRUE)
data1 <- data[c(4,5,6,8,10)]
colnames(data1) <- c("date","col1","col2","col3","col4")
library(readxl)
library(plyr)
files <- list.files(path = "C:/Users/aa/Desktop/aa",
full.names = TRUE,
recursive = TRUE,
pattern = "*.xlsx")
data2 <- ldply(files, read_excel, sheet = "list2", skip = 1, col_names = TRUE)
data1_2 <- data2[c(5,6,7,8,9,10,11,12)]
colnames(data1_2) <- c("col1","date","col2)","col3","col4","col5","col6","col7")
col_type прописать
Обсуждают сегодня