R刻錄符合特定條件的所有列名

Question

讓假設我有以下數據：

A 
     1 2 
term1 0 1 
term2 2 3 

我想要一個txt文件，像這樣的：

term1 2 
term2 1 2 

換句話說，我寫了rowname，以及其中值大於0的列名。

我試過以下內容：

filename <- "palabra_documento/mapeo.txt" 
fileConn<-file(filename) 
rowNames <- rownames(AA.matrix) 
for(i in 1:nrow(AA.matrix)) 
{ 
    line <- names(AA.matrix[i, AA.matrix[i, ] > 0]) 
    line <- c(rowNames[i], line, "\n") 
    writeLines(paste(line, collapse = " "), fileConn) 

} 
close(fileConn) 

但是它不適合，原因有二：

1. 重寫文件每次（我只能把在TXT文件中的一行，我的錯誤）
2. 當只有一列滿足標準，它是一個標量值，所以，它的列沒有名字。其中只有一個柱，使用`drop`命令的矩陣內，以

Answer 1

(A <- matrix(c(0, 2, 1, 3), ncol = 2, dimnames = list(c("term1", "term2"), 1:2))) 
#  1 2 
# term1 0 1 
# term2 2 3 
l <- apply(A, 1, function(x) which(x > 0, arr.ind=TRUE, useNames = FALSE)) 
sink("output.txt") 
for (i in 1:length(l)) 
    cat(names(l[i]), paste(l[[i]], collapse = " "), "\n") 
sink() 

file.show("output.txt") 
# term1 2 
# term2 1 2