Convert a character vector of mixed numbers, fractions, and integers to numeric

by

1) This uses strapplyc to extract the numbers and then calc puts them in standard form, converts them to numeric and performs the calculation:

library(gsubfn)

ff <- c('1 1/2', '2 3/4', '2/3', '11 1/4', '1')
calc <- function(s) {
    x <- c(if (length(s) == 2) 0, as.numeric(s), 0:1)
    x[1] + x[2] / x[3]
}
sapply(strapplyc(ff, "\\d+"), calc)

2) A different approach is to convert each expression into valid R code and then parse and evaluate each.

sapply(sub(" ", "+", ff), function(x) eval(parse(text = x)))
##      1 1/2      2 3/4        2/3     11 1/4          1 
##  1.5000000  2.7500000  0.6666667 11.2500000  1.0000000

More Related Contents:

  1. Generate multiple graphics from within an R function
  2. Frequency counts in R [duplicate]
  3. Explain a lazy evaluation quirk
  4. Tools for making latex tables in R [closed]
  5. Efficient way to rbind data.frames with different columns
  6. Change bar plot colour in geom_bar with ggplot2 in r
  7. Lattice: multiple plots in one window?
  8. What are the differences between “=” and “
  9. What does the dot mean in R – personal preference, naming convention or more?
  10. Escaping backslash (\) in string or paths in R
  11. define $ right parameter with a variable in R [duplicate]
  12. R: data.table cross-join not working
  13. in R, use gsub to remove all punctuation except period
  14. Create zip file: error running command ” ” had status 127
  15. Saving multiple ggplots from ls into one and separate files in R
  16. Importing two functions with same name using roxygen2
  17. plots generated by ‘plot’ and ‘ggplot’ side-by-side
  18. How to get top n companies from a data frame in decreasing order
  19. Change day of the month in a Date to first day (01)
  20. How to detect the right encoding for read.csv?
  21. How to get ranks with no gaps when there are ties among values?
  22. Writing multiple data frames into .csv files using R
  23. Improve centering county names ggplot & maps
  24. How to find the indices of the top 10,000 elements in a symmetric matrix(12k X 12k) in R
  25. Generate ggplot2 boxplot with different colours for multiple groups
  26. Save imported csv data in vector – R
  27. Function to concatenate paths?
  28. How can I label points in this scatterplot?
  29. Error when using predict() on a randomForest object trained with caret’s train() using formula
  30. Aggregating all unique values of each column of data frame

Leave a Comment