Мы разделяем столбец фрейма данных, чтобы экспортировать его в файл Excel. например
userid <- rep(1:2,times=4)
data1 <- replicate(8 , paste( sample(letters , 3 ) , collapse = "" ) )
data2 <- sample(10,8)
df <- data.frame( userid , data1 , data2 )
spt3 <- split( df , f = df$userid )
# Split on userid
out <- split( df , f = df$userid )
#$`1`
# userid data1 data2
#1 1 gjn 3
#3 1 yqp 1
#5 1 rjs 6
#7 1 jtw 5
#$`2`
# userid data1 data2
#2 2 xfv 4
#4 2 bfe 10
#6 2 mrx 2
#8 2 fqd 9
теперь мы хотим экспортировать его в другой файл excel (.xlsx)
lapply(names(spt3), function(x) {write.table(spt3[[x]], file = paste("solid", x, sep = ""))})
Это работает для вывода таблицы, но не для файла excel в качестве вывода. Мне нужен другой файл excel для каждого разделенного вывода. Например, spt3[[1]], файл Excel в качестве вывода и аналогично для spt3[[2]].
Please note
Thanks for suggestions. But I want (. Xlsx )file not csv. E.g output should be like this in mentioned path output1. Xlsx output2. Xlsx . Also diffeent excel files not different sheets of a single excel file .
