尝试markdown:
sat %>% select(-contains("total")) %>% gather(part_sex, count, -score_range) %>% separate(part_sex, c("part", "sex")) %>% group_by(part,sex) %>% mutate(total = sum(count), prop = count / total ) %>% print

@公达 站长 为啥代码的分行不见了，刚学不知道怎么回事，这边是分好行的，复制上去就不行了。

刚发现，我会查下，稍等回复。