Wordcloud

This code yields interesting insights:

library(wordcloud)
txt <- c("hrcds_b","amb_spit_nvl_b","hpp_fg","spez_kons_n","treu_fg",
         "qz_n","notfall_n","stat_pv_bl_b","vp_at_p","hosp_n","weibl_p")
n <- c(0.247,0.167,0.084,0.04,
       -0.009,-0.012,-0.062,-0.14,-0.143,-0.229,-0.363)
txt <- Sort(data.frame(word=txt, freq=abs(n*1000),
                       col=PalHelsana()[c("rot", "hellblau")][(n>0)*1+1],
                       stringsAsFactors=FALSE),2, decr=TRUE)
wordcloud(txt$word, txt$freq, colors=txt$col, ordered.colors=TRUE)