Datensatz einlesen

• Und erste Spalte mit den Bezeichnungen auslassen.

data <- read.csv("spyout-test.txt",colClasses=c("NULL",NA,NA,NA,NA), sep="\t")

Library installieren

Wenn nicht schon geschehen…

install.packages("data.table")

Transpose

library(data.table)

#transpose data frame
data_t <- transpose(data)

#redefine row and column names
rownames(data_t) <- colnames(data)
colnames(data_t) <- rownames(data)

#display transposed data frame
data_t
   1 2 3 4 5 6 7 8  9
q1 2 5 6 5 5 1 7 1 10
q2 3 4 4 4 5 4 1 8 10
q3 4 3 3 2 3 5 7 1  8
q4 5 2 2 5 1 2 7 1  8