Как преобразовать столбцы в строки в R?

Question

У меня вроде такая же проблема. У меня есть данные в таком порядке:; = столбец

D1 ;hurs

1  ;0.12

1  ;0.23

1  ;0.34

1  ;0.01

2  ;0.24

2  ;0.67

2  ;0.78

2  ;0.98

и мне нравится, что это так:

D1; X; X; X; X    
1;0.12; 0.23; 0.34; 0.01; 
2;0.24; 0.67; 0.78; 0.98;

Я хотел бы отсортировать его по отношению к D1 и изменить его? У кого-нибудь есть идея? Мне нужно сделать это для 7603 значений D1.

Answer 1

Копать скелеты, которые вряд ли когда-либо будут востребованы, почему бы не использовать aggregate()?

dat = read.table(header = TRUE, sep = ";", text = "D1 ;hurs
1  ;0.12
1  ;0.23
1  ;0.34
1  ;0.01
2  ;0.24
2  ;0.67
2  ;0.78
2  ;0.98")
aggregate(hurs ~ D1, dat, c)
#   D1 hurs.1 hurs.2 hurs.3 hurs.4
# 1  1   0.12   0.23   0.34   0.01
# 2  2   0.24   0.67   0.78   0.98

Если длины каждого идентификатора в D1 не одинаковы, вы также можете использовать базу R reshape() после первого создания переменной времени:

dat2 <- dat[-8, ]
dat2$timeSeq <- ave(dat2$D1, dat2$D1, FUN = seq_along)
reshape(dat2, direction="wide", idvar="D1", timevar="timeSeq")
#   D1 hurs.1 hurs.2 hurs.3 hurs.4
# 1  1   0.12   0.23   0.34   0.01
# 5  2   0.24   0.67   0.78     NA

Answer 2

Я бы посмотрел в пакет reshape Хэдли.Это делает все виды отличных вещей.Приведенный ниже код будет работать с вашим игрушечным примером, но, вероятно, есть более элегантный способ сделать это.Проще говоря, ваши данные уже представлены в форме ?melt, поэтому вы можете просто ?cast it.

Кроме того, проверьте эти ссылки

http://www.statmethods.net/management/reshape.html

http://had.co.nz/reshape/

library(reshape)

help(package=reshape)
?melt

D1 <- c(1,1,1,1,2,2,2,2)
hurs <- c(.12, .23, .34, .01, .24, .67, .78, .98)
var <- rep(paste("X", 1:4, sep=""), 2)

foo <- data.frame(D1, var, hurs)
foo

cast(foo, D1~var)

Answer 3

Reshape2 на самом деле лучше, чем Reshape. Использование reshape использует значительно больше памяти и времени, чем reshape2 (по крайней мере, для моего конкретного примера используется что-то вроде 9 миллионов строк).

Answer 4

Я предположил, что на D1 имеется неравное количество часов (7603 значения)

txt = 'D1 ;hurs
 1 ;0.12
 1 ;0.23
 1 ;0.34
 1 ;0.01
 2 ;0.24
 2 ;0.67
 2 ;0.78
 2 ;0.98'

dat <- read.table(textConnection(txt),header=T,sep=";")
dat$Lp <- 1:nrow(dat)
dat <- dat[order(dat$D1,dat$Lp),]
out <- split(dat$hurs,dat$D1)
out <- sapply(names(out),function(x) paste(paste(c(x,out[[x]]),collapse=";"),";",sep="",collapse=""))

Answer 5

Вы можете проверить пакет преобразования Хэдли Уикхэма и его функцию cast ()

http://had.co.nz/reshape/