⌘+C
ggplot(item_information_all %>% filter(item %in% 17:22)) +
aes(x = factor, y = item, height = info,
group = item, color = as.factor(item),
fill = as.factor(item)) +
::geom_ridgeline(alpha = 0.75) +
ggridgesggtitle("Peer Social Capital: Information Functions") +
theme_ridges()