Render a text parallel with ggplot2
perseus_parallel(perseus_df, words_per_row = 6)
perseus_df | a data frame obtained from |
---|---|
words_per_row | adjusts the words displayed per "row". |
a ggplot object
# NOT RUN { tibble::tibble(label = c("Colossians", rep("1 Thessalonians", 2), "Romans"), excerpt = c("1.4", "1.3", "5.8", "8.35-8.39")) %>% dplyr::left_join(perseus_catalog) %>% dplyr::filter(language == "grc") %>% dplyr::select(urn, excerpt) %>% as.list() %>% purrr::pmap_df(get_perseus_text) %>% perseus_parallel() # }