| Marc Kupietz | 899ba2a | 2022-03-17 21:50:22 +0100 | [diff] [blame^] | 1 | df <- read_tsv("performance.tsv") |
| 2 | ylabel <- colnames(df)[7] |
| 3 | colnames(df)[7] <- "perf" |
| 4 | df %>% |
| 5 | fill(Tool) %>% |
| 6 | filter(Tool!="wc", !is.na(perf)) %>% |
| 7 | arrange(desc(perf)) %>% |
| 8 | mutate(tool = paste0(Tool, if_else(is.na(Model), "", paste0(" (", Model, ")")))) %>% |
| 9 | mutate(Tool= factor(tool) %>% fct_reorder(perf)) %>% |
| 10 | ggplot(aes(x=Tool, y=perf)) + |
| 11 | geom_col() + |
| 12 | ylab("Tokens/ms") + |
| 13 | xlab(NULL) + |
| 14 | coord_flip()# + |
| 15 | # geom_text(aes(label=perf), position=position_stack(vjus=0.5), hjust=0.25) |
| 16 | #ggsave("/tmp/tok_perf.png", width = 70 * .pt, height = 40 *.pt, units = "mm", dpi = 600) |