in R - How can I remove spesific columns in data.frame?

In this data.frame:

I want to remove some columns that "Total" == 0

I reviewed some questions about my problems in here and I found it

R: how to remove certain rows in data.frame

but I can't apply perfectly in my case.