问将字符串转换为整洁的跳转。

EN

library(dplyr)
library(tidyr)

dd %>%
  rename(col = `"Temper: 36.6℃  Pulse:76 bpm RR: 16bpm BP：148/58 mmHg"`) %>%
  separate_rows(col, sep = "\\s+(?=[A-Z])") %>%
  separate(col, into = c('name', 'value'), sep = ':|：') %>%
  pivot_wider()

# A tibble: 1 x 4
#  Temper   Pulse  RR       BP         
#  <chr>    <chr>  <chr>    <chr>      
#1 " 36.6℃" 76 bpm " 16bpm" 148/58 mmHg

# String to convert to tibble: 

library(tidyverse)

dd <- tibble("Temper: 36.6℃  Pulse:76 bpm RR: 16bpm BP：148/58 mmHg")

# Store a vector of strings to become variables: 

dd_vars <-
  grep(":", unlist(lapply(strsplit(as.character(dd), "\\d+"),
                          function(w) {
                            x <- gsub(".* ", "", trimws(w, "both"))
                            y <- as.character(na.omit(ifelse(nchar(x) == 1, NA, x)))
                          })),
       value = TRUE)

# Store a vector of the strings to become values: 

dd_values <- iconv(gsub("[A-Za-z]", "", grep("\\d+", unlist(
  lapply(strsplit(as.character(dd), ":"),
         function(x) {
           gsub(" .*", "", trimws(x, "both"))
         })
),
value = TRUE)), 'utf-8', 'ascii', sub = '')

# Convert to a tibble with appropriate vectors: 

tib <-
  as_tibble(data.frame(lapply(within(setNames(
    data.frame(t(
      data.frame(vars = dd_vars,
                 values = as.character(dd_values))
    ),
    stringsAsFactors = FALSE),
    gsub(":", "", dd_vars)
  )[-1, ],
  {
    SBP <- unlist(strsplit(BP, "/"))[1]
    DBP <- unlist(strsplit(BP, "/"))[2]
    rm(BP)
  }), as.numeric)))