Visual Code(data=example):

Search Text in optgroup.txt

Enter search string:

Visual Code(data=input box):

then to see the Example

countryA,countryB Taiwan,Taiwan Canada,Canada U.K,U.K China,China China,China China,China Singapore,Singapore South Korea,South Korea China,China South Korea,South Korea U.S,U.S China,China China,China Grenada,Grenada South Korea,South Korea Ireland,Ireland France,France China,China China,U.S Hong Kong,China China,China China,China South Korea,South Korea China,China China,U.S Taiwan,Taiwan China,China China,China Italy,Italy U.S,U.S Spain,Spain Taiwan,Taiwan China,Hong Kong China,China Canada,Canada Australia,Australia China,China China,China China,China U.S,U.S U.K,U.K China,China China,China China,China China,China China,China South Korea,South Korea China,China South Korea,South Korea China,China China,China India,India South Korea,South Korea Taiwan,Taiwan China,China China,China China,China Hong Kong,Hong Kong Germany,Germany China,Australia Taiwan,Taiwan China,China Taiwan,Taiwan Hong Kong,China China,China China,China Taiwan,Taiwan China,China China,China China,China Spain,Spain U.S,U.S China,China China,China U.K,U.K U.S,U.S China,China China,China China,China China,China China,China U.K,U.K China,China South Korea,South Korea China,China China,China China,China China,China China,China China,China China,China Iran,Iran China,China China,China China,China China,China China,China China,China China,U.S

for Venndiagramthen

Copy & Paste the Code in R to Rstudio

data<-list(countryA=c("Taiwan","Canada","U.K","China","China","China","Singapore","South Korea","China","South Korea","U.S","China","China","Grenada","South Korea","Ireland","France","China","China","Hong Kong","China","China","South Korea","China","China","Taiwan","China","China","Italy","U.S","Spain","Taiwan","China","China","Canada","Australia","China","China","China","U.S","U.K","China","China","China","China","China","South Korea","China","South Korea","China","China","India","South Korea","Taiwan","China","China","China","Hong Kong","Germany","China","Taiwan","China","Taiwan","Hong Kong","China","China","Taiwan","China","China","China","Spain","U.S","China","China","U.K","U.S","China","China","China","China","China","U.K","China","South Korea","China","China","China","China","China","China","China","Iran","China","China","China","China","China","China","China") ,countryB=c("Taiwan","Canada","U.K","China","China","China","Singapore","South Korea","China","South Korea","U.S","China","China","Grenada","South Korea","Ireland","France","China","U.S","China","China","China","South Korea","China","U.S","Taiwan","China","China","Italy","U.S","Spain","Taiwan","Hong Kong","China","Canada","Australia","China","China","China","U.S","U.K","China","China","China","China","China","South Korea","China","South Korea","China","China","India","South Korea","Taiwan","China","China","China","Hong Kong","Germany","Australia","Taiwan","China","Taiwan","China","China","China","Taiwan","China","China","China","Spain","U.S","China","China","U.K","U.S","China","China","China","China","China","U.K","China","South Korea","China","China","China","China","China","China","China","Iran","China","China","China","China","China","China","U.S") ) if (!require(devtools)) install.packages("devtools") devtools::install_github("yanlinlin82/ggvenn") library(ggvenn) ggvenn(data,fill_color = c("#0073C2FF","#EFC000FF"),stroke_size = 0.5, set_name_size = 4 )