使用 R 中的查找表替换字符向量中的值

Question

我有这样的东西:

  #Change deg
  x1 <- gsub("&deg;","°",x1)

  #Change ohm
  x1 <- gsub("&ohm;","Ω",x1)

  #change divide
  x1 <- gsub("&divide;","÷",x1)

  #change minus
  x1 <- gsub("&minus;","-",x1)

但是有很多值，我不想将所有内容都写在 r 脚本中。我有一张 table ，看起来像这样

&newtonm;   N m 
®   ®
°   °
− -

如何查找表格并在 R 脚本中进行更改？

Answer 1

以下是如何使用 Reduce() 来完成此操作:

lookup <- data.frame(pat=c('&newtonm;','&reg;','&deg;','&minus;'),rep=c('N m','®','°','-'),stringsAsFactors=F);
lookup;
##         pat rep
## 1 &newtonm; N m
## 2     &reg;   ®
## 3     &deg;   °
## 4   &minus;   -
entityrep <- function(x) Reduce(function(x,r) gsub(lookup$pat[r],lookup$rep[r],x,fixed=T),seq_len(nrow(lookup)),x);
x1 <- 'test &newtonm; &reg; &deg; &minus; test';
entityrep(x1);
## [1] "test N m ® ° - test"