如何在时间序列数据上创建facet_grid？

Question

我有一个像这样的数据集：

我想显示趋势，x轴包含年份值，y轴显示列中的相应值，所以也许

 ggplot(data,aes(year,bm))

我不仅要绘制一列，还可能要绘制更多列。 就像在一个情节中一样，我想使用facet_grid来将情节很好地排列在一起，似乎过于详尽。 但是，它对我的​​数据不起作用，因为我认为没有可比较的“真实”对象。 有谁知道如何实现facet_grid，以至于它像这样出现（可能是p1 = BM和p2 = BMSW）：

Answer 1

问题是您的数据格式。 这是一些假数据的例子

library(tidyverse)

##Create some fake data
set.seed(3)
data <- tibble(
    year = 1991:2020,
    bm = rnorm(30),
    bmsw = rnorm(30),
    bmi = rnorm(30),
    bmandinno = rnorm(30),
    bmproc = rnorm(30),
    bmart = rnorm(30)
)

##Gather the variables to create a long dataset
new_data <- data %>%
    gather(model, value, -year)

##plot the data
ggplot(new_data, aes(x = year, y = value)) + 
    geom_point() + 
    geom_smooth(method = "lm", se = FALSE) + 
    facet_grid(~model)