如何在汇总和绘图时将我的 faceting 变量保留在数据中？答案

【问题标题】：How to I keep my faceting variable in the data while summarising and plotting?如何在汇总和绘图时将我的 faceting 变量保留在数据中？
【发布时间】：2019-12-10 09:24:07
【问题描述】：

随着时间的推移，我成功地想象了我们学生的地理起源。变量 NYA_REGION_GROV 表示不同区域的名称。

我首先将我的观察结果按入学轮次分组，然后按地区分组（因为入学轮次中的不同地区加起来应该是 100%）。

我写：

fulldata%>%
group_by(ADMISSIONROUND_ID,NYA_REGION_GROV)%>%
summarise(antal=n())%>%
mutate(andel=antal/sum(antal))%>%
ungroup()%>%
ggplot(aes(x=ADMISSIONROUND_ID,y=andel,color=NYA_REGION_GROV, group=NYA_REGION_GROV))+geom_line()+
scale_y_continuous(labels = scales::percent)

我得到：

现在我想通过我的性别变量“KON_SV”来分面数据。

fulldata%>%
group_by(ADMISSIONROUND_ID,NYA_REGION_GROV)%>%
summarise(antal=n())%>%
mutate(andel=antal/sum(antal))%>%
ggplot(aes(x=ADMISSIONROUND_ID,y=andel,color=NYA_REGION_GROV, group=NYA_REGION_GROV))+
geom_line()+
scale_y_continuous(labels = scales::percent)+ 
facet_wrap(~KON_SV)

但我收到一条错误消息，声称“至少一层必须包含所有分面变量：KON_SV。”

仔细观察，我的绘图对象中似乎只有我原来的 66 个变量（加上我的新变量“antal”和“andel”）中的两个。

group_by 或 summarise 语句是否会以某种方式删除未使用的变量？如何将 KON_SV 保留在我的数据中，以便我可以将其用作分面变量？

只有 3 个变量的小数据摘录：

structure(list(start_date = structure(c(17041, 17041, 17041, 
17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 
17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041), class = "Date"), 
    ADMISSIONROUND_ID = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("HT2016", 
    "HT2017", "HT2018", "HT2019"), class = "factor"), NYA_REGION_GROV = c("FYRSTADSOMRÅDET", 
    "BOHUSLÄN OCH DALSLAND", "STORGÖTEBORG", "FYRSTADSOMRÅDET", 
    "BOHUSLÄN OCH DALSLAND", "STORGÖTEBORG", "STORGÖTEBORG", 
    "BOHUSLÄN OCH DALSLAND", "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", 
    "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", "VÄSTERGÖTLAND", "FYRSTADSOMRÅDET", 
    "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", "STORGÖTEBORG", "STORGÖTEBORG", 
    "FYRSTADSOMRÅDET", "VÄSTERGÖTLAND"), KON_SV = c("kvinna", 
    "man", "kvinna", "kvinna", "man", "man", "kvinna", "man", 
    "man", "man", "man", "kvinna", "kvinna", "man", "kvinna", 
    "man", "man", "man", "man", "man")), row.names = c(NA, -20L
), groups = structure(list(start_date = structure(17041, class = "Date"), 
    .rows = list(1:20)), row.names = c(NA, -1L), class = c("tbl_df", 
"tbl", "data.frame"), .drop = TRUE), class = c("grouped_df", 
"tbl_df", "tbl", "data.frame"))

3 个变量的大摘录

