Проблема с осью X и барами ошибок (линейный график с двумя линиями) в ggplot2

Question

Данные ниже:

У меня проблемы с осью X, так как она теряет свой порядок при запуске кода.Я ищу, чтобы получить ось, которая работает от 1 до 14 (уровни упорядочены 1 t0 14).

Данные суммированы для формата R:

chlo <- data.frame(Culture=rep(c("Axenix", "Mixed"), each=14),
                   Time=rep(c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14"),2),
                   Growth=c(4246443, 5863739, 10599835, 19379643, 23071353, 26763062,   29143319,   30373889,   32800365,   34080042,   35359719,   36642284,   38629683,   39663824, 4238613,  3983333, 8383333, 11266667, 14600000,   17933333,   23400000,   25866667,   29333333,   32116667,   34900000,   42833333,   50200000,   54200000))

str(chlo)

Просмотр уровней

chlo$Time
1  2  3  4  5  6  7  8  9  10 11 12 13 14 1  2  3  4  5  6  7  8  9  10 11 12 13 14
Levels: 1 10 11 12 13 14 2 3 4 5 6 7 8 9

IУ меня также возникают проблемы при добавлении вертикальных столбцов стандартного отклонения:

Для первых значений от 1 до 14 (Axenic) соответствующие значения SD: (+ & -):

249116, 960902, 2712164,    991667, 914799, 843048, 1826696,    2050218, 3457363,   3664220,    3876349,    4410793, 5123502,   5193421

Для второго наборазначений от 1 до 14 (смешанные), значения соответствующих sd (+ & -):

44621,  980221, 1871719,    332916, 326917, 321455, 4200000,    2013289,    2386071,    2559460,    3207803,    2773686,    2170253, 5102940

Answer 1

Time - это непрерывная мера, и она должна быть числовой:

chlo$Time<-as.numeric(chlo$Time)

# install.packages("ggplot2") #uncomment and run if you don't have this package
library(ggplot2)
ggplot(chlo,aes(x=Time,y=Growth, colour=Culture))+
  geom_point()+
  geom_line()

Вопрос с ошибками является отдельным и имеетбыл задан много раз, поиск для функции geom_errorbars().

http://www.sthda.com/english/wiki/ggplot2-error-bars-quick-start-guide-r-software-and-data-visualization