R повторять элементы фрейма данных

Я искал в Интернете, но я не смог найти решение своей проблемы. У меня есть фрейм данных чисел и символов:

mydf <- data.frame(col1=c(1, 2, 3, 4), 
                   col2 = c(5, 6, 7, 8), 
                   col3 = c("a", "b", "c", "d"), stringsAsFactors  = FALSE)

мдф:

col1 col2 col3
  1    5   a
  2    6   b
  3    7   c
  4    8   d

Я хотел бы повторить это в

col1 col2 col3
  1   5    a
  1   5    a
  1   5    a
  2   6    b
  2   6    b
  2   6    b
  3   7    c
  3   7    c
  3   7    c
  4   8    d
  4   8    d
  4   8    d

Использование apply(mydf, 2, function(x) rep(x, each = 3)) даст правильное повторение, но не сохранит классы col1, col2 и col3, как числовые, числовые и символьные соответственно, как хотелось бы. Это построенный пример, и установка классов каждого столбца в моем фрейме данных немного утомительна.

Есть ли способ сделать повторение при сохранении классов?


r dataframe repeat
person Sisse    schedule 04.01.2012    source источник

Ответы (6)


arrow_upward
11
arrow_downward

Это даже проще, чем вы думаете.

index <- rep(seq_len(nrow(mydf)), each = 3)
mydf[index, ]

Это также позволяет избежать неявного зацикливания из apply.

person Richie Cotton    schedule 04.01.2012
comment
Похоже, пришло время переписать zexpand :-) - person Carl Witthoft; 04.01.2012
comment
Всем спасибо за помощь и комментарии! - person Sisse; 04.01.2012

arrow_upward
4
arrow_downward

Это неудачное и неожиданное преобразование класса (во всяком случае, я тоже). Вот простой обходной путь, использующий тот факт, что data.frame — это просто специальный список.

data.frame(lapply(mydf, function(x) rep(x, each = 3)))

(кто-нибудь знает, почему поведение, наблюдаемое вопрошающим, не должно быть сообщено как ошибка?)

person John    schedule 04.01.2012

arrow_upward
2
arrow_downward

Просто другое решение:

mydf3 <- do.call(rbind, rep(list(mydf), 3))
person Wojciech Sobala    schedule 04.01.2012

arrow_upward
1
arrow_downward

Взгляните на aggregate и disaggregate в пакете raster. Или используйте мою модифицированную версию zexpand ниже:

# zexpand: analogous to disaggregate

zexpand<-function(inarray, fact=2, interp=FALSE,  ...)  {
# do same analysis of fact to allow one or two values, fact >=1 required, etc.
fact<-as.integer(round(fact))
switch(as.character(length(fact)),
            '1' = xfact<-yfact<-fact,
            '2'= {xfact<-fact[1]; yfact<-fact[2]},
            {xfact<-fact[1]; yfact<-fact[2];warning(' fact is too long. First two values used.')})
if (xfact < 1) { stop('fact[1] must be > 0') } 
if (yfact < 1) { stop('fact[2] must be > 0') }

bigtmp <- matrix(rep(t(inarray), each=xfact), nrow(inarray), ncol(inarray)*xfact, byr=T)  #does column expansion
bigx <- t(matrix(rep((bigtmp),each=yfact),ncol(bigtmp),nrow(bigtmp)*yfact,byr=T))
# the interpolation would go here. Or use interp.loess on output (won't
# handle complex data). Also, look at fields::Tps which probably does
# a much better job anyway.  Just do separately on Re and Im data
return(invisible(bigx))
}
person Carl Witthoft    schedule 04.01.2012

arrow_upward
1
arrow_downward

Мне очень нравится ответ Ричи Коттона.

Но вы также можете просто использовать rbind и изменить его порядок.

res <-rbind(mydf,mydf,mydf)
res[order(res[,1],res[,2],res[,3]),]
person Pierre Lapointe    schedule 04.01.2012

arrow_upward
0
arrow_downward

Пакет mefa поставляется с красивой оболочкой для rep, примененной к data.frame. Это будет соответствовать вашему примеру в одной строке:

mefa:::rep.data.frame(mydf, each=3)
person dardisco    schedule 22.08.2013