Изменение формы данных в R - PullRequest
3 голосов
/ 11 ноября 2011

Я хочу изменить форму данных, и я борюсь с документацией для функций изменения формы и стека. Мой фрейм данных выглядит так:

x<-rnorm(n=20, mean=0, sd=1)
y<-rnorm(n=20, mean=10, sd=1)
fact<-rep(1:5, times=4)
df<-data.frame(x,y,fact)

В конце я хочу 2-колоночный фрейм данных (40x2), один столбец с x и y «сложенными» и один столбец с соответствующим коэффициентом x & y

Ответы [ 2 ]

4 голосов
/ 11 ноября 2011

Один вкладыш с melt

reshape2::melt(df, id = 'fact', variable.name = 'xy')
2 голосов
/ 11 ноября 2011

Я не уверен, хотите ли вы сохранить информацию о том, откуда взяты значения (т. Е. Столбцы x или y. Если нет, то это легко:

df2 <- data.frame(xy = c(df$x,df$y), fact=c(df$fact, df$fact))

Если вы хотите сохранить информацию в fact, то один из них:

### Method 1
df2 <- data.frame(xy = c(df$x,df$y), 
                  fact=c(paste("x", df$fact, sep="."), paste("y", df$fact, sep=".") )
                  )
str(df2 )
'data.frame':   40 obs. of  2 variables:
 $ xy  : num  1.58043 -0.00399 0.84784 -0.10012 -0.27963 ...
 $ fact: Factor w/ 10 levels "x.1","x.2","x.3",..: 1 2 3 4 5 1 2 3 4 5 ...

### Method 2
 df2 <- stack(df[, 1:2])
 df2$fact=df$fact
 str(df2)
'data.frame':   40 obs. of  3 variables:
 $ values: num  1.58043 -0.00399 0.84784 -0.10012 -0.27963 ...
 $ ind   : Factor w/ 2 levels "x","y": 1 1 1 1 1 1 1 1 1 1 ...
 $ fact  : int  1 2 3 4 5 1 2 3 4 5 ...
...