Блог

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

 x <- c("13.86", "57.02", "8.63","22.14") 
M <- c("Stage 1","Stage 2","Stage 3","REM")

hist(x)
par(mfrow = c(1, 1))
barplot(x, xlab="Average Percent of Time in Each Sleep Stage", 
        names.arg = M, ylab="Percent",col="blue",
        main="Average Percent of Time in Each Sleep Stage",border="blue", 
        yaxp=c(0, 100, 10))
  

Вы можете видеть ниже, что, хотя я указал ограничение по оси y на 100, на самом деле оно так не отображается. Может кто-нибудь, пожалуйста, помочь?

Кроме того, я хотел бы, чтобы горизонтальная линия для оси x и заголовок были над графиком. Для создания горизонтальной линии я попробовал abline (h = 0), но получил сообщение об ошибке.

Может кто-нибудь помочь?

Вы можете использовать ylim для изменения ограничений по оси y и использовать abline со h значением для горизонтальной линии gte.

 x <- c(13.86, 57.02, 8.63,22.14) 
M <- c("Stage 1","Stage 2","Stage 3","REM")

barplot(x, xlab="Average Percent of Time in Each Sleep Stage", 
        names.arg = M, ylab="Percent",col="blue",
        main="Average Percent of Time in Each Sleep Stage",border="blue", 
        ylim = c(0, 100))
abline(h=100, col="blue")