Let's take somebody with an annual income of 200,000 CHF, a well above average income. According to https://en.comparis.ch/steuern/steuervergleich/steuern-im-ve..., the total federal, cantonal and municipal taxes together would be 51,410 CHF per annum, about 25%.

That is a lot below any other European country. Maybe you included VAT to come up with your 40% marginal tax rate? But then you should count VAT for other countries as well when you are comparing them. And apart from that, the VAT in Switzerland is also very low.