在R中組合paste0和format時出現空格

為了顯示我運行的回歸結果，我有一個帶有估計值和相應置信區間的小標題：

library(tidyverse)
library(magrittr

mydata <- structure(list(term = structure(c(1L, 3L, 4L), .Label = c("Intercept", 
"Follow-up time (years)", "Age (years)", "Sex (male)", "Never smoker (reference)", 
"Current smoker", "Former smoker", "Obesity (=30 kg/m2)", "BMI (kg/m2)", 
"Diabetes", "Glucose (mmol/L)", "Glucose lowering medication use", 
"Hypertension", "Systolic blood pressure (mmHg)", "Diastolic blood pressure (mmHg)", 
"Antihypertensive medication use", "Hypercholesterolemia", "LDL cholesterol (mmol/L)", 
"Lipid lowering medication use", "Chronic kidney disease (mL/min/1.73m2)", 
"=90 (reference)", "60-89", "=60"), class = c("ordered", "factor"
)), estimate = c(518.38, 0.98, 1.07), conf_low = c(178.74, 0.93, 
0.96), conf_high = c(1503.36, 1.03, 1.19), label = c("518.38 (178.74-1503.36)", 
"  0.98 (  0.93-   1.03)", "  1.07 (  0.96-   1.19)")), row.names = c(NA, 
-3L), class = c("tbl_df", "tbl", "data.frame"))

mydata

# A tibble: 3 x 4
  term        estimate conf_low conf_high
  <ord>          <dbl>    <dbl>     <dbl>
1 Intercept     518.     179.     1503.  
2 Age (years)     0.98     0.93      1.03
3 Sex (male)      1.07     0.96      1.19

為了制作包含估計值和 95%CI 的標簽，我使用了paste0，并確保每個數字都有兩位小數我使用過format。但是，當組合這些時，會出現額外的空格：

mydata <- 
  mydata %>% 
  mutate(
    label=
      paste0(format(round(estimate, digits=2), nsmall=2), 
             " (", 
             format(round(conf_low, digits=2), nsmall=2), 
             "-", 
             format(round(conf_high, digits=2), nsmall=2), 
             ")", 
             sep="", collaps=""))

mydata
# A tibble: 3 x 5
  term        estimate conf_low conf_high label                    
  <ord>          <dbl>    <dbl>     <dbl> <chr>                    
1 Intercept     518.     179.     1503.   "518.38 (178.74-1503.36)"
2 Age (years)     0.98     0.93      1.03 "  0.98 (  0.93-   1.03)"
3 Sex (male)      1.07     0.96      1.19 "  1.07 (  0.96-   1.19)"

為什么會發生這種情況？我可以防止這種情況或以其他方式洗掉空格以使格式變為“估計（conf_low-conf_high）”嗎？

uj5u.com熱心網友回復：

trim=TRUE在format()呼叫中添加：

mydata %>% 
mutate(
  label=
    paste0(format(round(estimate, digits=2), nsmall=2, trim=TRUE), 
           " (", 
           format(round(conf_low, digits=2), nsmall=2, trim=TRUE), 
           "-", 
           format(round(conf_high, digits=2), nsmall=2, trim=TRUE), 
           ")", 
           sep="", collaps=""))
  
# A tibble: 3 × 5
  term        estimate conf_low conf_high label                    
  <ord>          <dbl>    <dbl>     <dbl> <chr>                    
1 Intercept     518.     179.     1503.   "518.38 (178.74-1503.36)"
2 Age (years)     0.98     0.93      1.03 "0.98 (0.93-1.03)"     
3 Sex (male)      1.07     0.96      1.19 "1.07 (0.96-1.19)"     

uj5u.com熱心網友回復：

1)使用 sprintf

mydata %>% 
  mutate(label = sprintf("%.2f (%.2f-%.2f)", estimate, conf_low, conf_high))

給予：

# A tibble: 3 x 5
  term        estimate conf_low conf_high label                  
  <ord>          <dbl>    <dbl>     <dbl> <chr>                  
1 Intercept     518.     179.     1503.   518.38 (178.74-1503.36)
2 Age (years)     0.98     0.93      1.03 0.98 (0.93-1.03)       
3 Sex (male)      1.07     0.96      1.19 1.07 (0.96-1.19)       

2）或這種變化產生略有不同的輸出

mydata %>% 
  mutate(label = sprintf("%6.2f (%6.2f-%7.2f)", estimate, conf_low, conf_high))

給予；

# A tibble: 3 x 5
  term        estimate conf_low conf_high label                    
  <ord>          <dbl>    <dbl>     <dbl> <chr>                    
1 Intercept     518.     179.     1503.   "518.38 (178.74-1503.36)"
2 Age (years)     0.98     0.93      1.03 "  0.98 (  0.93-   1.03)"
3 Sex (male)      1.07     0.96      1.19 "  1.07 (  0.96-   1.19)"

標籤：r 细绳 dplyr 格式

上一篇：使用正則運算式將Koeppen氣候傳奇變成有意義的csv

下一篇：輸入如何只接受十六進制數字