A <- c(1,6)
B <- c(2,7)
C <- c(3,8)
D <- c(4,9)
E <- c(5,0)
df <- data.frame(A,B,C,D,E)
df
A B C D E
1 1 2 3 4 5
2 6 7 8 9 0
これが欲しいです:
df
1 2
A 1 6
B 2 7
C 3 8
D 4 9
E 5 0
データフレームが本当にその形式である場合、ベクトルはすべて文字ベクトルになります。または、基本的に文字マトリックスがあり、これを行うことができます:
data.frame(t(df))
ただし、最初からやりたいように定義する方が良いでしょう
df <- data.frame(c('A','B','C','D','E'),
c(1, 2, 3, 4, 5),
c(6, 7, 8, 9, 0))
これもできます
df <- data.frame(LETTERS[1:5], 1:5, c(6:9, 0))
列に名前を付けたい場合は、これを行うことができます
df <- data.frame(L = LETTERS[1:5], N1 = 1:5, N2 = c(6:9, 0))
Excelデータのread.DIFを使用すると、データが転置されることがあります。それは元のデータをどのように取得したのですか?もしそうなら、あなたは呼び出すことができます
read.DIF(filename, transpose = T)
データを正しい方向に取得します。
私は本当にお勧めしますdata.table
エラーが発生しやすいため、手動ステップなしのアプローチ
A <- c(1,6)
B <- c(2,7)
C <- c(3,8)
D <- c(4,9)
E <- c(5,0)
df <- data.frame(A,B,C,D,E)
df
library('data.table')
dat.m <- melt(as.data.table(df, keep.rownames = "Vars"), id.vars = "Vars") # https://stackoverflow.com/a/44128640/54964
dat.m
出力
A B C D E
1 1 2 3 4 5
2 6 7 8 9 0
Vars variable value
1: 1 A 1
2: 2 A 6
3: 1 B 2
4: 2 B 7
5: 1 C 3
6: 2 C 8
7: 1 D 4
8: 2 D 9
9: 1 E 5
10: 2 E 0
R:3.4.0(バックポート)
OS:Debian 8.7