Question

我是R的初学者。我有两个数据集

df1 <- t(data.frame(seq(1,6,by=1),seq(6,1,by=-1)))    
colnames(df1) <- c("ZZZ","YYY","CCC","DDD","XXX","KKK")    
rownames(df1) <- c("a","b")    
Vector1<-c("AAA", "BBB", "CCC", "DDD", "EEE", "FFF")
Vector2<-c("a", "b", "e", "f", "k", "l")
df2<-data.frame(cbind(Vector1, Vector2))

df1是

   ZZZ  YYY  CCC  DDD  XXX  KKK
a    1    2    3    4    5    6
b    6    5    4    3    2    1

df2是

    Vector1  Vector2
 1  AAA      a
 2  BBB      b
 3  CCC      e
 4  DDD      f
 5  EEE      k
 6  FFF      l

当df1中的变量名称与df2中的Vector1值相同时，我想用df2中的Vector2值替换df1中的变量名。

所以，理想情况下，我想得到类似的东西

     ZZZ  YYY  e    f    XXX  KKK
a    1    2    3    4    5    6
b    6    5    4    3    2    1

我试图修改Match row names and column names to values in another data frame中提供的代码。但是，对我来说，更改df1中已识别变量的名称有些困难。任何建议或评论将不胜感激。

Answer 1

match和%in%完成任务。试试这个：

## example 1
df1 <- t(data.frame(seq(1,6,by=1),seq(6,1,by=-1)))    
colnames(df1) <- c("ZZZ","YYY","CCC","DDD","XXX","KKK")    
rownames(df1) <- c("a","b")    
Vector1<-c("AAA", "BBB", "CCC", "DDD", "EEE", "FFF")
Vector2<-c("a", "b", "e", "f", "k", "l")
df2<-data.frame(cbind(Vector1, Vector2))

target <- match(colnames(df1), df2$Vector1, nomatch = 0)
colnames(df1)[colnames(df1) %in% df2$Vector1] <- as.character(df2$Vector2[target])
df1 # output
   ZZZ YYY e f XXX KKK
a   1   2 3 4   5   6
b   6   5 4 3   2   1

#example 2
df1 <- t(data.frame(seq(1,6,by=1),seq(6,1,by=-1)))
colnames(df1) <- c("ZZZ","YYY","CCC","DDD","XXX","KKK")
rownames(df1) <- c("a","b")
Vector1<-c("KKK", "BBB", "DDD", "XXX", "EEE", "FFF")
Vector2<-c("a", "b", "e", "f", "k", "l")
df2<-data.frame(cbind(Vector1, Vector2))

target <- match(colnames(df1), df2$Vector1, nomatch = 0)
colnames(df1)[colnames(df1) %in% df2$Vector1] <- as.character(df2$Vector2[target])
df1 # output
   ZZZ YYY CCC e f a
a   1   2   3 4 5 6
b   6   5   4 3 2 1

当Data1中的变量名与Data2中的Column1的值相同时，用Data2中的Column2的值替换data1中的变量名

1 个答案: