92 rename()の練習問題

library(tidyverse)

では、練習してみましょう。

{
  temp <- tibble(`日本語1`=1:3,`日本語2`=1:3,`日本語3`=1:3)
  write_csv(temp,"data/rename.csv")
}

課題1:

“data/rename.csv”を読み込んでください。

ヒント:文字化けした場合はlocaleで設定を変えましょう。windowsの標準文字コードはcp932です。

課題2:

その中の「日本語の変数名」3つをrename関数で、好きな名前に変えてみてください。

できましたか?

課題1:ここではあえて文字コードをwindows基準にかえてありました。

read_csv("data/rename.csv") #そのままだとだめです。

Rows: 3 Columns: 3
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
dbl (3): 日本語1, 日本語2, 日本語3

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

# A tibble: 3 × 3
  日本語1 日本語2 日本語3
    <dbl>   <dbl>   <dbl>
1       1       1       1
2       2       2       2
3       3       3       3

dat <- read_csv(
  file = "data/rename.csv",
  locale = locale(encoding = "cp932")
)

Error: Invalid multibyte sequence

dat

Error in eval(expr, envir, enclos): object 'dat' not found

あとは、好きな名前に変更です。

課題2:

その中の「日本語の変数名」3つをrename関数で、好きな名前に変えてみてください。

dat %>% 
  rename(
    japanese1 = `日本語1`,
    japanese2 = `日本語2`,
    japanese3 = `日本語3`
  )

Error in eval(expr, envir, enclos): object 'dat' not found

以上、それほど難しくありませんね?次は、列を選択する関数の説明です。