Grouping data for multiple variables by a single variable

Question

In the following dataset, I want to do two things

pt_id <- c(1,1,1,1,1,2,2,2,3,3,3,3,3,4,4,4,4)
Tobacco <- c("once","twice","ne