与标题相同。我知道我可以通过在绘图之前计算它们来计算组内百分比，所以如果我这样写：

fulldata %>%
  as_tibble() %>%
  group_by(gymnasiegrov,totstatus_tri) %>% 
  summarise(antal = n()) %>% 
  mutate(andel = antal / sum(antal))%>% 
  ggplot(.) + 
  geom_col(mapping = aes(x = gymnasiegrov,y = andel)) + 
  coord_flip() + 
  facet_wrap(~totstatus_tri)

我可以得到这样的东西：

但是我可以使用stat（）和count（）函数的某种组合获得相同的结果吗？计算出的实际方面的美学 是否可用于操纵？

我们可以按照以下方式写点东西吗？

ggplot(fulldata,aes(x=gymnasiegrov)) +
  geom_bar(aes(y=stat.facet(count) / stat(count))) +
  facet_wrap(~totstatus_tri)

得到相同的结果吗？

小节录：

structure(list(start_date = structure(c(17776,17776,17776),class = "Date"),gymnasiegrov = structure(c(11L,9L,6L,13L,4L),.Label = c("medieprogrammet/medieproduktion","Hotell- och Restaurang","komvux","teknikprogrammet","specialutformat program","naturvetenskapliga programmet","ekonomiprogrammet/ ekonomi","bygg,el,fordon,hantverk,sjöfart,industriteknik","ekonomiprogrammet/ juridik","Oklart","samhällsvetenskapliga programmet","Handels- och administrationsprogrammet","estetiska programmet","friskoleprogram","samhälls- och ekonomiprogrammet"
),class = c("ordered","factor")),totstatus_tri = c("pågående studier","pågående studier","tidigt avbrott eller återbud","troligt avbrott")),row.names = c(NA,-6L
),groups = structure(list(start_date = structure(17776,.rows = list(1:6)),-1L),class = c("tbl_df","tbl","data.frame"),.drop = TRUE),class = c("grouped_df","tbl_df","data.frame"))

大节录

structure(list(start_date = structure(c(17776,4L,3L,8L,7L,5L,12L,11L,2L,14L,10L,1L,15L,10L),"samhälls- och ekonomiprogrammet"
    ),"troligt avbrott","pågående studier"
    )),-154L),.rows = list(1:154)),"data.frame"))