Попробуйте открыть соединение UTF8:
con<-file('filename',encoding="UTF-8") write.csv(...,file=con,...)