2017-04-06 50 views

回答

1

因爲你還需要基於行名的列名,這裏是如何除了含有豐富的評論整個代碼,應該是這樣的:

# create the dataset 

x=paste("Header_",1:4) 
y=c('A','B','C','D') 
data=data.frame(x,y) 

# transpose and rename columns 

data.T <- t(data[,2:ncol(data)]) # first transpose 
colnames(data.T) <- data[,1] 
0

您可以通過使用hidden drop = FALSE參數來獲得所需的輸出。

使用Prateek的數據:

x=paste("Header_",1:4) 
y=c('A','B','C','D') 
data=data.frame(x,y) 
data 
data[,1,drop =F] 
      x 
1 Header_ 1 
2 Header_ 2 
3 Header_ 3 
4 Header_ 4