library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
a <- c("4", "3,4", "7")
b <- c("3,5", "3", "7,4")
df <- tibble(a,b)
and I would like to get mean value for each value. In this case, it would be: