Построение графика с различными маркерами на оси X - PullRequest
0 голосов
/ 30 апреля 2020

Я хотел бы знать, возможно ли построить график с различными элементами на оси X. У меня есть набор данных о количестве коронарных инфекций в каждой стране и мерах, принятых страной для предотвращения распространения. В итоге я хочу, чтобы, например, если мера была принята 1 января, на оси абсцисс показана мера XXX для количества коронарных инфекций. Так, например, Нидерланды начали с 03.09.2020 г. гигиеническими мерами c и 12.03.2020 г. с мерами социального дистанцирования. Я хотел бы иметь график, который показывает на оси у количество случаев короны и на оси х маркер для мер. В этом случае гигиенические c и меры социального дистанцирования.

Так выглядит набор данных, где 0 равно отсутствию ввода меры, а 1 -.

$ date: chr [1 : 362] "27/02/2020" "28/02/2020" "29/02/2020" "01/03/2020" ...

$ подтверждено: num [1: 362] 1 1 6 10 18 24 38 82 128 188 ...

$ смертей: num [1: 362] 0 0 0 0 0 0 0 0 1 1 ...

$ восстановлено: num [1: 362] 0 0 0 0 0 0 0 0 0 0 ...

$ страна: chr [1: 362] "Нидерланды" "Нидерланды" "Нидерланды" "Нидерланды" ...

$ arStart: num [1: 362] 1 2 3 4 5 6 7 8 9 10 ...

$ Gezondheidsavies (handen was, geen handen schudden): num [1: 362] 0 0 0 0 0 0 0 0 0 0 ...

$ 1,5 метра на расстоянии: num [1: 362] 0 0 0 0 0 0 0 0 0 0 ...

$ Thuiswerken ingevoerd: num [1: 362] 0 0 0 0 0 0 0 0 0 0 ...

$ Безокий лимит (макс. 3 чел.): num [1: 362] 0 0 0 0 0 0 0 0 0 0 ...

$ Evenementen afgelast: num [1: 362] 0 0 0 0 0 0 0 0 0 0 ...

$ Onderwi js maatregelen: num [1: 362] 0 0 0 0 0 0 0 0 0 0 ...

$ Buitenlandse reizen maatregelen: num [1: 362] 0 0 0 0 0 0 0 0 0 0 ...

$ Winkels, ov en andere openbare locaties maatregelen: num [1: 362] 0 0 0 0 0 0 0 0 0 0 ...

$ Contactberoepen verboden (kappers et c.): Num [1: 362] 0 0 0 0 0 0 0 0 0 0 ...

$ Sluiting verzorgingshuizen: num [1: 362] 0 0 0 0 0 0 0 0 0 0 ...

$ блокировка: num [1: 362] 0 0 0 0 0 0 0 0 0 1 ...

$ карантин: num [1 : 362] 0 0 0 0 0 0 1 1 1 1 ...

Я пытался сделать это с помощью этого кода:

ggplot(dfCovid19, aes(x = as.Date(date), y = confirmed, group= country, colour = country)) + geom_line(size = 0.5) + geom_point(aes(shape = NULL), size = 1) + xlab("Date") + ylab("Confirmed cases")
...