Fit a list of characters into a Venn diagram?

venn Diagram

This is the original dataset:
https://correlatesofwar.org/wp-content/uploads/state_year_formatv3.zip

I am having issues with fitting elements within a Venn diagram in the correct circle. The Venn diagram shows the country members of the two international organizations

The country character codes do not fit in either format - next to each other for label_sep = "," or underneath label_sep = "\n". I am unsure of how to make the elements fit in the circle otherwise.

If someone could point me in the rigth direction this would be very helpful.
Greetings!

install.packages("haven")
install.packages("tidyverse")
install.packages("ggvenn")
install.packages("countrycode")

library("haven")
library("tidyverse")
library("ggvenn")
library("countrycode")

data <- read_dta("state_year_format3.dta")
data$cntry <- countrycode(data$ccode, origin = 'cown', destination =  'iso3c')


dta <- data %>% filter(year == 1975) %>% 
                select(year, cmea, gatt,cntry)


# create a country list for GATT and CMEA 
GATT <- dta %>% filter(gatt == 1 )
CMEA <- dta %>% filter(cmea == 1)
x <- list(GATT = GATT$cntry, CMEA = CMEA$cntry)

# venn diagram
ggvenn(x, show_elements = T, label_sep = "\n")

I have tried ordering the elements next to each other (label_sep = "," ) and underneath (label_sep = "\n"). If I had three columns within the bluish part, then this might work - no clue how to go about this.

As explained in the comment, I think it's difficult to use ggvenn for what you want to do, generally this function seems to be used more for a number or a percentage (see here)

However, I've done some more research and I think you should use the venndir function of the for what you want to do. You can see in the Github page here how the function works, here how to install and functioning of the package venndir and here the Render Venn or Euler diagram may also interest you.

I put here a code and examples of plots but you can modify according to your preferences with the help of the links I share with you just before:

data <- read.csv("state_year_formatv3.csv")
data$cntry <- countrycode(data$ccode, origin = 'cown', destination =  'iso3c')

dta <- data %>% filter(year == 1975) %>% 
  select(year, CMEA, GATT,cntry)

# create a country list for GATT and CMEA 
GATT <- dta %>% filter(GATT == 1 )
CMEA <- dta %>% filter(CMEA == 1)
x <- list(GATT = GATT$cntry, CMEA = CMEA$cntry)

# Venn diagram with venndir package
remotes::install_github("jmw86069/venndir")
install.packages("eulerr")
library(eulerr)
library(venndir)

par(mfrow=c(1, 2))
venndir(x,
        main="Non-proportional circles",
        #proportional=TRUE,
        overlap_type="overlap",
        #show_segments=FALSE,
        label_preset="main items",
        label_style="lite_box",
        show_items="item",
        item_cex=2)
venndir(x,
        main="Proportional circles",
        proportional=TRUE,
        overlap_type="overlap",
        #show_segments=FALSE,
        label_preset="main items",
        label_style="lite_box",
        show_items="item",
        item_cex=2)

First example a plot with same size between circles, or in right, a plot with circle proportional of country numbers.

I hope to have answer to your question