R - örneğin, ben dönüştürmek çalışıyorum

Question

Sayısal

için Metin Kesirler dönüştürme, '9¼" ' için '9.25' ancak doğru kısmını okumak gibi olamaz

İşte çalışıyorum veri var. :

örnek olarak

library(XML) 

url <- paste("http://mockdraftable.com/players/2014/", sep = "") 
combine <- readHTMLTable(url,which=1, header=FALSE, stringsAsFactors=F) 

names(combine) <- c("Name", "Pos", "Hght", "Wght", "Arms", "Hands", 
        "Dash40yd", "Dash20yd", "Dash10yd", "Bench", "Vert", "Broad", 
        "Cone3", "ShortShuttle20") 

, ilk satırda Eller sütundur '9¼" ', nasıl $ birleştirmek yapmak Eller 9.25 olacak? Diğer tüm fraksiyonlar için aynıdır 1/8 - 7/8.

Herhangi bir yardım için teşekkür ederiz.

Answer 1

Özel bir dönüş fonksiyonu kullanılarak XML okurken doğrudan ASCII Unicode kodlamayı dönüştürmeye deneyebilirsiniz: Daha sonra sayılara dönüştürmek için @Metrics' öneriyi kullanabilirsiniz

library(stringi) 
readHTMLTable(url,which=1, header=FALSE, stringsAsFactors=F,elFun=function(node) { 
     val = xmlValue(node); stri_trans_general(val,"latin-ascii")}) 

. Örneğin, @ G kullanarak yapabilirsiniz. this post den Grothendieck fonksiyonu Arms verilerini temizlemek:

library(XML) 
library(stringi) 
library(gsubfn) 
#the calc function is by @G. Grothendieck 
calc <- function(s) { 
     x <- c(if (length(s) == 2) 0, as.numeric(s), 0:1) 
     x[1] + x[2]/x[3] 
} 

url <- paste("http://mockdraftable.com/players/2014/", sep = "") 

combine<-readHTMLTable(url,which=1, header=FALSE, stringsAsFactors=F,elFun=function(node) { 
     val = xmlValue(node); stri_trans_general(val,"latin-ascii")}) 

names(combine) <- c("Name", "Pos", "Hght", "Wght", "Arms", "Hands", 
        "Dash40yd", "Dash20yd", "Dash10yd", "Bench", "Vert", "Broad", 
        "Cone3", "ShortShuttle20") 

sapply(strapplyc(gsub('\"',"",combine$Arms), "\\d+"), calc) 

#[1] 30.000 31.500 30.000 31.750 31.875 29.875 31.000 31.000 30.250 33.000 32.500 31.625 32.875 

Bazı kodlama sorunları makinenizde bağlı

Answer 2

bu alternatiflere göre zeki veya verimli olduğunu düşünmüyorum (yorumlara bakınız) olabilir, ancak bu sayısal dönüştürmeden önce, "sembolünü değiştirmek ve ondalık her kısmını dönüştürmek için gsub kullanır: [içinde

#data (I've not downloaded XML for this, so maybe the encoding will make a difference?) 
combine = data.frame(Hands = c('1"','1⅛"','1¼"','1⅜"','1½"','1⅝"','1¾"','1⅞"')) 

#remove the " 
combine$Hands = gsub('"', '', combine$Hands) 

#replace each fraction with its decimal form 
combine$Hands = gsub("⅛", ".125", combine$Hands) 
combine$Hands = gsub("¼", ".25", combine$Hands) 
combine$Hands = gsub("⅜", ".375", combine$Hands) 
combine$Hands = gsub("½", ".5", combine$Hands) 
combine$Hands = gsub("⅝", ".625", combine$Hands) 
combine$Hands = gsub("¾", ".75", combine$Hands) 
combine$Hands = gsub("⅞", ".875", combine$Hands) 


combine$Hands <- as.numeric(combine$Hands)