数値を文字列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