Here's the test data. colnames(iris)[5] <- "種類" con <- dbConnect(PostgreSQL(), host="localhost", user= "postgres", password="XXXXX", dbname="test") dbSendQuery(con, "SET CLIENT_ENCODING = 'SJIS'") ...