R 如何在ggplot中绘制3个变量分隔带？

我想创建一个时间序列图，显示两个变量是如何随时间变化的，并将它们涂成相应的颜色

我有两个地区，英格兰和威尔士，我计算了每个地区的总税收和总收入

我想使用years变量，在一个

ggplot

上绘制这些数据

我将如何进行此操作并分别为区域着色

我有一个年份变量，我将把它放在x轴上，然后我想在图上绘制

incometax

和

taxpayed

，但显示它们是如何随时间变化的

如何添加第三个轴以获得这两个变量随时间变化的曲线图

我已经尝试过这个代码，但是它没有按照我想要的方式工作

ggplot(tax_data, filter %>% aes(x=date)) +
  geom_line(aes(y=incometax, color=region)) +
  geom_line(aes(y=taxpaid, color=region))+

---

ggplot一开始有点难理解-我猜您正在尝试实现以下目标：

假设您的数据格式为每个日期、incometax和Taxpayed都有一列，我在这里创建一个示例：

library(tidyverse)

dataset <- tibble(date = seq(from = as.Date("2015-01-01"), to = as.Date("2019-12-31"), by = "month"),
                  incometax = rnorm(60, 100, 10),
                  taxpaid = rnorm(60, 60, 5))

现在您有三个这样的列-我们已将以前的列名转换为变量

name

：

# A tibble: 6 x 3
  date       name      value
  <date>     <chr>     <dbl>
1 2015-01-01 incometax 106. 
2 2015-01-01 taxpaid    56.9
3 2015-02-01 incometax 112. 
4 2015-02-01 taxpaid    65.0
5 2015-03-01 incometax  95.8
6 2015-03-01 taxpaid    64.6

---

ggplot

故意使次要的

y

轴变得困难，因为它通常使用得很差。你可以看到。

# A tibble: 6 x 3
  date       name      value
  <date>     <chr>     <dbl>
1 2015-01-01 incometax 106. 
2 2015-01-01 taxpaid    56.9
3 2015-02-01 incometax 112. 
4 2015-02-01 taxpaid    65.0
5 2015-03-01 incometax  95.8
6 2015-03-01 taxpaid    64.6

ggplot(dataset, aes(x = date, y = value, colour = name)) + geom_line()