ggplot(data) +
geom_bar(aes(x = x, y = Number, fill = group),
stat="identity", position = position_dodge(width = 0.9)) +
geom_line(aes(x = x, y = Rate, group = group, color = group)) +
scale_fill_manual(values = c("#fab79c", "#9fadd5")) +
scale_color_manual(values = c("#b20738", "#00549e"))+
theme(legend.title = element_blank())+
guides(fill=guide_legend(title = NULL))