绘制带有日期和两个轴的条形图-R ggplot2

请帮助指导正确的绘图方法

我有一个关于一些纪念碑的数据集，以及它们被列为市政遗产的年份

纪念碑 年 A. 1990 B 1990 C 1993 D 1995 E 1996

---

对于ggplot2中的次轴，通常需要记住的是：（1）您需要自己变换输入数据；（2）您需要在次轴中指定逆变换。下面是一个使用一些虚拟数据的示例，我们只需使用

10

的比例因子

库（ggplot2）
df所以我总是发现在
ggplot2
中创建次轴是不直观的（这是设计的-
ggplot2
包作者不鼓励次轴，因为它们经常被误解）。但是，如果必须使用，
echarts4r
包有一个简单的解决方案

library(echarts4r)
library(dplyr)
library(zoo)

d <- data.frame(
  monument = c("A","B","C","D","E"),
  year = c(1990, 1990, 1993, 1995, 1996)) 

plot_dat <-
  data.frame(year = seq.int(min(d$year), max(d$year))) %>%
  left_join(d %>%
            group_by(year) %>%
            summarize(cnt = n()) %>%
            mutate(cum_cnt = cumsum(cnt))
  ) %>%
  mutate(year = paste(year),
         cum_cnt = na.locf(cum_cnt),
         show = T)
  

plot_dat %>%
  e_charts(year) %>%
  e_bar(cnt) %>%
  e_add("label", show) %>%
  e_line(cum_cnt, y_index = 1) %>% 
  e_hide_grid_lines("y")

库（echarts4r）
图书馆（dplyr）
图书馆（动物园）
d%
组别(年份)%>%
汇总（cnt=n（））%>%
突变（cum_cnt=cumsum（cnt））
) %>%
突变（年=粘贴（年），
cum_cnt=na.locf（cum_cnt），
show=T）
绘图数据%>%
e_图表（年）%>%
电子束（碳纳米管）%>%
e_添加（“标签”，显示）%>%
e_线（cum_cnt，y_指数=1）%>%
e_隐藏网格线（“y”）

上面的代码生成。我做了一个执行决定，只显示次轴的y轴网格线，因为这些条很容易用标签标注

谢谢你的发帖！我想要一个好的借口来学习echarts4r