Unterbrechungen und Beschriftungen in ggplot festlegen

Ich habe die Shiny-App (unten) zusammengestellt, die eine Choroplethe zeigt, die bis auf die wissenschaftliche Schreibweise in der Legende gut aussieht. Ich möchte, dass die Werte "5.000.000 USD" und "4.000.000 USD" usw. usw. lauten. Der Code ...