在数据上应用函数并在R中获得向量/ df输出？

Question

我有以下日期：

var1 <- c("a", "b", "c", "d", "e")

我有一个函数，为每个var1值分配一个数字分数（0-3）。

    f(a) --> 2
    f(b) --> 1 

etc...

我想使用apply like函数来获取一个包含2列的数据框：var1和score：

var1  score
a     1
b     0
c     3
d     3
e     2
f     1

我曾尝试使用vapply和map_dfr，但它不像我所示的那样工作。 请告知如何做到这一点。

PS

For map_dfr: Error: cannot convert object to a data frame

Answer 1

从akrun的解决方案中获得帮助，这更加简单

f <- function(x) sample(0:3, 1)
var1 <- c("a", "b", "c", "d", "e")

data.frame(cbind(Var1 = var1, Score = lapply(var1,f)))

  Var1 Score
1    a     0
2    b     2
3    c     0
4    d     1
5    e     3

Answer 2

将矢量转换为data.frame ，然后使用sapply创建新矢量。

df1 <- as.data.frame(var1)
df1$test <- sapply(df1$var1, function(x) if (x=="a") 1 else 0) 


  var1 test
1    a    1
2    b    0
3    c    0
4    d    0
5    e    0

 str(df1)
'data.frame':   5 obs. of  2 variables:
 $ var1: Factor w/ 5 levels "a","b","c","d",..: 1 2 3 4 5
 $ test: num  1 0 0 0 0

Answer 3

我们可以通过循环vector （“VAR1”）应用功能（ f ）得到一个list的vector ，设定的名字vector与“VAR1”和使用stack将其转换为一个2列data.frame

stack(setNames(lapply(var1, f), var1))[2:1]

默认情况下， stack将列名称返回为“ind”和“values”。 我们可以将其更改为'var1'和'得分'

setNames(stack(setNames(lapply(var1, f), var1))[2:1], c('var1', 'score'))

数据

f <- function(x) sample(0:3, 1)
var1 <- c("a", "b", "c", "d", "e")