如何在计算器中使用第三、第四等十进制值

Question

我想计算四个人的体重指数并将结果存储为对象 XY 并将其附加到数据框。到目前为止效果很好，但我只能通过四舍五入来做到这一点

   Body Mass Index <- round(as.numeric(data[, 4], 
   digits=2)/(as.numeric(data[, 3])/100)^2)
   Body Mass Index
   data <- as.data.frame(cbind(data, Body Mass Index))
   data 

我怎样才能做到这一点，但将结果值四舍五入到小数点后第三位或第四位？我知道它与圆形有关，显然我改变了它，但其他选项不起作用......

Answer 1

round 中的参数位数定义将显示多少位数。请小心，因为某些对象仅用于打印数据。这是一个例子。

库

library(tidyverse)

示例数据

df <-
  #Random data
  tibble(
    height = rnorm(10,1.7,sd = .2),
    mass = rnorm(10,70)
  ) %>% 
  mutate(
    # Calculating index
    bmi_index = mass/(height^2),
    bmi_index_round4 = round(bmi_index,4),
    bmi_index_round3 = round(bmi_index,3),
    bmi_index_round2 = round(bmi_index,2)
    )

输出

> df$bmi_index
 [1] 21.69752 33.96611 19.23116 23.32622 20.93689 26.45366 23.50817 33.12299 27.41969 22.49677
> df$bmi_index_round4
 [1] 21.6975 33.9661 19.2312 23.3262 20.9369 26.4537 23.5082 33.1230 27.4197 22.4968
> df$bmi_index_round3
 [1] 21.698 33.966 19.231 23.326 20.937 26.454 23.508 33.123 27.420 22.497
> df$bmi_index_round2
 [1] 21.70 33.97 19.23 23.33 20.94 26.45 23.51 33.12 27.42 22.50