小编Urg*_*rgo的帖子

我有以下数据框：

 df <- structure(list(Source = structure(c(1L, 1L, 2L, 2L, 1L, 1L, 2L,2L, 1L, 1L, 2L, 2L), .Label = c("Nutrition", "Supplements"), class = "factor"),Gender = c("Female", "Male", "Female", "Male", "Female","Male", "Female", "Male", "Female", "Male", "Female", "Male"), vitamins = c("Carbohydrates", "Carbohydrates", "Carbohydrates","Carbohydrates", "Free sugars", "Free sugars", "Free sugars","Free sugars", "Dietary fibre", "Dietary fibre", "Dietary fibre","Dietary fibre"), percentage = c(103.257255625661, 103.435668737283,12.1783865511905, 10.3397081952058, 26.9383952366656, 14.6831075438958,66.1535947328921, 62.5632737468906, 161.653065420191, 205.648132846479,50.7043993619127, 48.5061463560061)), row.names = c(NA, -12L), class = c("tbl_df", "tbl", "data.frame")) 

我想创建这个没有小面的图表，只有填充、颜色和线型。我花了两个小时想弄清楚，但我不知道该怎么做。

顺序非常重要。第一个应该是比例最高的一组“维生素”。有没有办法减少组内条形图之间的差距？有没有办法将性别添加为第二个图例，其中男性类别将带有条纹？

非常感谢您的帮助。