2016-11-10 18 views
2

私は以下のようなデータフレームを持っており、データフレーム内の文字を条件に従って数値に置き換えて別のデータフレームを生成したいと考えています。Rデータフレーム内の文字列を数値に変更する

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 

ありがとうございます!

答えて

3

1つのオプションは、カラムを通して

「KEYVAL」「はV1」および「キー」として「V2」と「値」列の「data.frame」で
df1[-1] <- lapply(df1[-1], function(x) keyval$v2[match(x, keyval$v1)]) 
df1 
# 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 

をループすることによってmatchを使用しています。

7

私はconditionの構造が何であるかわからないんだけど、私は単に、unlist/matchあなたのデータはそれを設定して、バック

それを置くように

condition <- setNames(c(5, 4.5, 3, 2.5), c("GD", "O", "AV", "B")) 

として、それは名前のベクトルだと仮定すると

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 
1

また、これは(CDFは、ルックアップテーブルである場合)に動作します:

cbind.data.frame(Name=df[,1], matrix(cdf$value[match(as.matrix(df[-1]), cdf$condition)], 
            nrow=nrow(df), dimnames=list(NULL, names(df[-1])))) 

出力あり

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 
関連する問題