R 如何从两个变量的频率生成可理解的时间演化vizual图

具有数据帧的结果：

dframe <- structure(list(stock = c("Google, Yahoo", "Google", "Google, Yahoo", 
                                   "Google, Yahoo", "Amazon, Google", "Amazon, Google", "Amazon, Google"
), investor = c("Nathalie", "George", "Nathalie", "George", "Melanie", 
                "George", "Melanie"), year = c("2017", "2018", "2017", "2017", 
                                               "2018", "2018", "2017"), n = c(2L, 1L, 2L, 1L, 1L, 1L, 1L)), class = c("tbl_df", 
                                                                                                                      "tbl", "data.frame"), row.names = c(NA, -7L))

dframe
您是否在寻找一个堆叠条形图，其中一个系列是Nathalie Google，一个是Nathalie Yahoo，等等，年份在x轴上？@JonSpring正如您所描述的，我认为是的，这是正确的选择。Y轴将具有frq？
# A tibble: 7 x 4
  stock          investor year      n
  <chr>          <chr>    <chr> <int>
1 Google, Yahoo  Nathalie 2017      2
2 Google         George   2018      1
3 Google, Yahoo  Nathalie 2017      2
4 Google, Yahoo  George   2017      1
5 Amazon, Google Melanie  2018      1
6 Amazon, Google George   2018      1
7 Amazon, Google Melanie  2017      1

library(tidyverse)
dframe %>%
  separate_rows(stock) %>%
  count(stock, investor, year, wt = sum(n)) %>%
  ggplot(aes(year, n, fill = interaction(investor, stock))) +
  geom_col()