121 31.25000 19140.32182177 47.13018159 38.68404152 33.92184
我用下面的代码在R
中创建一个表。如何给Height
Weight
BMI
加单位?(就像Height (in)
和Weight (lb)
和BMI (kg/m2)
)
Height <- c(66, 73, 65, 68, 71)
Weight <- c(121,191,177,159,152)
#pound to kilogram and inche to meter
#BMI=kg/m^2
BMI = Weight * 0.45/(Height * 0.02)^2
expn <- data.frame (Height, Weight, BMI)
knitr::kable (expn, caption = "Body Measurments", align = c ("c", "c"))
如果你的意思是给表格中的元素添加单位,
expn <- data.frame (Height, Weight, BMI) %>%
mutate(Height = paste(Height, "in"),
Weight = paste(Weight, "lb"),
BMI = paste(BMI, "kg/m2"))
knitr::kable (expn, caption = "Body Measurments", align = c ("c", "c"))
Table: Body Measurments
| Height | Weight | BMI |
|:------:|:------:|:----------------------:|
| 66 in | 121 lb | 31.25 kg/m2 |
| 73 in | 191 lb | 40.3218239819854 kg/m2 |
| 65 in | 177 lb | 47.1301775147929 kg/m2 |
| 68 in | 159 lb | 38.6840397923875 kg/m2 |
| 71 in | 152 lb | 33.9218409045824 kg/m2 |
在tibble
,
units <- c("in", "lb", "kg/m2")
expn <- data.frame (Height, Weight, BMI)%>% map2_dfc(units, ~set_units(.x, .y, mode = "standard"))
expn
Height Weight BMI
[in] [lb] [kg/m2]
1 66 121 31.25000
2 73 191 40.32182
3 65 177 47.13018
4 68 159 38.68404
5 71 152 33.92184
使用kableExtra
,
expn <- data.frame (Height, Weight, BMI)
colNames <- names(expn)
units <- c("$lb$", "$in$", "$kg/m2$")
knitr::kable (expn, caption = "Body Measurments", align = c ("c", "c"), col.names = units, escape = F) %>%
kableExtra::add_header_above(header = colNames, line = F, align = "c")
如果您想要做的是将单位添加到列名中,您可以使用colnames
和paste0
。
Height <- c(66, 73, 65, 68, 71)
Weight <- c(121,191,177,159,152)
#pound to kilogram and inche to meter
#BMI=kg/m^2
BMI = Weight * 0.45/(Height * 0.02)^2
expn <- data.frame (Height, Weight, BMI)
colnames(expn)<-paste0(colnames(expn), c(" (in)", " (lb)", " (kg/m2)"))
knitr::kable (expn, caption = "Body Measurements", align = c ("c", "c"))
表格:身体尺寸
BMI (kg/m2)