RStudio__selection_untitled_9D45B5CF

library(tidyverse)
d <- tibble::tribble(
  ~disease, ~gene, ~chr, ~inheritance,
  "flu",   "x",   1L, "infectious",
  "flu",   "y",   2L, "infectious",
  "flu",   "z",   3L, "infectious",
  "aids",   "x",   1L,         "st",
  "aids",   "p",   4L,         "st"
) %>% print()

d %>% 
  group_by(disease) %>% 
  mutate_at(vars(gene, chr), ~paste(., collapse=";")) %>% 
  ungroup() %>% 
  distinct()