我的代码:
- final_data<-cleaned_data%>%mutate(depressed2=ifelse(depressed=="All","Extremely",ifelse(depressed=="Most","Severe",ifelse(depressed=="Some","Moderately",ifelse(depressed=="A little","Mild","")))))
- ggplot(final_data)+geom_mosaic(aes(x=product(age),fill=depressed2))
目前输出的图像:


雷达卡





京公网安备 11010802022788号







