79622839

Date: 2025-05-15 07:46:55
Score: 1
Natty:
Report link
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))

enter image description here

Reasons:
  • Probably link only (1):
  • Has code block (-0.5):
  • Low reputation (0.5):
Posted by: tengy