Вставьте имя элемента в столбцы в каждом элементе списка
У меня есть список фреймов данных. Каждый элемент списка имеет уникальное имя, но имена столбцов одинаковы во всех фреймах данных.
Я хотел бы добавить имя каждого фрейма данных в столбцы, чтобы, когда я paste объединил их в один большой фрейм данных, я мог различать их.
Пример данных;
LIST <- list(df1 = data.frame("ColA" = c(1:5), "ColB" = c(10:14)),
df2 = data.frame("ColA" = c(21:25), "ColB" = c(30:34)))
str(LIST)
List of 2
$ df1:'data.frame': 5 obs. of 2 variables:
..$ ColA: int [1:5] 1 2 3 4 5
..$ ColB: int [1:5] 10 11 12 13 14
$ df2:'data.frame': 5 obs. of 2 variables:
..$ ColA: int [1:5] 21 22 23 24 25
..$ ColB: int [1:5] 30 31 32 33 34
Желаемый результат;
List of 2
$ df1:'data.frame': 5 obs. of 2 variables:
..$ df1.ColA: int [1:5] 1 2 3 4 5
..$ df1.ColB: int [1:5] 10 11 12 13 14
$ df2:'data.frame': 5 obs. of 2 variables:
..$ df2.ColA: int [1:5] 21 22 23 24 25
..$ df2.ColB: int [1:5] 30 31 32 33 34
Стоит ли изучать PHP в 2026-2027 годах?
Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Приемы CSS-макетирования - floats и Flexbox
Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...
Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest
В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Пользовательский скаляр GraphQL
Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...
2
0
517
3
Перейти к ответу
Данный вопрос помечен как решенный
Ответы 3
Вы можете сделать это в lapply с глобальным назначением <<-.
lapply(seq_along(LIST), function(x)
names(LIST[[x]]) <<- paste0(names(LIST)[x], ".", names(LIST[[x]])))
Или используйте Map, как предложил @Сотос
LIST <- Map(function(x, y) {names(x) <- paste0(y, '.', names(x)); x}, LIST, names(LIST))
Урожайность
str(LIST)
# List of 2
# $ df1:'data.frame': 5 obs. of 2 variables:
# ..$ df1.ColA: int [1:5] 1 2 3 4 5
# ..$ df1.ColB: int [1:5] 10 11 12 13 14
# $ df2:'data.frame': 5 obs. of 2 variables:
# ..$ df2.ColA: int [1:5] 21 22 23 24 25
# ..$ df2.ColB: int [1:5] 30 31 32 33 34
@Sotos Хорошо, так что мы можем обойтись без <<-, включенного в ответ.
—
25.04.2019 12:53
Привет, вы можете использовать map2, чтобы сделать это:
library(tidyverse)
map2(mylist, names(mylist), ~rename_all(.x, function(z) paste(.y, z, sep = ".")))
Обновлено:
или как предложено в комментариях использовать imap
imap(mylist, ~rename_all(.x, function(z) paste(.y, z, sep = ".")))
Ответ принят как подходящий
Поскольку вы упомянули, что хотите использовать cbind позже, вы можете использовать as.data.frame сразу.
as.data.frame(LIST)
# df1.ColA df1.ColB df2.ColA df2.ColB
#1 1 10 21 30
#2 2 11 22 31
#3 3 12 23 32
#4 4 13 24 33
#5 5 14 25 34
Благодаря @RonakShah вы можете использовать следующие строки, чтобы вернуть список, если он вам понадобится.
df1 <- as.data.frame(LIST)
split.default(df1, sub("\\..*", "", names(df1)))
Идеально! Я не знал о поведении as.data.frame. Гораздо проще, чем то, что я пробовал!
—
25.04.2019 12:40
Другие вопросы по теме
Использование zip_longest в неравных списках, но повторение последней записи вместо возврата None
Значения списка поиска Python в списке списка
Как преобразовать список массивов в два списка?
Как разобрать имя, которое является строкой в формате LastName, FirstName, в список в формате «Firstname», «LastName»?
Python: добавить одинаковый префикс ко всем элементам в списке
R, перечислите предметы, по которым учащийся имеет "B" или "C"
Как выбрать элементы списков в группе списков, если элементы (строка) начинаются с буквы/цифры?
Сравнение ввода пользователя со списком «A» и преобразование символов ввода в список «B» на основе индекса списка «A»
Преобразуйте каждую строку фрейма данных в новый список в R
Есть ли способ получить вывод функции, которая переводит строку в том же порядке, что и ввод?
Похожие вопросы
Подходящие модели с надежными стандартными ошибками
Когда использовать наборы тестов для проверки обучения
Невозможно объединить два фрейма данных в R
Как соединить точки двух фреймов данных друг с другом, используя ggplot в R?
Как импортировать файл CSV в R со смещенными строками и столбцами?
Для переменной цикла в качестве имени столбца
Как сгруппировать по, а затем суммировать, какие строки имеют NA во всех столбцах
Нахождение апостериорных интервалов для нескольких выборок
Манипулирование датой с помощью условных операторов
Рендеринг большого набора данных тайлов
Другой (более читаемый IMO) вариант этого
Map(function(x, y) {names(x) <- paste0(y, '.', names(x)); x}, LIST, names(LIST))