Как создать компонентные (подмножество) кадры данных в R на основе значений столбцов?

Question

Я бы хотел разделить фрейм данных на несколько фреймов данных компонентов на основе значений в одном столбце.В моем примере я хочу разделить dat на dat.1, dat.2 и dat.3, используя значения в столбце "cond".Есть ли простая команда, которая могла бы достичь этого?

dat
sub cond    trial   time01  time02
1   1   1   2774    8845
1   1   2   2697    9945
1   2   1   2219    9291
1   2   2   3886    7890
1   3   1   4011    9032
2   2   1   3478    8827
2   2   2   2263    8321
2   3   1   4312    7576
3   1   1   4219    7891
3   3   1   3992    6674


dat.1               
sub cond    trial   time01  time02
1   1   1   2774    8845
1   1   2   2697    9945
3   1   1   4219    7891    

dat.2               
sub cond    trial   time01  time02
2   2   1   3478    8827
2   2   2   2263    8321
1   2   1   2219    9291
1   2   2   3886    7890

dat.3               
sub cond    trial   time01  time02
1   3   1   4011    9032
2   3   1   4312    7576
3   3   1   3992    6674

Возможно, потому что я новичок в R, но до сих пор не определилась, как это сделать, несмотря на просмотр и пробу решений, предложенных в нескольких похожих форумах.Заранее благодарю за любые ответы.

A dput() данных:

structure(list(sub = c(1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L
), cond = c(1L, 1L, 2L, 2L, 3L, 2L, 2L, 3L, 1L, 3L), trial = c(1L, 
2L, 1L, 2L, 1L, 1L, 2L, 1L, 1L, 1L), time01 = c(2774L, 2697L, 
2219L, 3886L, 4011L, 3478L, 2263L, 4312L, 4219L, 3992L), time02 = c(8845L, 
9945L, 9291L, 7890L, 9032L, 8827L, 8321L, 7576L, 7891L, 6674L
)), .Names = c("sub", "cond", "trial", "time01", "time02"), class = "data.frame", row.names = c(NA, 
-10L))

Answer 1

Я думаю, что самый простой способ - через split:

split(dat, dat$cond)

Обратите внимание, однако, что split возвращает список data.frames.

Чтобы получить отдельные data.frames из списка, вы можете выполнить следующие действия, используя цикл для создания отдельных объектов (неявно в операторе lapply):

tmp <- split(dat, dat$cond)
lapply(1:length(tmp), function(x) assign(paste("dat.", x, sep = ""), tmp[[x]], envir = .GlobalEnv))

Однако, используясписок, вероятно, больше R ish и будет более полезным в долгосрочной перспективе.

Спасибо Гевину за публикацию данных!

Answer 2

Что-нибудь не удовлетворяет насчет

split(dat, dat$cond)

?У вас есть R и разделить как теги, вы знаете ...

Answer 3

Да, split(). Например, если ваши данные в dat, то:

with(dat, split(dat, cond))

возвращает список, компонентами которого являются требуемые фреймы данных:

R> with(dat, split(dat, cond))
$`1`
  sub cond trial time01 time02
1   1    1     1   2774   8845
2   1    1     2   2697   9945
9   3    1     1   4219   7891

$`2`
  sub cond trial time01 time02
3   1    2     1   2219   9291
4   1    2     2   3886   7890
6   2    2     1   3478   8827
7   2    2     2   2263   8321

$`3`
   sub cond trial time01 time02
5    1    3     1   4011   9032
8    2    3     1   4312   7576
10   3    3     1   3992   6674

Answer 4

Просто для полноты, вот способ сделать это с пакетом plyr.

require(plyr)

> dlply( dat, .(cond))
$`1`
  sub cond trial time01 time02
1   1    1     1   2774   8845
2   1    1     2   2697   9945
9   3    1     1   4219   7891

$`2`
  sub cond trial time01 time02
3   1    2     1   2219   9291
4   1    2     2   3886   7890
6   2    2     1   3478   8827
7   2    2     2   2263   8321

$`3`
   sub cond trial time01 time02
5    1    3     1   4011   9032
8    2    3     1   4312   7576
10   3    3     1   3992   6674

attr(,"class")
[1] "split" "list" 

Обратите внимание на синтаксическую простоту в том, что вы упоминаете dat только один раз.

Answer 5

;)

ucond <- unique(dat$cond)
dat_by_cond <- lapply(lapply(ucond, "==", dat$cond), subset, x=dat)
names(dat_by_cond) <- paste("dat",ucond,sep=".")