Size: a a a

R (язык программирования)

2021 April 21

K

Katharina in R (язык программирования)
Только почему то у меня он file id еще и 0 откула то находит хотя его нет
источник

K

Katharina in R (язык программирования)
Видимо так как есть фалйлы part_20, part_31 etc
источник

AS

Alexey Seleznev in R (язык программирования)
а у вас кроме этих файлов ничего лишнего не лежит в папке?
источник

AS

Alexey Seleznev in R (язык программирования)
точно
источник

AS

Alexey Seleznev in R (язык программирования)
исправил код выше, попробуйте
источник

K

Katharina in R (язык программирования)
Спасибо
источник

K

Katharina in R (язык программирования)
Теперь file id NA везде
источник

YS

Yuriy Saraikin in R (язык программирования)
так ещё попробуйте
library(tidyverse)
files <- list.files(path = "./source", pattern = "^part", full.names = T) %>% set_names()
`map_df(files, ~ read_csv(.x, col_names = F) %>% pivot_longer(everything()), .id = "id") %>%
 select(-name)`
источник

YS

Yuriy Saraikin in R (язык программирования)
path = "./source" - путь к вашим файлам
источник

K

Katharina in R (язык программирования)
Что-то не получается. А что именно в предыдущем коде не так?
источник

YS

Yuriy Saraikin in R (язык программирования)
Всё так. Другой вариант решения
источник

YS

Yuriy Saraikin in R (язык программирования)
источник

YS

Yuriy Saraikin in R (язык программирования)
вот такой вывод должен быть
источник

YS

Yuriy Saraikin in R (язык программирования)
уточните что конкретно не получается?
источник

YS

Yuriy Saraikin in R (язык программирования)
print(files) что показывает?
источник

K

Katharina in R (язык программирования)
Предыдущий код не понимает двойные номера файлов, поэтому я и спросила, что не так)
источник

K

Katharina in R (язык программирования)
А здесь cant combine x1 character and x2 double
источник

K

Katharina in R (язык программирования)
Print files как у вас в первой колонке примерно
источник

K

Katharina in R (язык программирования)
map_df(files, ~ read_csv(.x, col_names = F) %>% pivot_longer(everything()), .id = "id") %>%
 select(-name) тут где-то
источник

YS

Yuriy Saraikin in R (язык программирования)
понял)
источник