Lo que haría sería hacer una transformación. Para ello usaría el paquete tidyr.
Específicamente con la función gather()
df<-data.frame(fila=c(LETTERS[1:8]),
x1=c(2871,3039,1411,1855,2871,3039,1411,1855),
x2=c(2871,3039,1411,1855,2871,3039,1411,1855),
x3=c(2871,3039,1411,1855,2871,3039,1411,1855))
> df
fila x1 x2 x3
1 A 2871 2871 2871
2 B 3039 3039 3039
3 C 1411 1411 1411
4 D 1855 1855 1855
5 E 2871 2871 2871
6 F 3039 3039 3039
7 G 1411 1411 1411
8 H 1855 1855 1855
Aplicando gather()
, el cual pide el nombre de la columna que contiene a las variables que pasan a ser en formato largo, en este caso los ID, luego te pide el nombre de la columna que tendrá el valor de estas columnas que van a formato largo, en tu caso COLUMNA
. Por último, las columnas que se transformarán que son desde la segunda a la cuarta.
df %>% gather(ID, COLUMNA, 2:4) %>% arrange(fila)
El resultado.
fila ID COLUMNA
1 A x1 2871
2 A x2 2871
3 A x3 2871
4 B x1 3039
5 B x2 3039
6 B x3 3039
7 C x1 1411
8 C x2 1411
9 C x3 1411
10 D x1 1855
11 D x2 1855
12 D x3 1855
13 E x1 2871
14 E x2 2871
15 E x3 2871
16 F x1 3039
17 F x2 3039
18 F x3 3039
19 G x1 1411
20 G x2 1411
21 G x3 1411
22 H x1 1855
23 H x2 1855
24 H x3 1855