I am looking for statistics on sales of energy drinks in Germany and Austria;
percentages, rankings of purchases of different drinks like Red Bull.
I don't know of any free and open, recent dataset for such retail data. You probably have to purchase an appropriate dataset from a commercial data provider, e.g. GfK (I don't know if they indeed sell this particular dataset).
As a workaround you could use Google Trends data as a proxy for sales data, making some generous assumptions of course
In R, you could do this to fetch data from their API:
library(gtrendsR) library(ggplot2) energy_drinks_trend <- gtrends(c("red bull", "Bier", "Coca Cola"), geo = c("DE"), hl="DE") energy_drinks_trend <- energy_drinks_trend$interest_over_time ggplot(energy_drinks_trend, aes(date, hits, color=keyword)) + geom_line() + ylab("Hits/Day") + xlab("Year") + ggtitle("Google trends: Energy Drinks Trend", subtitle = "Searches in Germany, last 5 years")
This Google Trends data might be questionable or misleading, but it is better than nothing.
You can see declining trends for overpriced sugary drinks, but an increasing trend for Beer (contrary to sales data published by German Breweries or alcohol tax data) , and some weird cyclicity + peaks.