library(tidyr)

df <- data.frame(alphabet = c("a,b,c", "d", "e,f"), num = c(3, 1, 2))
separate_rows(df, alphabet, sep = ",")