- 追加された行はこの色です。
- 削除された行はこの色です。
#contents
#author("2021-04-07T19:58:02+09:00;1970-01-01T18:00:00+09:00","","")
[[RjpWiki]]
[Q] UTF-8ファイルの読み込み時に文字化けしてしまい困っています。
非常にありがちな質問ですが、read.table()で読み込んだデータが「部分的に」文字化けしてしまい、困っています。
具体的には以下のような症状です。
以下のデータファイルを読み込みたいのですが、
>[data.tsv]
> (TSV形式、UTF-8、BOMなし)
>Age Group Class DBH_mean DBH_sd
>31 すべて 全立木 17.9 4.34
31 すべて 生立木 17.9 4.34
31 すべて 残存木 17.9 4.34
36 すべて 全立木 20.0 4.92
36 すべて 生立木 20.0 4.92
36 すべて 残存木 20.0 4.92
41 すべて 全立木 21.9 5.59
41 すべて 生立木 21.9 5.56
41 すべて 残存木 21.9 5.56
data <- read.table("test.tsv",sep="\t",header=TRUE,skip=0, fileEncoding="UTF-8")
head(data)
とすると、
Age Group Class DBH_mean DBH_sd X
1 31 すべて \u5168\u7acb\u6728 17.9 4.34 NA
2 31 すべて \u751f\u7acb\u6728 17.9 4.34 NA
3 31 すべて \u6b8b\u5b58\u6728 17.9 4.34 NA
4 36 すべて \u5168\u7acb\u6728 20.0 4.92 NA
5 36 すべて \u751f\u7acb\u6728 20.0 4.92 NA
6 36 すべて \u6b8b\u5b58\u6728 20.0 4.92 NA
("\"はバックスラッシュ)
*テスト [#k3a0583c]
となり、「Group」のカラムは文字化けしないのに、「Class」のカラムは文字化けしてしまいます。
完全に文字化けしているのならば文字コードの間違いだと納得できるのですが、このような中途半端な文字化けは、いろいろググって見たのですがさっぱり分かりません。
TSVをCSVにしたり、ファイル形式をShift-JISにして fileEncoding='Shift_JIS'としてみても、結果はほぼ同じで途方に暮れております。
おまじないにと,stringAsFactorsをTRUEにしたりFALSEにしても変わりません(変わるとも思えませんが)。
a<sup>x</sup>
どなたか解決方法をご教示いただけましたら幸いです。何卒よろしくお願いします。
a<sub>i</sub>
model<-glm(Y~X)
model<-glm(Y~X)
test
library(grid)
#quartz(height=4, width=4)
png(filename = "~/Desktop/fuji-pie.png", width = 360, height = 360, units = "px")
>しょうゆ
>>みそ
>>>とんこつ
-hoge''hoge''
てすとです2
~段落を区切る練習1
~段落を区切る練習2
**practice [#e5b41d88]
-あいうえお
x <- rnorm(100)
-fsdafsd
-fsda fsd
-fsda
fsdafsd
fsda fsd
fsda
-コメント
コメント
-コメット
read.csv("hoge.csv",header=T)
i <- m;m <- s
*練習用ページ [#n638a1f7]
http://www.okada.jp.org/RWiki/index.php
[[RjpWiki:http://www.okada.jp.org/RWiki/index.php]]
#ref(http://www.okada.jp.org/RWiki/index.php,center,wrap,RjpWiki)
//代替文字列は最後のパラメーターとして入れる
//『#』:ソース上の行頭
[[練習用ページ>練習用ページ]]
----
LEFT:左寄せ
CENTER:センタリング
RIGHT:右寄せ
''太字''
'''斜体'''
&color(#0000FF,#FF0000){文字色=青(#0000FF) 背景色=赤(#FF0000)};
実は((注釈なんてない))
%%取り消し%%
存在しないファイルを指定したとき
~#ref(unavailable.png)
#ref(unavailable.png)
//こめんとあうと!!
**練習 [#q82ed9f1]
***れんしゅう・レンシュウ [#e4188e99]
*トラッカー [#y3edb9ba]
*テスト3 [#k3a0583d]
#tracker_list(default,練習)
#tracker(default,練習)
#mimetex( \Large \eps=\Bigsum_{i=1}^{n-1}\frac1{\Del x}\Bigint_{x_i}^{x_{i+1}}\{\frac1{\Del x}[(x_{i+1}-x)y_i^\star+(x-x_i)y_{i+15}^\star]-f(x)\}^2dx )
*コメント [#s68651a6]
- 精米 -- [[玄米]] &new{2013-07-18 (木) 14:53:45};
#comment
*来訪者数 [#tafa2bb4]
&online;
&counter(total);