Добавьте общую легенду для нескольких сюжетов в R, используя par () - PullRequest
Новая
       47

Добавьте общую легенду для нескольких сюжетов в R, используя par ()

0 голосов
/ 12 апреля 2020

Я пытаюсь указать легенду в правильном положении. Я использую этот код: 

text <-c("1 = HTN", "2 = Diabetes 2", "3 = Rheumatoid Arthritis", "4 = Chronic Kidfailure", "5 = Heart Failure", "6 = Depression", "7 = Heart Attack", "8 = Stroke", "9 = Spinal problems", "10 = Angina", "11 = Asthma", "12 = Work Osteomuscular", "13 = Emphysema", "14 = Cancer", "15 = Chronic Bronchitis", "16 = RTI", "17 = Alcohol")

par(mfrow=c(2,2), oma = c(0, 0, 0, 6), mar = c(0, 0, 0, 0))
plot(network_reg2)
plot(network_reg3)
plot(network_reg4)
plot(network_reg5)
legend("topright", 
       legend = text, 
       xpd = TRUE, 
       horiz = FALSE, 
       inset = c(0,0),
       bty = "y",
       cex = 0.7)

Но это выглядит так. Кто-нибудь знает, что я делаю не так?

Легенды перекрываются на графике

...