structure(list(start_date = structure(c(17041, 17041, 17041, 
17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 
17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 
17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 
17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 
17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 
17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 
17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 
17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 
17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 
17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 
17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 17041, 
17041, 17041, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 
17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 
17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 
17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 
17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 
17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 
17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 
17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 
17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 
17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 
17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 
17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 
17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 17405, 
17405, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 
17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 
17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 
17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 
17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 
17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 
17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 
17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 
17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 
17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 
17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 
17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 
17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 
17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 
17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 
17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 
17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 17776, 
17776, 17776, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 
18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 
18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 
18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 
18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 
18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 
18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 
18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 
18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 
18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 
18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 
18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 
18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 
18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, 
18140, 18140, 18140, 18140, 18140, 18140, 18140, 18140, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), class = "Date"), 
    ADMISSIONROUND_ID = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
    2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
    2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
    2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
    2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
    2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
    2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
    2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
    2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
    3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
    4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
    4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
    4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
    4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
    4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
    4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
    4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
    4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
    4L, 4L, 4L, 4L, 1L, 2L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 2L, 1L, 
    2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 4L, 2L, 1L, 2L, 2L, 1L, 1L, 
    1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 1L, 1L, 1L, 2L, 
    2L, 2L, 2L, 2L, 2L, 1L, 2L), .Label = c("HT2016", "HT2017", 
    "HT2018", "HT2019"), class = "factor"), NYA_REGION_GROV = c("FYRSTADSOMRÅDET", 
    "BOHUSLÄN OCH DALSLAND", "STORGÖTEBORG", "FYRSTADSOMRÅDET", 
    "BOHUSLÄN OCH DALSLAND", "STORGÖTEBORG", "STORGÖTEBORG", 
    "BOHUSLÄN OCH DALSLAND", "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", 
    "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", "VÄSTERGÖTLAND", "FYRSTADSOMRÅDET", 
    "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", "STORGÖTEBORG", "STORGÖTEBORG", 
    "FYRSTADSOMRÅDET", "VÄSTERGÖTLAND", "STORGÖTEBORG", "STORGÖTEBORG", 
    "BOHUSLÄN OCH DALSLAND", "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", 
    "STORGÖTEBORG", "STORGÖTEBORG", "STORGÖTEBORG", "STORGÖTEBORG", 
    "FYRSTADSOMRÅDET", "STORGÖTEBORG", "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", 
    "FYRSTADSOMRÅDET", "STORGÖTEBORG", "BOHUSLÄN OCH DALSLAND", 
    "STORGÖTEBORG", "FYRSTADSOMRÅDET", "ÖVRIGA LANDET", "oklart", 
    "STORGÖTEBORG", "STORGÖTEBORG", "STORGÖTEBORG", "BOHUSLÄN OCH DALSLAND", 
    "STORGÖTEBORG", "FYRSTADSOMRÅDET", "ÖVRIGA LANDET", "oklart", 
    "ÖVRIGA LANDET", "FYRSTADSOMRÅDET", "oklart", "STORGÖTEBORG", 
    "STORGÖTEBORG", "FYRSTADSOMRÅDET", "STORGÖTEBORG", "STORGÖTEBORG", 
    "FYRSTADSOMRÅDET", "STORGÖTEBORG", "VÄSTERGÖTLAND", "FYRSTADSOMRÅDET", 
    "FYRSTADSOMRÅDET", "STORGÖTEBORG", "FYRSTADSOMRÅDET", "STORGÖTEBORG", 
    "FYRSTADSOMRÅDET", "oklart", "STORGÖTEBORG", "STORGÖTEBORG", 
    "STORGÖTEBORG", "BOHUSLÄN OCH DALSLAND", "oklart", "STORGÖTEBORG", 
    "STORGÖTEBORG", "ÖVRIGA LANDET", "STORGÖTEBORG", "STORGÖTEBORG", 
    "STORGÖTEBORG", "FYRSTADSOMRÅDET", "STORGÖTEBORG", "FYRSTADSOMRÅDET", 
    "STORGÖTEBORG", "FYRSTADSOMRÅDET", "VÄSTERGÖTLAND", "VÄSTERGÖTLAND", 
    "STORGÖTEBORG", "STORGÖTEBORG", "STORGÖTEBORG", "STORGÖTEBORG", 
    "STORGÖTEBORG", "STORGÖTEBORG", "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", 
    "STORGÖTEBORG", "STORGÖTEBORG", "STORGÖTEBORG", "STORGÖTEBORG", 
    "oklart", "FYRSTADSOMRÅDET", "STORGÖTEBORG", "ÖVRIGA LANDET", 
    "oklart", "oklart", "oklart", "oklart", "oklart", "FYRSTADSOMRÅDET", 
    "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", "STORGÖTEBORG", "BOHUSLÄN OCH DALSLAND", 
    "FYRSTADSOMRÅDET", "STORGÖTEBORG", "FYRSTADSOMRÅDET", "oklart", 
    "FYRSTADSOMRÅDET", "STORGÖTEBORG", "FYRSTADSOMRÅDET", "ÖVRIGA LANDET", 
    "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", "STORGÖTEBORG", "ÖVRIGA LANDET", 
    "STORGÖTEBORG", "ÖVRIGA LANDET", "FYRSTADSOMRÅDET", "oklart", 
    "STORGÖTEBORG", "STORGÖTEBORG", "FYRSTADSOMRÅDET", "BOHUSLÄN OCH DALSLAND", 
    "VÄSTERGÖTLAND", "oklart", "oklart", "FYRSTADSOMRÅDET", "STORGÖTEBORG", 
    "oklart", "VÄSTERGÖTLAND", "FYRSTADSOMRÅDET", "STORGÖTEBORG", 
    "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", "STORGÖTEBORG", "STORGÖTEBORG", 
    "STORGÖTEBORG", "VÄSTERGÖTLAND", "STORGÖTEBORG", "VÄSTERGÖTLAND", 
    "oklart", "BOHUSLÄN OCH DALSLAND", "oklart", "oklart", "STORGÖTEBORG", 
    "STORGÖTEBORG", "STORGÖTEBORG", "FYRSTADSOMRÅDET", "VÄSTERGÖTLAND", 
    "FYRSTADSOMRÅDET", "oklart", "STORGÖTEBORG", "FYRSTADSOMRÅDET", 
    "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", "BOHUSLÄN OCH DALSLAND", 
    "STORGÖTEBORG", "STORGÖTEBORG", "STORGÖTEBORG", "FYRSTADSOMRÅDET", 
    "STORGÖTEBORG", "BOHUSLÄN OCH DALSLAND", "STORGÖTEBORG", 
    "VÄSTERGÖTLAND", "oklart", "STORGÖTEBORG", "STORGÖTEBORG", 
    "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", "BOHUSLÄN OCH DALSLAND", 
    "STORGÖTEBORG", "VÄSTERGÖTLAND", "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", 
    "FYRSTADSOMRÅDET", "STORGÖTEBORG", "STORGÖTEBORG", "oklart", 
    "FYRSTADSOMRÅDET", "STORGÖTEBORG", "BOHUSLÄN OCH DALSLAND", 
    "FYRSTADSOMRÅDET", "BOHUSLÄN OCH DALSLAND", "BOHUSLÄN OCH DALSLAND", 
    "STORGÖTEBORG", "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", 
    "STORGÖTEBORG", "oklart", "FYRSTADSOMRÅDET", "STORGÖTEBORG", 
    "STORGÖTEBORG", "STORGÖTEBORG", "FYRSTADSOMRÅDET", "STORGÖTEBORG", 
    "STORGÖTEBORG", "VÄSTERGÖTLAND", "STORGÖTEBORG", "STORGÖTEBORG", 
    "FYRSTADSOMRÅDET", "VÄSTERGÖTLAND", "FYRSTADSOMRÅDET", "VÄSTERGÖTLAND", 
    "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", "STORGÖTEBORG", "oklart", 
    "oklart", "oklart", "oklart", "oklart", "oklart", "BOHUSLÄN OCH DALSLAND", 
    "oklart", "BOHUSLÄN OCH DALSLAND", "VÄSTERGÖTLAND", "oklart", 
    "FYRSTADSOMRÅDET", "STORGÖTEBORG", "oklart", "FYRSTADSOMRÅDET", 
    "oklart", "oklart", "FYRSTADSOMRÅDET", "oklart", "FYRSTADSOMRÅDET", 
    "STORGÖTEBORG", "oklart", "FYRSTADSOMRÅDET", "ÖVRIGA LANDET", 
    "oklart", "BOHUSLÄN OCH DALSLAND", "VÄSTERGÖTLAND", "FYRSTADSOMRÅDET", 
    "oklart", "oklart", "oklart", "STORGÖTEBORG", "STORGÖTEBORG", 
    "oklart", "oklart", "STORGÖTEBORG", "oklart", "oklart", "oklart", 
    "oklart", "oklart", "oklart", "STORGÖTEBORG", "STORGÖTEBORG", 
    "STORGÖTEBORG", "oklart", "oklart", "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", 
    "ÖVRIGA LANDET", "STORGÖTEBORG", "oklart", "oklart", "ÖVRIGA LANDET", 
    "oklart", "oklart", "STORGÖTEBORG", "oklart", "oklart", "oklart", 
    "oklart", "oklart", "FYRSTADSOMRÅDET", "oklart", "oklart", 
    "oklart", "oklart", "FYRSTADSOMRÅDET", "STORGÖTEBORG", "STORGÖTEBORG", 
    "BOHUSLÄN OCH DALSLAND", "oklart", "oklart", "oklart", "oklart", 
    "ÖVRIGA LANDET", "oklart", "oklart", "oklart", "oklart", 
    "BOHUSLÄN OCH DALSLAND", "FYRSTADSOMRÅDET", "oklart", "ÖVRIGA LANDET", 
    "oklart", "VÄSTERGÖTLAND", "oklart", "BOHUSLÄN OCH DALSLAND", 
    "oklart", "oklart", "oklart", "STORGÖTEBORG", "oklart", "oklart", 
    "FYRSTADSOMRÅDET", "oklart", "oklart", "oklart", "oklart", 
    "VÄSTERGÖTLAND", "oklart", "oklart", "STORGÖTEBORG", "FYRSTADSOMRÅDET", 
    "oklart", "ÖVRIGA LANDET", "VÄSTERGÖTLAND", "oklart", "oklart", 
    "oklart", "oklart", "oklart", "STORGÖTEBORG", "STORGÖTEBORG", 
    "oklart", "oklart", "oklart", "STORGÖTEBORG", "oklart", "VÄSTERGÖTLAND", 
    "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", "oklart", "oklart", 
    "STORGÖTEBORG", "BOHUSLÄN OCH DALSLAND", "oklart", "FYRSTADSOMRÅDET", 
    "oklart", "oklart", "oklart", "BOHUSLÄN OCH DALSLAND", "FYRSTADSOMRÅDET", 
    "BOHUSLÄN OCH DALSLAND", "oklart", "BOHUSLÄN OCH DALSLAND", 
    "STORGÖTEBORG", "VÄSTERGÖTLAND", "oklart", "oklart", "BOHUSLÄN OCH DALSLAND", 
    "oklart", "oklart", "STORGÖTEBORG", "oklart", "STORGÖTEBORG", 
    "FYRSTADSOMRÅDET", "ÖVRIGA LANDET", "FYRSTADSOMRÅDET", "oklart", 
    "oklart", "oklart", "oklart", "oklart", "oklart", "oklart", 
    "oklart", "oklart", "oklart", "oklart", "VÄSTERGÖTLAND", 
    "BOHUSLÄN OCH DALSLAND", "STORGÖTEBORG", "BOHUSLÄN OCH DALSLAND", 
    "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", "VÄSTERGÖTLAND", "FYRSTADSOMRÅDET", 
    "oklart", "FYRSTADSOMRÅDET", "STORGÖTEBORG", "FYRSTADSOMRÅDET", 
    "VÄSTERGÖTLAND", "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", "STORGÖTEBORG", 
    "VÄSTERGÖTLAND", "FYRSTADSOMRÅDET", "BOHUSLÄN OCH DALSLAND", 
    "BOHUSLÄN OCH DALSLAND", "STORGÖTEBORG", "STORGÖTEBORG", 
    "STORGÖTEBORG", "STORGÖTEBORG", "FYRSTADSOMRÅDET", "STORGÖTEBORG", 
    "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", 
    "VÄSTERGÖTLAND", "STORGÖTEBORG", "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", 
    "FYRSTADSOMRÅDET", "STORGÖTEBORG", "ÖVRIGA LANDET", "STORGÖTEBORG", 
    "BOHUSLÄN OCH DALSLAND", "STORGÖTEBORG", "VÄSTERGÖTLAND", 
    "ÖVRIGA LANDET", "FYRSTADSOMRÅDET", "STORGÖTEBORG", "STORGÖTEBORG", 
    "FYRSTADSOMRÅDET", "BOHUSLÄN OCH DALSLAND", "BOHUSLÄN OCH DALSLAND", 
    "FYRSTADSOMRÅDET", "VÄSTERGÖTLAND", "FYRSTADSOMRÅDET", "BOHUSLÄN OCH DALSLAND", 
    "BOHUSLÄN OCH DALSLAND", "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", 
    "STORGÖTEBORG", "BOHUSLÄN OCH DALSLAND", "STORGÖTEBORG", 
    "BOHUSLÄN OCH DALSLAND", "STORGÖTEBORG", "VÄSTERGÖTLAND", 
    "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", "ÖVRIGA LANDET", "STORGÖTEBORG", 
    "BOHUSLÄN OCH DALSLAND", "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", 
    "ÖVRIGA LANDET", "ÖVRIGA LANDET", "FYRSTADSOMRÅDET", "STORGÖTEBORG", 
    "VÄSTERGÖTLAND", "FYRSTADSOMRÅDET", "STORGÖTEBORG", "STORGÖTEBORG", 
    "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", "STORGÖTEBORG", "BOHUSLÄN OCH DALSLAND", 
    "STORGÖTEBORG", "VÄSTERGÖTLAND", "FYRSTADSOMRÅDET", "STORGÖTEBORG", 
    "VÄSTERGÖTLAND", "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", "BOHUSLÄN OCH DALSLAND", 
    "FYRSTADSOMRÅDET", "ÖVRIGA LANDET", "VÄSTERGÖTLAND", "FYRSTADSOMRÅDET", 
    "BOHUSLÄN OCH DALSLAND", "ÖVRIGA LANDET", "FYRSTADSOMRÅDET", 
    "STORGÖTEBORG", "STORGÖTEBORG", "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", 
    "STORGÖTEBORG", "STORGÖTEBORG", "FYRSTADSOMRÅDET", "STORGÖTEBORG", 
    "STORGÖTEBORG", "BOHUSLÄN OCH DALSLAND", "STORGÖTEBORG", 
    "BOHUSLÄN OCH DALSLAND", "STORGÖTEBORG", "VÄSTERGÖTLAND", 
    "FYRSTADSOMRÅDET", "STORGÖTEBORG", "FYRSTADSOMRÅDET", "VÄSTERGÖTLAND", 
    "FYRSTADSOMRÅDET", "VÄSTERGÖTLAND", "FYRSTADSOMRÅDET", "VÄSTERGÖTLAND", 
    "BOHUSLÄN OCH DALSLAND", "BOHUSLÄN OCH DALSLAND", "BOHUSLÄN OCH DALSLAND", 
    "BOHUSLÄN OCH DALSLAND", "FYRSTADSOMRÅDET", "STORGÖTEBORG", 
    "STORGÖTEBORG", "FYRSTADSOMRÅDET", "BOHUSLÄN OCH DALSLAND", 
    "STORGÖTEBORG", "STORGÖTEBORG", "STORGÖTEBORG", "VÄSTERGÖTLAND", 
    "FYRSTADSOMRÅDET", "STORGÖTEBORG", "oklart", "BOHUSLÄN OCH DALSLAND", 
    "FYRSTADSOMRÅDET", "STORGÖTEBORG", "oklart", "STORGÖTEBORG", 
    "STORGÖTEBORG", "oklart", "FYRSTADSOMRÅDET", "BOHUSLÄN OCH DALSLAND", 
    "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", "FYRSTADSOMRÅDET", 
    "ÖVRIGA LANDET", "STORGÖTEBORG", "ÖVRIGA LANDET", "STORGÖTEBORG", 
    "ÖVRIGA LANDET", "STORGÖTEBORG", "STORGÖTEBORG", "FYRSTADSOMRÅDET", 
    "oklart", "STORGÖTEBORG", "oklart", "oklart", "STORGÖTEBORG", 
    "FYRSTADSOMRÅDET", "ÖVRIGA LANDET", "oklart", "ÖVRIGA LANDET", 
    "FYRSTADSOMRÅDET", "BOHUSLÄN OCH DALSLAND", "ÖVRIGA LANDET", 
    "STORGÖTEBORG", "STORGÖTEBORG", "FYRSTADSOMRÅDET", "STORGÖTEBORG", 
    "STORGÖTEBORG", "oklart", "BOHUSLÄN OCH DALSLAND", "oklart", 
    "oklart", "oklart", "STORGÖTEBORG", "BOHUSLÄN OCH DALSLAND", 
    "FYRSTADSOMRÅDET", "oklart", "oklart", "FYRSTADSOMRÅDET"), 
    KON_SV = c("kvinna", "man", "kvinna", "kvinna", "man", "man", 
    "kvinna", "man", "man", "man", "man", "kvinna", "kvinna", 
    "man", "kvinna", "man", "man", "man", "man", "man", "man", 
    "man", "kvinna", "man", "man", "man", "man", "man", "kvinna", 
    "man", "kvinna", "kvinna", "kvinna", "kvinna", "man", "kvinna", 
    "kvinna", "kvinna", "man", "kvinna", "man", "kvinna", "man", 
    "man", "kvinna", "man", "kvinna", "kvinna", "kvinna", "man", 
    "man", "kvinna", "kvinna", "kvinna", "man", "kvinna", "kvinna", 
    "man", "kvinna", "man", "man", "kvinna", "man", "man", "man", 
    "man", "man", "man", "kvinna", "man", "man", "kvinna", "man", 
    "kvinna", "kvinna", "man", "kvinna", "man", "man", "kvinna", 
    "kvinna", "kvinna", "kvinna", "kvinna", "kvinna", "kvinna", 
    "kvinna", "kvinna", "kvinna", "man", "man", "kvinna", "kvinna", 
    "kvinna", "man", "man", "man", "kvinna", "kvinna", "kvinna", 
    "man", "kvinna", "kvinna", "man", "kvinna", "kvinna", "man", 
    "man", "kvinna", "kvinna", "man", "kvinna", "man", "man", 
    "man", "man", "kvinna", "man", "man", "kvinna", "kvinna", 
    "man", "kvinna", "kvinna", "kvinna", "kvinna", "kvinna", 
    "kvinna", "kvinna", "kvinna", "kvinna", "kvinna", "kvinna", 
    "kvinna", "kvinna", "kvinna", "man", "man", "man", "man", 
    "kvinna", "kvinna", "man", "kvinna", "kvinna", "man", "man", 
    "kvinna", "kvinna", "kvinna", "kvinna", "man", "kvinna", 
    "kvinna", "kvinna", "kvinna", "man", "kvinna", "man", "kvinna", 
    "man", "kvinna", "man", "man", "man", "man", "kvinna", "kvinna", 
    "man", "kvinna", "kvinna", "man", "man", "kvinna", "man", 
    "kvinna", "man", "man", "man", "man", "kvinna", "kvinna", 
    "kvinna", "man", "man", "man", "man", "kvinna", "kvinna", 
    "man", "kvinna", "man", "kvinna", "kvinna", "kvinna", "man", 
    "man", "man", "man", "man", "man", "man", "kvinna", "man", 
    "kvinna", "man", "kvinna", "man", "kvinna", "man", "man", 
    "man", "man", "kvinna", "kvinna", "kvinna", "kvinna", "kvinna", 
    "man", "kvinna", "kvinna", "man", "kvinna", "kvinna", "kvinna", 
    "kvinna", "man", "man", "kvinna", "kvinna", "man", "man", 
    "kvinna", "man", "man", "kvinna", "kvinna", "man", "man", 
    "man", "man", "man", "kvinna", "kvinna", "kvinna", "man", 
    "man", "man", "man", "man", "man", "man", "kvinna", "kvinna", 
    "kvinna", "kvinna", "kvinna", "man", "kvinna", "man", "kvinna", 
    "kvinna", "man", "man", "kvinna", "man", "man", "man", "man", 
    "kvinna", "kvinna", "kvinna", "kvinna", "kvinna", "man", 
    "kvinna", "man", "man", "kvinna", "man", "man", "man", "man", 
    "man", "man", "man", "man", "kvinna", "kvinna", "man", "man", 
    "man", "kvinna", "kvinna", "man", "man", "man", "kvinna", 
    "man", "man", "kvinna", "kvinna", "kvinna", "kvinna", "man", 
    "kvinna", "man", "man", "man", "kvinna", "kvinna", "man", 
    "kvinna", "kvinna", "kvinna", "man", "kvinna", "man", "kvinna", 
    "man", "man", "kvinna", "man", "man", "man", "kvinna", "kvinna", 
    "kvinna", "man", "kvinna", "kvinna", "kvinna", "kvinna", 
    "man", "kvinna", "man", "man", "kvinna", "kvinna", "kvinna", 
    "kvinna", "kvinna", "man", "kvinna", "kvinna", "man", "kvinna", 
    "kvinna", "man", "kvinna", "kvinna", "kvinna", "kvinna", 
    "man", "kvinna", "man", "kvinna", "kvinna", "man", "kvinna", 
    "kvinna", "kvinna", "kvinna", "kvinna", "kvinna", "man", 
    "kvinna", "kvinna", "kvinna", "man", "man", "man", "kvinna", 
    "man", "kvinna", "kvinna", "man", "kvinna", "man", "man", 
    "kvinna", "kvinna", "man", "kvinna", "man", "man", "man", 
    "man", "kvinna", "man", "kvinna", "man", "man", "kvinna", 
    "kvinna", "man", "man", "kvinna", "man", "man", "man", "kvinna", 
    "man", "man", "kvinna", "kvinna", "kvinna", "man", "kvinna", 
    "man", "kvinna", "kvinna", "kvinna", "kvinna", "man", "kvinna", 
    "man", "man", "man", "man", "man", "kvinna", "man", "kvinna", 
    "kvinna", "kvinna", "man", "man", "kvinna", "kvinna", "man", 
    "kvinna", "man", "man", "kvinna", "kvinna", "man", "man", 
    "kvinna", "man", "kvinna", "kvinna", "man", "kvinna", "kvinna", 
    "man", "man", "kvinna", "kvinna", "man", "kvinna", "kvinna", 
    "kvinna", "kvinna", "man", "kvinna", "man", "man", "kvinna", 
    "man", "kvinna", "man", "man", "kvinna", "man", "man", "kvinna", 
    "man", "kvinna", "kvinna", "man", "kvinna", "man", "man", 
    "man", "kvinna", "man", "kvinna", "man", "kvinna", "man", 
    "man", "kvinna", "man", "kvinna", "kvinna", "man", "man", 
    "kvinna", "kvinna", "man", "man", "man", "kvinna", "man", 
    "man", "man", "man", "kvinna", "man", "man", "man", "kvinna", 
    "man", "kvinna", "man", "kvinna", "man", "kvinna", "kvinna", 
    "kvinna", "kvinna", "man", "kvinna", "kvinna", "man", "man", 
    "man", "man", "kvinna", "kvinna", "man", "man", "man", "kvinna", 
    "kvinna", "man", "kvinna", "man", "kvinna", "kvinna", "kvinna", 
    "man", "kvinna", "man", "kvinna", "kvinna", "kvinna", "man", 
    "man", "kvinna", "man", "kvinna", "man", "kvinna", "man", 
    "kvinna", "kvinna", "kvinna", "kvinna", "man", "kvinna", 
    "man", "kvinna")), row.names = c(NA, -554L), groups = structure(list(
    start_date = structure(c(17041, 17405, 17776, 18140, NA), class = "Date"), 
    .rows = list(1:104, 105:220, 221:374, 375:506, 507:554)), row.names = c(NA, 
-5L), class = c("tbl_df", "tbl", "data.frame"), .drop = TRUE), class = c("grouped_df", 
"tbl_df", "tbl", "data.frame"))

【问题讨论】：

您的group_by 中没有KON_SV？您需要包含才能将其用作构面变量

标签： r ggplot2 dplyr

【解决方案1】：

我会在您的初始group_by 中添加“KON_SV”。因此，您将获得一个带有性别变量的因子列，允许分面。

fulldata %>%
  group_by(KON_SV, ADMISSIONROUND_ID,NYA_REGION_GROV) %>% #added KON_SV
  summarise(antal=n()) %>%
  mutate(andel = antal/sum(antal)) %>%
  ungroup() %>%
  ggplot(aes(x = ADMISSIONROUND_ID, y = andel, color = NYA_REGION_GROV, group = NYA_REGION_GROV)) + 
geom_line() + 
facet_wrap(.~KON_SV)

【讨论】：

我在问这个问题 5 分钟后写了一段相同的代码，我想只有谈论/写东西才能有所作为！我应该评论说，在 group_by 语句中分面变量的位置确实很重要。它需要放在第一位，我认为在每个性别中每个录取轮中每个区域的百分比应该加起来为 100% 无论如何，接受这个作为正确答案！