• Thorry84@feddit.nlEnglish
    391·
    7 months ago

    These kinds of charts are a bit dangerous, as it will be used by anti-EU folk in net contributing countries to say look at how much money we can save when we leave the EU. But this looks only at money being shipped back and forth. The EU has so much benefits in terms of trade and collaboration, it’s a steal at any price.

    • jol@discuss.tchncs.deEnglish
      14·
      7 months ago

      Exactly. Germany makes way more than 25 billion Euro by being able to freely trade with neighbours.

      • Bigmouse@lemmy.worldEnglish
        2·
        7 months ago

        Not to mention the fact that the €'s low value makes german goods much more competitive for international export.

    • Tar_Alcaran@sh.itjust.worksEnglish
      2·
      7 months ago

      But this looks only at money being shipped back and forth.

      Not even that. It only looks at money being shipped back and forth via one specific channel.

  • qaz@lemmy.worldEnglish
    171·
    7 months ago

    Poland and hungary are constantly complaining about the EU and vetooing laws too

  • Pohl@lemmy.worldEnglish
    13·
    7 months ago

    Interesting. The red bars almost exclusively belong to nations that had authoritarian single party government in the last half century.

    When laid out like this you really see how deviating and long term the consequences of authoritarianism can be. Stable healthy democracy is a fucking superpower.

  • hOrni@lemmy.worldEnglish
    11·
    7 months ago

    I’m Polish. So, if I understand this correctly, we are getting the most out of the EU, and yet still people here are complaining about it. And about Germany.

    • tal@lemmy.todayEnglish
      9·
      7 months ago

      statistia-netcontrib.csv

      country,netcontrib
DE,25572
FR,12380
NL,6929
IT,3337
SE,2826
DK,1766
AT,1540
FI,1109
IE,703
MT,-14
CY,-172
SI,-386
EE,-729
LT,-860
SK,-1398
LV,-1544
BG,-1727
HR,-1746
ES,-1946
LU,-2020
CZ,-2853
BE,-2950
PT,-3132
RO,-4096
HU,-4206
GR,-4278
PL,-11910

      eu-contribution-per-capita.r

      if (!require("pacman")) install.packages("pacman")
pacman::p_load(
            countrycode,
            dplyr,
            ggdark,
            ggplot2,
            r2country
        )

abs <- read.csv("statista-netcontrib.csv",header = TRUE)
abs2 <- cbind(abs,name = countrycode(abs$country,"iso2c","country.name")) 

df <- inner_join(country_names, abs2)
df2 <- inner_join(country_population, df)
df2$percap <- df2$netcontrib/df2$population2023*1000000

df3 <- arrange(df2,percap)

ggplot(df3, aes(x = percap, y = reorder(name, percap))) +
    geom_bar(stat = "identity") +
    dark_theme_gray() +
    ylab("Country") +
    xlab("Euros per capita") +
    scale_x_continuous(breaks = scales::pretty_breaks(n = 20)) +
    geom_text(aes(label = percap))

ggsave("euros-percap.png")

      Full size image

      Sorry about the broken escaping of the angle brackets (“<” is “&lt;”) in the source; Lemmy is, regrettably, broken on that at the moment.

      EDIT: Fixed Latvia country code error.

      EDIT2: And Austria country code error.

      • tal@lemmy.todayEnglish
        6·
        7 months ago

        Also, a Markdown table rendition:

        eu-contribution-per-capita-markdown.r

        if (!require("pacman")) install.packages("pacman")
pacman::p_load(
            countrycode,
            dplyr,
            r2country,
            simplermarkdown
        )

abs &lt;- read.csv("statista-netcontrib.csv",header = TRUE)
abs2 &lt;- cbind(abs,name = countrycode(abs$country,"iso2c","country.name")) 

df &lt;- inner_join(country_names, abs2)
df2 &lt;- inner_join(country_population, df)
df2$percap &lt;- df2$netcontrib/df2$population2023*1000000

df3 &lt;- arrange(df2,-percap)

md_table(df3)
        name percap
        Netherlands 386.91124
        Germany 302.86855
        Denmark 297.09908
        Sweden 267.98643
        Finland 199.90810
        France 181.71677
        Austria 168.68113
        Ireland 136.52768
        Italy 56.76638
        Malta -26.94577
        Spain -40.25217
        Slovenia -182.27546
        Cyprus -187.34343
        Romania -214.99549
        Belgium -250.73894
        Slovakia -257.60767
        Bulgaria -267.84703
        Portugal -299.21568
        Lithuania -300.05251
        Poland -315.86485
        Greece -408.10926
        Hungary -438.25808
        Croatia -449.01298
        Estonia -533.72029
        Latvia -819.79399
        Luxembourg -3056.85909
      • interolivary@beehaw.orgEnglish
        1·
        7 months ago

        statistia-netcontrib.csv is using some weird country code that isn’t ISO 3166-2, because it’s got what I assume to be Latvia with the code LA which is actually Laos, and that’s reflected on your chart too – I was initially a bit puzzled as to why Laos was listed as being in the EU. At a quick glance it seems to be the only weird one though

        • zaphod@feddit.deEnglish
          1·
          7 months ago

          We’ll see, they just got a new governemnt, I hope the best for them.

            • magikmw@lemm.eeEnglish
              2·
              7 months ago

              Right “won” but progressives have a majority coalition that just elected a PM. We should be ok.

              It’s not all in leftism, but they are in the government, first time since before WW2.

              In previous elections “left” was just previous regime surviviors.