आर - करने के लिए संख्यात्मक

Question

पाठ में भिन्न परिवर्तित मैं कन्वर्ट करने के लिए कोशिश कर रहा हूँ, उदाहरण के लिए, '9¼ "' को '9.25' लेकिन अंश सही ढंग से पढ़ने के लिए नहीं कर पा रहे

यहाँ डेटा के साथ मैं काम कर रहा हूँ है। :

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") 

उदाहरण के लिए, पहली पंक्ति में हाथ स्तंभ है '9¼ "', मैं कैसे $ गठबंधन बनाना होगा हाथ 9.25 हो गए हैं? अन्य सभी अंशों के लिए 1/8 - 7/8।

किसी भी मदद की सराहना की जाएगी।

Answer 1

आप जब एक्सएमएल एक विशेष वापसी समारोह का उपयोग कर पढ़ने सीधे ASCII करने के लिए यूनिकोड एन्कोडिंग को बदलने के लिए कोशिश कर सकते हैं:

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

फिर आप @Metrics 'सुझाव का उपयोग कर सकते यह संख्या में बदलने के लिए।

उदाहरण के लिए, आप @ जी का उपयोग कर सकते हैं। this post से Grothendieck के समारोह Arms डेटा को साफ:

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 

हो सकती है कुछ एन्कोडिंग मुद्दों आपकी मशीन पर निर्भर करता है (टिप्पणी देखें)

Answer 2

मुझे नहीं लगता कि यह विकल्पों की तुलना में चतुर या कुशल है, लेकिन इस सांख्यिक को परिवर्तित करने से पहले "प्रतीक की जगह और उसके दशमलव करने के लिए प्रत्येक अंश कन्वर्ट करने के लिए, gsub उपयोग करता है:

#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)