changes 5

Author: jarochi

R/map_dumbbell.R

@@ -23,7 +23,6 @@ p <- lapply(full_df_mod$cat %>% levels(), function(i){
     xlab("Dates")
 })
 
-
 # pw_plot <- (p[[1]] & theme(legend.position = "bottom")) + ((p[[2]] / p[[3]] / p[[4]]) & theme(legend.position = "none")) + plot_layout(guides = "auto")
 
 pw_plot <- (p[[1]] | (p[[2]] / p[[3]] / p[[4]] & theme(legend.position = "none")) + plot_layout(axes = "collect", axis_titles = "collect"))

_freeze/subsite/team/execute-results/html.json

@@ -34,7 +34,7 @@ load("../data/bg_df_data.RData")
 library(openalexR)
 library(tidyverse)
 
-full_df_mod <- full_df %>% filter(team == "main")
+full_df_mod <- full_df %>% filter(team != "other")
 
 source("../R/map_dumbbell.R")
 ```