Here is a suggestion. Does it work as you wish?
## Test dataset
data = data.frame(col1 = c(1,2,3,4), col2 = c(0,0, 1, 0), col3 = c(1,0,0,1))
write.table(data, "data.txt", row.names = FALSE)
data.txt = read.table("data.txt", header = TRUE)
data.mat = as.matrix(data.txt[,-1]) # gets rid of the leftmost column(as you requested)
dimnames(data.mat) <-list(rep("", dim(data.mat)[1]), rep("", dim(data.mat)[2]))
This would be the output
0 1
0 0
1 0
0 1
instead of:
1 0 1
2 0 0
3 1 0
4 0 1