Как складывать элементы списка (кадры данных или векторы) по строкам внутри матрицы, включая имена столбцов в R?

Моя цель - экспортировать несколько фреймов данных на один лист Excel.

Мне нужен общий код, который работает с любым списком.

Схема данных

# df1
  a
1 1
2 1

# df2
  b c
1 3 4

# vec
[1] "string"

Желаемый результат

     [,1]     [,2]
[1,] "a"      NA  
[2,] "1"      NA  
[3,] "1"      NA  
[4,] NA       NA  
[5,] "b"      "c" 
[6,] "3"      "4" 
[7,] NA       NA  
[8,] "string" NA

Данные

df1 <- data.frame(a = c(1, 1))
df2 <- data.frame(b = 3, c = 4)
vec <- "string"
l   <- list(df1, df2, vec)

Я хочу пространство между элементами

— 20.04.2023 18:04

r list data-wrangling

20.04.2023 17:53

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Как вы сказали, вам нужно экспортировать в один лист Excel. Вы можете использовать {openxlsx} с простым циклом, чтобы вычислить начальную строку на листе Excel для каждого элемента в списке.

library(openxlsx)

wb <- createWorkbook()
addWorksheet(wb, "sheet1")
sr <- 1 # startRow

for(x in lst) {
  writeData(wb, "sheet1", x, startRow = sr, colNames = !is.null(colnames(x)))
  sr <- sr + ifelse(!is.null(nrow(x)), nrow(x) + !is.null(colnames(x)), length(x)) + 1L
}

saveWorkbook(wb, "test.xlsx", overwrite = TRUE)