Pet*_*ung 2 grep r match dataframe
我有一个如下数据框,并希望通过将数据框中的字符替换为数字条件来生成另一个数据框.
condition:
GD 5
O 4.5
AV 3
B 2.5
dataframe:
Name Peter Paul Mary Chan Jose
Nokia B O O GD GD
iPhone AV O O O O
Moto AV AV O O AV
HTC B O AV AV AV
dput:
structure(list(Name = c("Nokia", "iPhone", "Moto", "HTC"), Peter =
c("B", "AV", "AV", "B"), Paul = c("O", "O", "AV", "O"), Mary =
c("O", "O", "O", "AV"), Chan = c("GD", "O", "O", "AV"), Jose =
c("GD", "O", "AV", "AV")), .Names =
c("Name", "Peter", "Paul", "Mary", "Chan", "Jose"), class = "data.frame", row.names = c(NA, -4L))
desired output:
Name Peter Paul Mary Chan Jose
Nokia 2.5 4.5 4.5 5 5
iPhone 3 4.5 4.5 4.5 4.5
Moto 3 3 4.5 4.5 3
HTC 2.5 4.5 3 3 3
Run Code Online (Sandbox Code Playgroud)
谢谢你的帮助!!!
我不确定它的结构是什么condition
,但假设它是一个命名向量
condition <- setNames(c(5, 4.5, 3, 2.5), c("GD", "O", "AV", "B"))
Run Code Online (Sandbox Code Playgroud)
我会简单地unlist
/ match
你的数据设置并把它放回去
df[-1] <- condition[match(unlist(df[-1]), names(condition))]
df
# Name Peter Paul Mary Chan Jose
# 1 Nokia 2.5 4.5 4.5 5.0 5.0
# 2 iPhone 3.0 4.5 4.5 4.5 4.5
# 3 Moto 3.0 3.0 4.5 4.5 3.0
# 4 HTC 2.5 4.5 3.0 3.0 3.0
Run Code Online (Sandbox Code Playgroud)