Я хотел бы знать, возможно ли построить график с различными элементами на оси 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")