R function to join to summaries

Question

I want to merge these two into the example as above. How do I go about this? I created these using this kind of code:

kids1 <- segmentdata %>%
  summarise(&