如何计算高血压人群的百分比,根据BMI分类?

时间:2018-05-24 11:36:08

标签: r percentage

我有一个包含4个类别的变量,underweightnormaloverweightobese,我想计算高压%,总计,对于每个类别。

这是我尝试过的,但没有成功:

brfss2013 %>%
  group_by(X_bmi5cat) %>%
  filter(!is.na(X_bmi5cat), !is.na(bphigh4)) %>%
  summarise(bph_rate = sum (bphigh4 == "yes") / n())

无论使用圆形,* 100

你能帮忙吗?

1 个答案:

答案 0 :(得分:0)

如果你想在每个BMI组中高血压患者的百分比是这样做的代码

@RequestMapping(value = "/saveUser", method = RequestMethod.POST)
  public ModelAndView saveUsersData(@ModelAttribute @Valid USerModel model, BindingResult result) {
    if (!result.hasErrors()) {
      try {
        String roleUser = model.getUserRole();
        model.setPassWord(pwEncode.encode(model.getPassWord()));
        userDao.saveUsersData(model, getUserId(), roleUser);
        userDao.setIsNewRecord(false);
        return new ModelAndView("redirect:/userListPage");
      } catch (Exception ex) {
        //print 
      }
    }
    return new ModelAndView("addUser");
  }

如果你想要高血压患者的总体百分比是代码:

library(dplyr)
bmi <- data.frame(bmi = c(rep('uw',5),rep('norm',5), rep('over',5),rep('obese',5)),
                  hpb = rbinom(20,1,.5) , stringsAsFactors = FALSE)

bmi2 <- bmi %>%
  group_by(bmi, hpb) %>%
  tally %>% 
  group_by(bmi) %>% 
 mutate(pct= n/ sum(n)) 

在上面的代码中,您尝试除以bmi2 <- bmi %>% group_by(bmi, hpb) %>% tally %>% ungroup %>% mutate(pct= n/ sum(n)) ,但如果您想使用代码,则可以仅使用变量n()替换n()