Calculate variable stored as character in R

Question

R: How to calculate a variable, which is stored as character?

I want to get a solution as a vector of numeric values. However, when reading my df from a csv, all the elements of the df, which contain a mix of characters and numbers (those characters are to be substituted with certain values when needed) are converted to characters. Any idea how to avoid/solve that?

This code below just simulates my problem:

#create two vectors and bind them into a df
c1 <- c("v-3", "v")
c2 <- c("1-v",0)
df <- data.frame(c1,c2)
df
   c1  c2
1 v-3 1-v
2   v   0
#I would like to substitute "v" with a number
v <- 2
df
   c1  c2
1 v-3 1-v
2   v   0

Now, how can I revert the class of the the elements of the df, so that the "v" can be substituted, and the values calculated? Or maybe I can read csv in such a way that my mix of characters and numbers would be stored in a more friendly way?

Thanks in advance. Greg

What is the difference between your input and desired output? — AnilGoyal, Dec 16 '20 at 23:47
You may need `library(stringr);library(dplyr);df %>% mutate(across(everything(), ~ str_replace_all(., 'v', as.character(v))))` — akrun, Dec 16 '20 at 23:50
So your source csv actually has `"v-3","1-v"` as the first row of data? — A5C1D2H2I1M1N2O1R2T1, Dec 16 '20 at 23:55
Your expected output is the same as input in the post. Not clear — akrun, Dec 16 '20 at 23:56
@A5C1D2H2I1M1N2O1R2T1 - Yes, the character was to be replaced with a number when already in R — Greg3er, Dec 16 '20 at 23:56
Have you looked at this question: https://stackoverflow.com/q/57349214/1270695? You'll probably have to do the substitution that @akrun mentioned then some form of `eval(parse())`. — A5C1D2H2I1M1N2O1R2T1, Dec 16 '20 at 23:57
@akrun - My desired output is numbers. Calculated. v was supposed to be substituted with 2 in my example, and all elements that contain v were to be calculated — Greg3er, Dec 16 '20 at 23:57
@Greg3er Then, you need to `eval`uate as in the link i.e. `df %>% mutate(across(everything(), ~ map_dbl(., ~ eval(rlang::parse_expr(.)))))` — akrun, Dec 16 '20 at 23:58

score 1 · Accepted Answer · answered Dec 16 '20 at 23:59

You can use str_replace and then map eval/parse to evaluate the expression.


library(dplyr)
library(rlang)

df %>%
  mutate(
    across(everything(), str_replace, "v", "2"),
    across(everything(), ~map_dbl(., function(to_eval) eval(parse(text=to_eval))))
    )

  c1 c2
1 -1 -1
2  2  0

A5C1D2H2I1M1N2O1R2T1 · Answer 2 · 2020-12-17T02:39:29.080

This might be a more efficient way to do what you're after:

Write a small function that:

Uses gsub to replace the letter with a value.
Writes the result to a tempfile
Parses the tempfile
Evaluates the values and inserts them back into the structure of your original data.frame.

Here's the function:

fun <- function(df, patt, repl, fixed = TRUE) {
  fil <- tempfile()
  writeLines(gsub(patt, repl, as.matrix(df), fixed = fixed), con = fil)
  df[] <- sapply(parse(fil), eval)
  df
}

Here's how you'd use the function:

fun(df, "v", 2)
##   c1 c2
## 1 -1 -1
## 2  2  0

Here's a timing comparison with the other answer, with a larger dataset.

options <- c("v-3", "v", "v*2", "1-v", "v/5", 0, "v+2")
nrow <- 10000
ncol <- 20
set.seed(1)
df <- data.frame(matrix(sample(options, nrow*ncol, TRUE),
                        nrow = nrow, ncol = ncol))

fun2 <- function(df, patt, repl) {
  # df = input data.frame
  # patt = pattern to search for
  # repl = replacement value (as character)
  df %>%
    mutate(
      across(everything(), str_replace, patt, repl),
      across(everything(), ~map_dbl(., function(to_eval) eval(parse(text=to_eval))))
    )
}

library(microbenchmark)
microbenchmark(fun(df, "v", 2), fun2(df, "v", "2"), times = 10)
# Unit: milliseconds
#                expr      min        lq     mean   median       uq      max neval cld
#     fun(df, "v", 2)  831.731  924.9648 1159.544 1012.590 1366.072 1882.586    10  a 
#  fun2(df, "v", "2") 4471.800 4721.3587 4847.252 4853.269 4959.595 5157.823    10   b

Calculate variable stored as character in R

R: How to calculate a variable, which is stored as character?

2 Answers2