r - 将高度作为字符串 X'X"转换为数字

Question

我有一列格式为 X'X"(英尺和英寸)的高度，需要帮助将其转换为英寸。例如，6'2"将是 74(英寸)。

使用 dput()，这是列表:

h <- structure(c(3L, 2L, 5L, 1L, 4L), .Label = c("4'8\"", "5'1.5\"", 
               "5'10.5\"", "5'2.5\"", "5'6\""), class = "factor")

Answer 1

你有一个因素。您可以将其转换为字符向量，拆分为英尺和英寸符号，然后使用 sapply 在匿名函数中进行转换:

h <- structure(c(3L, 2L, 5L, 1L, 4L), .Label = c("4'8\"", "5'1.5\"", 
                "5'10.5\"", "5'2.5\"", "5'6\""), class = "factor")

sapply(strsplit(as.character(h),"'|\""),
        function(x){12*as.numeric(x[1]) + as.numeric(x[2])})

[1] 70.5 61.5 66.0 56.0 62.5