在R中创建多个图形时，如何从group_by（dplyr）变量分配图形标题

Question

长期读者，第一次在这里提问。

我正在使用plotly和dplyr的group_by创建多个图(group_by变量的每个级别一个图形)。

在下面的示例中，我每年创建一个绘图（group_by变量），我想将年份分配为图形标题。但是，我不知道如何使用数据帧（或tibble）中的存储值来分配标题。

任何建议都非常感谢！谢谢大家！

require(dplyr)
require(plotly)

# creating data table
d = tibble(year=rep(2016:2017,2), type=c(1,1,2,2), amount=1:4)
d

# creating 2 figures, grouped by year (one for each year).  
# Using the same title for each figure (this code works).
chart = d %>% 
  group_by(year) %>%
  do(plots = plot_ly(., values = ~amount, type = 'pie') %>% layout(title="Great Title") )

# printing first plot
chart$plots[1][[1]]

# I'd like the title of each figure to be the year.  
# I get an error when I try to assign the title with the year variable.
chart.title = d %>% 
  group_by(year) %>%
  do(plots = plot_ly(., values = ~amount, type = 'pie') %>% layout(title=year) )

Answer 1

这并不复杂，因为您可以通过< code >访问本地year变量。$year，因此是通过< code >的唯一年份。$year[1](因为每个组中的< code>year是一个常数)。

但是由于重复使用了< code>%,所以会出现问题

chart = d %>% 
  group_by(year) %>%
  do(plots = layout(
    plot_ly(., values = ~amount, type = 'pie'), 
    title = paste('Chart of year', .$year[1]))
  )
chart$plots[1][[1]]

Answer 2

在tidyverse中，purrr是迭代元素的工具，也是函数式编程的助手。将purrr和嵌套data.frame与列表列相结合是一个强大的工作流程。然后你可以像group_by和一样做，但它更强大。
我在某个地方读到它可以替换dplyr::do。

以下是您的问题的解决方案：tidyverseway

library(dplyr, warn.conflicts = F)
library(plotly)
# for iteration and fonctionnal programming
library(purrr)
# for nesting dataframe
library(tidyr)

# creating  the data
d <- tibble(year=rep(2016:2017,2), type=c(1,1,2,2), amount=1:4)
d
#> # A tibble: 4 x 3
#>    year  type amount
#>   <int> <dbl>  <int>
#> 1  2016     1      1
#> 2  2017     1      2
#> 3  2016     2      3
#> 4  2017     2      4

当您想按年份工作时，您可以按年份嵌套数据，并有一个每年一行的tibble和一个名为data的列表列，其中每个元素都是tibble，该行是当年初始数据的子集

nested_data <- d %>% 
  nest(-year)
nested_data
#> # A tibble: 2 x 2
#>    year             data
#>   <int>           <list>
#> 1  2016 <tibble [2 x 2]>
#> 2  2017 <tibble [2 x 2]>

带有< code>map系列的< code>purrr函数允许您遍历列表。结合< code>dplyr动词，我们将添加一个包含< code>plotly图形的列。< code>map2接受两个参数，即列表列数据和列年份，并应用一个函数，我们得到一个列表，结果将存储在另一个名为plots的列表列中

charts <- nested_data %>%
  mutate(plots = map2(data, year, ~ plot_ly(.x, values = ~amount, type = 'pie') %>% layout(title = .y)))

您可以继续使用此tibble。绘图将与数据一起计算和存储。

charts
#> # A tibble: 2 x 3
#>    year             data        plots
#>   <int>           <list>       <list>
#> 1  2016 <tibble [2 x 2]> <S3: plotly>
#> 2  2017 <tibble [2 x 2]> <S3: plotly>

要手动打印绘图，您可以访问它

charts$plots[1]
#> [[1]]

您可以使用purrr遍历列表列并打印所有绘图#这将在RStudio查看器中打印绘图print_plot

总之，您可以在tidyverse生态系统中，用nest和purrr函数替换group_bydo。

charts <- d %>%
  nested(- year) %>%
  mutate(plots = map2(data, year, ~ plot_ly(.x, values = ~amount, type = 'pie') %>% layout(title = .y)))