library(magrittr)
filename = "buffer_link_throughput.csv"

readLines(filename) %>% 
  paste0(collapse="\n") %>% 
  openssl::base64_encode() -> encoded

Download CSV

clustered bar plot

library(ggplot2)
library(tidyverse)
## Loading tidyverse: tibble
## Loading tidyverse: tidyr
## Loading tidyverse: readr
## Loading tidyverse: purrr
## Loading tidyverse: dplyr
## Conflicts with tidy packages ----------------------------------------------
## filter(): dplyr, stats
## lag():    dplyr, stats
data <-read.csv(filename)
data
##    Buffer  link     total
## 1    0.05    3g 0.6909158
## 2    0.05 mptcp 1.9808264
## 3    0.05  wifi 1.9142475
## 4    0.10    3g 0.6755378
## 5    0.10 mptcp 1.9798465
## 6    0.10  wifi 1.9420132
## 7    0.20    3g 0.8168506
## 8    0.20 mptcp 1.9786626
## 9    0.20  wifi 1.9421076
## 10   0.50    3g 0.8532707
## 11   0.50 mptcp 2.5429869
## 12   0.50  wifi 1.9274551
ggplot(data, aes(factor(Buffer), total)) + geom_bar(aes(fill = link), stat = "identity", position = "dodge")  +
labs(x = "Rev/Snd Buffer Size in MB", y = "throughput")