Eu criei um script abaixo para converter unicode em caracteres chineses, a última string emtemp.df[,"name_unicode"] é "§® £" (sem aspas), para que as pessoas que não conhecem o chinês também possam ajudar.

library(RODBC)
library(Unicode)

temp.df <- data.frame(name_unicode=c("&#38515;&#22823;&#25991;",
                                     "&#38515;&#23567;&#25935;",
                                     "&#38515;&#19968;&#23665;",
                                     "&#167;&#174;&#163;"),
                      stringsAsFactors=FALSE)

temp.df[,"name_unicode_mod"] <- sapply(temp.df[,"name_unicode"],
                                        function(x) {
                                          temp <- unlist(strsplit(x,";"))
                                          temp <- sprintf("%x",as.integer(gsub("[^0-9]","",temp)))
                                          temp <- intToUtf8(as.u_char_range(temp))
                                          return(temp)
                                          })


write.csv(temp.df,file("test.csv",encoding="UTF-8"),row.names=FALSE)

A saída paratemp.df[,"name_unicode_mod"] está OK para o console R. Mas eu preciso exportá-los emcsv ouxls formato. eu tenteiwrite.csv, write.table, odbcConnectExcel emRODBC mas tudo me dá algo parecido<U+00A7><U+00AE><U+00A3>.

Alguém pode ajudar? Obrigado.

P.S. Estou usando o R 3.0.0 e o Win7