在 R 中将高度从英尺 (6-1) 转换为英寸 (73)

Question

我正在尝试将一列英尺转换为英寸。通常它是简单的乘法，但是当格式分别为 70 和 74 英寸的 (5-10) 或 (6-2) 时，我对如何转换感到困惑。到目前为止，这是我的代码。我正在尝试更改combine.data$Ht

library(rvest)
library(magrittr)
library(dplyr)
library(purrr)

years <- 2010:2020

urls <- paste0(
  'https://www.pro-football-reference.com/draft/',
  years,
  '-combine.htm')

combine.data <- map(
  urls,
  ~read_html(.x) %>% 
    html_nodes(".stats_table") %>% 
    html_table() %>% 
    as.data.frame()
) %>%
  set_names(years) %>% 
  bind_rows(.id = "year") %>% 
  filter(Pos == 'CB' | Pos == "S")

Answer 1

您可以将Ht 列拆分为两个单独的列feet 和inches，然后执行计算以英尺为单位计算高度。

library(dplyr)
library(tidyr)

combine.data %>%
  separate(Ht,c('feet', 'inches'), sep = '-', convert = TRUE, remove = FALSE) %>%
  mutate(feet = 12*feet + inches) %>%
  select(-inches)

Answer 2

一个选项是在将character 列转换为numeric 之后使用measurements 中的conv_unit

library(measurements)
f1 <- function(x) {
        x1 <- as.numeric(sub("-.*", "", x))
        x2 <- as.numeric(sub(".*-", "", x))
        conv_unit(x1, "ft", "inch") + x2
 }
  
combine.data$Ht <- f1(combine.data$Ht)
head(combine.data$Ht)
#[1] 69 71 72 71 69 74
f1('5-11')
#[1] 71

             

---

或者只使用base R

f1 <- function(x) {
        x1 <- as.numeric(sub("-.*", "", x))
        x2 <- as.numeric(sub(".*-", "", x))
        (x1 * 12) + x2
 }
combine.data$Ht <- f1(combine.data$Ht)
head(combine.data$Ht)
#[1] 69 71 72 71 69 74