Модифицируйте data.frames с другим именем через цикл - PullRequest
Новая
       0

Модифицируйте data.frames с другим именем через цикл

2 голосов
/ 04 февраля 2020

У меня есть отличный файл с 4 листами. Я планирую создать сценарий, позволяющий мне изменять их через l oop, потому что некоторые изменения будут применяться ко всем листам, а некоторые нет.

Я начал с загрузки данных и именования каждого из data.frame с помощью имя листа. 

## Parameters ##
var_data_name <- "Random data.xlsx" 
var_number_of_data <- 4
var_data_names <- c("Tim", "Jack", "Tom", "Jerry")

for(i in 1:var_number_of_data){
  assign(paste("MS_data", var_data_names[i], sep = "_"), MS_data <- read.xlsx(var_data_name, sheetIndex = i))
}

Я делаю это в течение всего oop, потому что число листов / data.frames может измениться, и я хотел бы установить его в начале.

Тогда моя проблема начинается. Я хотел бы начать модифицировать их, и я понятия не имею, как «назвать» их, «обратиться» к ним. Даже не знаю, как сказать это по-английски sh. Например, в каждом из сформированных фреймов данных я хотел бы удалить первый и последний столбец. Далее у меня есть некоторые конкретные c модификации для каждого из фреймов данных, например, позволяет обрезать / взять только первые 10 строк из data.frame1 и 11-20 строк из data.frame2, 21-30 строк из data.frame3, et c.

Я думаю, что справлюсь с этим, как только пойму, как обращаться ко всем сформированным фреймам данных или как обращаться к конкретному c.

Предположим, что все листы имеют одинаковое содержимое, только разные имена, чтобы избежать dputing всех их. 

> dput(MS_data_Jack)
structure(list(NA. = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 
13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 
29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 
45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 
61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72), Sample.Name = c(1, 
2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 
20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 
36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 
68, 69, 70, 71, 72), Sample.ID = c(NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA), Sample.Type = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L
), .Label = "Unknown", class = "factor"), File.Name = structure(c(1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = "Data", class = "factor"), 
    Intensity = c(7520, 7770, 11300, 3400, 1750, 2230, 1270, 
    1830, 1400, 773, 308, 858, 1430, 672, 801, 501, 486, 300, 
    243, 215, 415, 243, 186, 243, 329, 415, 401, 415, 286, 486, 
    787, 558, 544, 258, 215, 300, 343, 258, 300, 358, 229, 315, 
    300, 222, 186, 236, 300, 687, 858, 272, 544, 315, 401, 343, 
    386, 243, 558, 215, 429, 458, 1570, 1950, 2370, 601, 644, 
    615, 615, 272, 272, 286, 200, 415), Height = c(2210, 1720, 
    3080, 1030, 802, 360, 477, 401, 372, 361, 130, 490, 291, 
    225, 320, 187, 236, 125, 100, 105, 140, 209, 260, 262, 221, 
    261, 203, 340, 181, 381, 460, 301, 142, 260, 142, 262, 201, 
    151, 120, 300, 101, 141, 144, 105, 107, 176, 201, 241, 285, 
    262, 144, 160, 241, 263, 123, 206, 221, 142, 140, 280, 822, 
    454, 621, 201, 220, 454, 300, 185, 161, 120, 141, 211), Random = structure(c(1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = "N/A", class = "factor"), 
    Standard = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L), .Label = "N/A", class = "factor"), Record = c(NA, 
    NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
    NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
    NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
    NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
    NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), Modify = c(0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), Count = c(0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), Data = structure(c(1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = "N/A", class = "factor")), class = "data.frame", row.names = c(NA, 
-72L))
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Нет похожих вопросов

...