将柱高转换为英寸 (R)

Question

我是初学者，我有这个高度为 (x ft' y 英寸") 的数据框我需要将此值转换为以英寸为单位的高度的单个数字

height_w_shoes	height_wo_shoes
5'11"	5'10"
6'1"	6'0.25
6.5.25"	6'4"

我需要修正“height_w_shoes”列最后一行的错字（或者可能不是，取决于解决方案，当前应该是“'”时是“.”），然后将这些测量值转换为英寸比如：

height_w_shoes	height_wo_shoes
71	70
73	72.25
77.25	76

我非常卡住，因为我很难将这些字符串变量转换为数值。请帮忙，谢谢

Answer 1

一些数据插入错误使这比实际上更难

library(stringr)
library(dplyr)
df <- data.frame(x =c("5\'11\"","6'1\"","6.5.25\""),y = c("5\'10\"","6\'0.25","6\'4\"") )

correction <- function(str){
  output <- str_replace(str,"6\\.5\\.25\"","6\'5\\.25")
  # Corrects first typo
  output <- ifelse(str_detect(output,"\"$") == FALSE,str_replace(output,"$","\""),output)
  # Corrects second typo
  output <- 
    as.numeric(str_extract(output,"^.+(?=\')")) *12 +
    as.numeric(str_extract(output,"(?<=\').+(?=\"$)"))
  # Calculate inch
}               
                 
df %>%
  mutate(across(c(x,y),~ correction(.)))
#>       x     y
#> 1 71.00 70.00
#> 2 73.00 72.25
#> 3 77.25 76.00

^{由reprex package (v2.0.0) 于 2021-08-06 创建}

Answer 2

这是dplyr 和purrr 的解决方案：

测试数据已更新：

df <- data.frame(
  h1 = c("6.5.25", "5'11\"", "6'11\"", "6'0.25"),
  h2 = c("66.4.2", "7'10\"", "16'11\"", "7'2.50"),
  h3 = c("4'4.2", "7'10\"", "16'11\"", "7.7.77")
)

解决方案已更新：

library(dplyr)
library(purrr)
 df %>%
   # Step 1: correct typo:
   mutate(across(c(everything()), 
                ~ sub("(?<=^\\d{1}|^\\d{2})\\.", "'", ., perl = T))) %>%
   # Step 2: remove trailing `"`:
   mutate(across(c(everything()), 
                ~ gsub('"$', "", .))) %>%
   # Step 3: split strings on `'`:
   mutate(across(c(everything()), 
                ~ strsplit(.,"'"))) %>%
   # Step 4: convert to numeric and perform calculation:
   mutate(across(everything(), 
                 ~ map_dbl(., function(x) as.numeric(x)[1] * 12 + as.numeric(x)[2])))
     h1    h2     h3
1 77.25 796.2  52.20
2 71.00  94.0  94.00
3 83.00 203.0 203.00
4 72.25  86.5  91.77