L

Size: a a a
L
L
O
LD
L
O
LD
LD
LD
L
O
MS
{r}
library(tidyverse)
library(data.table)
library(reshape2)
glycan_names = c("H4N2", "H5N2", "H6N2", "H4N3F1", "H4N4F1", "H5N4", "H5N4F1", "H5N5F2", "H6N2P1", "H4N3E1", "H4N3L1", "H3N4E1", "H6N3P1", "H4N3F1E1")
gsub("(\\d)(\\D)", "\\1 \\2", glycan_names) %>%
str_split(" ") %>%
lapply(function(x) tibble(name = paste0(x, collapse = ""), tmp = x)) %>%
rbindlist %>%
mutate(tmp = gsub("(\\D)(\\d)", "\\1 \\2", tmp)) %>%
separate(tmp, sep=" ", into = c("glycan", "count")) %>%
dcast(name ~ glycan, value.var = "count", fill = 0)
MS
Е
VK
{r}
library(tidyverse)
library(data.table)
library(reshape2)
glycan_names = c("H4N2", "H5N2", "H6N2", "H4N3F1", "H4N4F1", "H5N4", "H5N4F1", "H5N5F2", "H6N2P1", "H4N3E1", "H4N3L1", "H3N4E1", "H6N3P1", "H4N3F1E1")
gsub("(\\d)(\\D)", "\\1 \\2", glycan_names) %>%
str_split(" ") %>%
lapply(function(x) tibble(name = paste0(x, collapse = ""), tmp = x)) %>%
rbindlist %>%
mutate(tmp = gsub("(\\D)(\\d)", "\\1 \\2", tmp)) %>%
separate(tmp, sep=" ", into = c("glycan", "count")) %>%
dcast(name ~ glycan, value.var = "count", fill = 0)
MS
LD
MS
VK
VK