> glimpse(mn)
Observations: 63
Variables: 5
$ date <dttm> 2020-03-06, 2020-03-07, 2020-03-08, 2020-03-09, 2020-0…
$ state <chr> "Minnesota", "Minnesota", "Minnesota", "Minnesota", "Mi…
$ fips <dbl> 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27, 27,…
$ cases <dbl> 1, 1, 2, 2, 3, 5, 9, 14, 21, 35, 54, 60, 77, 89, 115, 1…
$ deaths <dbl> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1…
> glimpse(events)
Observations: 7
Variables: 2
$ date <date> 2020-03-06, 2020-03-13, 2020-03-15, 2020-03-16, 2020-03…
$ event <chr> "First Cases Confirmed", "State of emergency Declared", …
我为MN案例创建了一个情节
mn_plot <- ggplot(mn, aes(x = date, y = cases)) +
geom_line() +
ggtitle("COVID-19 Cases in Minnesota") +
xlab("Date(2020)") +
ylab("Cases")
想添加一些重要的日期，所以我这样做了
events <- tribble(
~ date, ~ event,
"2020-03-06", "First Cases Confirmed",
"2020-03-13", "State of emergency Declared",
"2020-03-15", "Temporary shut down of schools",
"2020-03-16", "All non-erssential businesses close",
"2020-03-21", "First death recorded in MN",
"2020-04-08", "Stay-at-Home Order Placed",
"2020-04-30", "Stay-at-Home Order Extended",
) %>%
mutate(date = as.Date(date))
现在，我想将刚才创建的tribble添加到绘图中，以显示事件发生时的时间戳。
mn_plot +
geom_vline(data = events, aes(xintercept = as.numeric(date)), linetype = "dotted")
我的问题是垂直线不会显示。
这是我正在使用的软件包：
library("readxl")
library(dplyr)
library(ggplot2)
library(tidyverse)
library(scales)
library(lubridate)
