Почему сегменты не отображаются правильно?

Question

Итак, у меня есть этот код:

HealthyD1 <-  1
HealthyD2 <- 1.02739726
HealthyD4 <- 1.01369863

IllD1 <- 1
IllD2 <- 1.28
IllD4 <- 1.48


barplot(c(HealthyD1, HealthyD2, HealthyD4, IllD1, Ill3D2, IllD4), 
        ylim = c(0, 1.6), names.arg = rep(c("D1", "D2", "D4"), 2),
        ylab = "Number", main = "Number of patients",
        col = c("lightskyblue1", "lightskyblue3", "lightskyblue4",
                "plum1", "plum", "plum4"), xpd = FALSE)


segments(x0 = 0, y0 = 0, x1 = 7, lwd = 1.4)
segments(x0 = 0.22, y0 = -0.3, x1 = 3.6, lwd = 1.4)
segments(x0 = 3.83, y0 = -0.35, x1 = 7.15, lwd = 1.4)

axis(1, at = 1.99, labels = "Healthy", pos = -0.2, tick = FALSE)
axis(1, at = 5.55, labels = "Ill", pos = -0.2, tick = FALSE)

Я хочу нанести на график данные, как вы можете видеть. Я также хочу нарисовать пару сегментов чуть выше «Здоровых» и «Заболевших». Я запускал этот код пару дней go, и он работал, как я хотел, но теперь эти сегменты не появляются. Почему это происходит? Как я могу это исправить? Заранее спасибо!

Answer 1

Вы пытаетесь построить график ниже бара, я думаю, вам нужно установить xpd=TRUE?

barplot(c(HealthyD1, HealthyD2, HealthyD4, IllD1, IllD2, IllD4), 
        ylim = c(0, 1.6), names.arg = rep(c("D1", "D2", "D4"), 2),
        ylab = "Number", main = "Number of patients",
        col = c("lightskyblue1", "lightskyblue3", "lightskyblue4",
                "plum1", "plum", "plum4"), xpd = FALSE)


segments(x0 = 0, y0 = 0, x1 = 7, lwd = 1.4,xpd=TRUE)
segments(x0 = 0.22, y0 = -0.3, x1 = 3.6, lwd = 1.4,,xpd=TRUE)
segments(x0 = 3.83, y0 = -0.35, x1 = 7.15, lwd = 1.4,,xpd=TRUE)

axis(1, at = 1.99, labels = "Healthy", pos = -0.2, tick = FALSE)
axis(1, at = 5.55, labels = "Ill", pos = -0.2, tick = FALSE)