

道路データ(<http://nlftp.mlit.go.jp/ksj/gml/datalist/KsjTmplt-N10.html>)を  
mapviewパッケージを利用して表示させたいのですが，表示できません．  
データによっては表示できるのですが，原因は何でしょうか？

[code]

    data <- 道路データ
    pj2000 <- CRS("+init=epsg:4612")
    road <- maptools::readShapeLines(data, proj4string = pj2000)
    mapview::mapview(road)
    
[/code]

なお，下記の例題(SpatialLinesDataFrameクラス)は表示させることは可能です．

[code]

    library(mapview)
    mapview(atlStorms2005)
    
[/code]

よろしくお願い致します．

データは簡単な例題やkokudosuuchiパッケージ(<http://notchained.hatenablog.com/entry/2016/11/08/220222>)  
を利用できればよかったのですが，うまくできなかったため，  
データ取得先のURLで示させていただきます．


CC BY-SA 3.0
2017-01-31T06:58:58.120
32269
2020-09-08T12:00:45.327
2017-01-31T10:25:37.577
15653
19890
question
r
SpatialLinesDataFrameのmapviewによる表示


`data.frame`に含まれる日本語の一部がエラーの原因になっているようです。

[code]

    data(atlStorms2005)
    test1 <- test2 <- atlStorms2005
    
    test1@data$test <- as.factor(c("日本語", "てすと"))
    test2@data$test <- as.factor(c("日本語", "五十嵐"))
    
    mapview(test1)   # 問題なく表示される
    mapview(test2)   # 表示されない
    
[/code]


CC BY-SA 3.0
2017-01-31T08:05:44.867
32275
2017-01-31T09:16:15.913
2017-01-31T09:16:15.913
15653
15653
32269
answer


質問に回答してくださった方ありがとうございました．  
データフレームの文字コードにより表示できないということがわかりました．  
(windowsで確認)

[code]

    data(atlStorms2005)
    test1 <- test2 <- atlStorms2005
    
    test1@data$test <- as.factor(c("日本語", "てすと"))
    test2@data$test <- as.factor(c("日本語", "五十嵐"))
    
    mapview(test1)   # 問題なく表示される
    mapview(test2)   # 表示されない
    
[/code]

データフレームを保存読込みすることで対応できます．

[code]

    re.data.frame <- function(data, encoding = "UTF-8", fileEncoding="UTF-8"){
      write.csv(data, file("clipboard", encoding = encoding), row.names = F, fileEncoding=fileEncoding)
      fileEncoding=fileEncoding)
      tmp <- read_csv("clipboard")
      return(tmp)
    }
    
    
    
    test2@data <- re.data.frame(test2@data)
    mapview(test2) # 表示できる
    
[/code]


CC BY-SA 3.0
2017-03-18T05:38:46.233
33398
2017-03-18T09:06:39.157
2017-03-18T09:06:39.157
19890
19890
32269
answer