Question

我想使用两个常规字符列为嵌套的小标题中的一系列图形创建标题和字幕。我可以使用.x和.y功能在标题中添加一列。例如：

    library(tidyverse)

    df <- mtcars %>%
      filter(carb %in% c(1, 2, 4)) %>%
      mutate(carb = as.character(carb), gear = as.character(gear))

    df_with_plots <- df %>% 
      group_by(carb, gear) %>% 
      nest() %>% 
      mutate(plot = map(data, function(.x) { 
        .x  %>%
          ggplot() +
          geom_histogram(aes(mpg))
      }))

df_with_plots
 carb  gear    data             plot  
  <chr> <chr> <list>           <list>
1 4     4     <tibble [4 × 9]> <gg>  
2 1     4     <tibble [4 × 9]> <gg>  
3 1     3     <tibble [3 × 9]> <gg>  
4 2     3     <tibble [4 × 9]> <gg>  
5 4     3     <tibble [5 × 9]> <gg>  
6 2     4     <tibble [4 × 9]> <gg>  
7 2     5     <tibble [2 × 9]> <gg>  
8 4     5     <tibble [1 × 9]> <gg>  

    figs <- map2(df_with_plots$plot, df_with_plots$gear, ~ .x + labs(title = paste("Number of gears", .y))) 

    figs[[1]]

这将产生一系列图形，其中一系列图形的标题中带有“齿轮数” .y。如何在标题中同时获取齿轮和碳水化合物（前两列）？

Answer 1

这是我之前写的东西，数据也是嵌套的数据框。我没有电脑，所以无法创建您的示例。

plots_bar <- plots_bar_data %>% 
  mutate(plots = map2(data, Source, function(.x, .y){ .x %>% 
    ggplot(aes(x= .x$n, y=.x$nn)) +
  geom_bar(stat="identity", fill= farver[2]) + 
  geom_text(aes(label=.x$nn), vjust = -.5) +
  scale_y_continuous(breaks = seq(0, 45, 5)) +
  scale_x_continuous(breaks = seq(0, 24, 2)) +
  labs(y = "Antal dage", 
       x="Antal scanninger",
       title = paste0(.y, ": Antal dage med antal scanninger")) +
      my_theme
  }))


#   for(i in 1:4){
# print(plots_bar$plots[[i]])
# }

从嵌套的标题中的2个不同的列中提取标题和字幕

1 个答案: