Rのgs_readを使い、Google Spreadsheetにある日本語を含むデータを読み込もうとしていますが、文字化けになってしまします（文字化け例：不動産→<U+5186> <U+4E0D><U+52D5><U+7523>）。以下のコードを使っていますが、どなたか解決する方法をご存知ないでしょうか？

library(googlesheets)
gs_ls()
data <- gs_key("シートのキーがここにはいる")
data <- gs_read(data)