this is the dataset that I have

I'd like to transform the data to transaction using
trans<- as(data, "transactions")
and all data columns go into one column
I tried this below codes and doesn't work
trans<- as(data$Finding.Labels, "transactions")
I wnat to transform it like this way.

How can I do?
Thanks!!!