確かに官庁統計のExcelデータはひどいけど...

「邪智暴虐なエクセル王を倒そう」
だの
「邪智暴虐なエクセル王を倒そう readxl版」
だのと R で Excel データを読むというのがあるけど...

いずれも dplyr を使っているのも鼻につく（笑）

生け贄にされた Excel ファイルなんて，かわいいもんですよ。

こんなチンケな表を xlsx や readxl で読むなんざ，まさに牛刀割鶏（鶏を割くに牛刀を用いる）たる愚策。

表の本体部分をコピーして，x <- matrix(scan("clipboard"), ncol=18, byrow=TRUE) で十分。colnames, rownames でちょっとお化粧して dataframe にしてやっても，5 分とはかからないだろう。