How can I make the legend horizontal in the euler plot in R?

Question

I\'m having difficulty styling this euler plot. One of my main issues is that I\'d like the legend to be on the bottom, but display the variables horizontally. They look str