as.numeric() और कारक()

Question

का कुशल उपयोग डेटाबेस में आर में आयात किए गए कई सौ वर्ण वैक्टर हैं - प्रत्येक की लंबाई 6-7 मिलियन है। वे या तो संख्यात्मक या कारक डेटा हैं जिनमें लेबल के लिए वर्ण (अक्षर) होते हैं - स्तरों को सेट करने के साथ, सभी कारक, सभी में कुछ एनएएस होते हैं। एक उदाहरण

vecA <- c("1",NA, "2",....,NA, "100") 
vecB <- c("smith", NA, NA, ... , "jones") 

के रूप में वहाँ संख्यात्मक और vecB को vecA मजबूर करने के लिए कारक एक कारगर तरीका है। समस्या यह है कि मुझे नहीं पता कि संख्यात्मक और कारक वैक्टर डेटा में कहां हैं और उनमें से एक-एक करके जाने के लिए कठिन है।

Answer 1

मैं शायद tryCatch() का उपयोग करेंगे, पहले प्रयास कर वर्ग "numeric" करने के लिए प्रत्येक वेक्टर कन्वर्ट करने के लिए। यदि as.numeric() एक चेतावनी संदेश फेंकता है (जैसा कि इनपुट वेक्टर में गैर-संख्यात्मक वर्ण होते हैं), तो मैं चेतावनी पकड़ूंगा और इसके बजाय वेक्टर को कक्षा "factor" में परिवर्तित कर दूंगा।

vecA <- c("1",NA, "2",NA, "100") 
vecB <- c("smith", NA, NA, "jones") 

myConverter <- function(X) tryCatch(as.numeric(X), 
            warning = function(w) as.factor(X)) 

myConverter(vecA) 
# [1] 1 NA 2 NA 100 
myConverter(vecB) 
# [1] smith <NA> <NA> jones 
# Levels: jones smith 

Answer 2

शायद एक नियमित अभिव्यक्ति? प्रत्येक वेक्टर के लिए, संख्याओं की तरह दिखने वाली चीज़ों से मेल खाते हैं।

convert.numeric <- function(vec) { 
    if(grepl("^[0-9]*(\\.[0-9]+)?$",vec)) == !is.na(vec))) { 
    vec <- as.numeric(vec) 
    } else { vec <- as.factor(vec) } 
    return(vec) 
} 

फिर एक सूची में अपने वैक्टर लपेट और lapply का उपयोग करें:

new.vectors <- lapply(old.vectors,convert.numeric)