［R］データフレームから指定した一列を取り出す

$演算子か[[ ]]演算子を使う。戻り値はベクトルになる。

> n <- c(11, 22, 33, 44)
> name <- c("イレイナ", "カナメ", "セナディア", "リフ")
> seiyu <- c("本渡楓", "安野希世乃", "鈴木みのり", "瀬戸麻沙美")
> dtf <- data.frame(n, name, seiyu)
> dtf
   n       name      seiyu
1 11   イレイナ     本渡楓
2 22     カナメ 安野希世乃
3 33 セナディア 鈴木みのり
4 44       リフ 瀬戸麻沙美
> dtf$seiyu
[1] "本渡楓"     "安野希世乃" "鈴木みのり" "瀬戸麻沙美"
> dtf[["seiyu"]]
[1] "本渡楓"     "安野希世乃" "鈴木みのり" "瀬戸麻沙美"
> dtf[[3]]
[1] "本渡楓"     "安野希世乃" "鈴木みのり" "瀬戸麻沙美"

［R］データフレームを指定した列だけのデータフレームに変換する

[ ]演算子を使う。取り出したい列を数値型ベクトルか文字列型ベクトルで指定する。行を指定する箇所は空欄にする。負数を指定すると、その列を取り除くという指定になる。最後の例のとおり、変換後に一列だけのデータフレームになる場合は、その戻り値はベクトルになることに注意。

> n <- c(11, 22, 33, 44)
> name <- c("イレイナ", "カナメ", "セナディア", "リフ")
> seiyu <- c("本渡楓", "安野希世乃", "鈴木みのり", "瀬戸麻沙美")
> dtf <- data.frame(n, name, seiyu)
> print(dtf)
   n       name      seiyu
1 11   イレイナ     本渡楓
2 22     カナメ 安野希世乃
3 33 セナディア 鈴木みのり
4 44       リフ 瀬戸麻沙美
> dtf[, 2:3]
        name      seiyu
1   イレイナ     本渡楓
2     カナメ 安野希世乃
3 セナディア 鈴木みのり
4       リフ 瀬戸麻沙美
> dtf[, -1]
        name      seiyu
1   イレイナ     本渡楓
2     カナメ 安野希世乃
3 セナディア 鈴木みのり
4       リフ 瀬戸麻沙美
> dtf[, c("seiyu", "name")]
       seiyu       name
1     本渡楓   イレイナ
2 安野希世乃     カナメ
3 鈴木みのり セナディア
4 瀬戸麻沙美       リフ
> dtf[, 3]
[1] "本渡楓"     "安野希世乃" "鈴木みのり" "瀬戸麻沙美"

［R］データフレームを指定した行だけのデータフレームに変換する

[ ]演算子を使う。取り出したい行を数値型ベクトルで指定する。列を指定する箇所は空欄にする。負数を指定すると、その行を取り除くという指定になる。

> n <- c(11, 22, 33, 44)
> name <- c("イレイナ", "カナメ", "セナディア", "リフ")
> seiyu <- c("本渡楓", "安野希世乃", "鈴木みのり", "瀬戸麻沙美")
> dtf <- data.frame(n, name, seiyu)
> print(dtf)
   n       name      seiyu
1 11   イレイナ     本渡楓
2 22     カナメ 安野希世乃
3 33 セナディア 鈴木みのり
4 44       リフ 瀬戸麻沙美
> dtf[c(2, 4), ]
   n   name      seiyu
2 22 カナメ 安野希世乃
4 44   リフ 瀬戸麻沙美
> dtf[c(-3), ]
   n     name      seiyu
1 11 イレイナ     本渡楓
2 22   カナメ 安野希世乃
4 44     リフ 瀬戸麻沙美

［R］データフレームの列名を得る

names関数を使う。データフレームを与えると、列名を文字型ベクトルで返す。以下はあらかじめ用意したデータフレームで列名を取得した例。

> print(dtf)
              name      seiyu
1       メレアーデ 石見舞菜香
2   ライスシャワー 石見舞菜香
3         マーシル 石見舞菜香
4 メイショウドトウ 和多田美咲
5           フィー 和多田美咲
6             リフ 瀬戸麻沙美
7       セナディア 鈴木みのり
> names(dtf)
[1] "name"  "seiyu"

［R］データフレームの行を逆順に並び替える

nrow関数でそのデータフレームの全行数を取得し、行のインデックスに全行数～1となる数値ベクトルを指定すればよい。以下は、あらかじめ用意したデータフレームcharaで行を逆順に並び替えた例。

> chara
              name      seiyu
1       セナディア 鈴木みのり
2           フィー 和多田美咲
3         マーシル 石見舞菜香
4 メイショウドトウ 和多田美咲
5       メレアーデ 石見舞菜香
6   ライスシャワー 石見舞菜香
7             リフ 瀬戸麻沙美
> chara[nrow(chara):1, ]
              name      seiyu
7             リフ 瀬戸麻沙美
6   ライスシャワー 石見舞菜香
5       メレアーデ 石見舞菜香
4 メイショウドトウ 和多田美咲
3         マーシル 石見舞菜香
2           フィー 和多田美咲
1       セナディア 鈴木みのり

［R］出納帳の残高をまとめて簡単に計算する

例えばデータフレームとして入金と出金の情報だけがあり、これらから残高を簡単に計算してデータフレームに列として追加してみる。

データフレームdtfに以下のような情報がある状態で、残高を簡単に計算して列に追加してみる。累積の和を計算するには、cumsum関数を使えばよい。

> dtf
      年月日 内容     入   出
1 2024-07-25 入金 100000    0
2 2024-08-02 電気      0 4000
3 2024-08-04 ガス      0 3000
4 2024-08-04 水道      0 2000
5 2024-08-25 入金 120000    0
6 2024-09-03 電気      0 5000
7 2024-09-03 ガス      0 4000
> 残高 <- dtf$入 - dtf$出
> 残高 <- cumsum(残高)
> dtf1 <- cbind(dtf, 残 = 残高)
> dtf1
      年月日 内容     入   出     残
1 2024-07-25 入金 100000    0 100000
2 2024-08-02 電気      0 4000  96000
3 2024-08-04 ガス      0 3000  93000
4 2024-08-04 水道      0 2000  91000
5 2024-08-25 入金 120000    0 211000
6 2024-09-03 電気      0 5000 206000
7 2024-09-03 ガス      0 4000 202000

上の例では、残高を最初は0円ということで計算したが、これを例えば元々20万円あったとして残高を求める場合は、以下のようにすればよい。

> dtf2 <- cbind(dtf, 残 = 残高 + 200000)
> dtf2
      年月日 内容     入   出     残
1 2024-07-25 入金 100000    0 300000
2 2024-08-02 電気      0 4000 296000
3 2024-08-04 ガス      0 3000 293000
4 2024-08-04 水道      0 2000 291000
5 2024-08-25 入金 120000    0 411000
6 2024-09-03 電気      0 5000 406000
7 2024-09-03 ガス      0 4000 402000

［R］データフレームの行名をリセットする

データフレームを作成すると、自動的に行名が付けられる。

> no <- c(2, 4, 1, 5, 3)
> name <- c("A", "B", "C", "D", "E")
> dtf <- data.frame(no, name)
> dtf
  no name
1  2    A
2  4    B
3  1    C
4  5    D
5  3    E

上の左端の数字のとおりに、データフレーム作成時に、最初から順番に1～5の番号が強制的に割り振られる。このデータフレームを、例えばソートすると以下のようになる。

> dtf2 <- dtf[order(dtf$no), ]
> dtf2
  no name
3  1    C
1  2    A
5  3    E
2  4    B
4  5    D

3,1,5,2,4とソート前に割り振られた番号（行名）がそのまま付いたままになる。この行名を消すにはrownames関数を使う。NULLを与えると行名はすべて消される（最初から順番に1～の番号が割り当てられる）。

> rownames(dtf2) <- NULL
> dtf2
  no name
1  1    C
2  2    A
3  3    E
4  4    B
5  5    D

例えば、以下のようなこともできる。

> rownames(dtf2) <- 5:1
> dtf2
  no name
5  1    C
4  2    A
3  3    E
2  4    B
1  5    D

［R］データフレームから特定の列を削除する

[ ]演算子を使用して、削除したい列の列番号を、列番号指定箇所に負数で与える。

> no <- 1:3
> name <- c("A", "B", "C")
> age <- c(20, 30, 40)
> blood <- c("AB", "B", "AB")
> dtf1 <- data.frame(no, name, age, blood)
> print(dtf1)
  no name age blood
1  1    A  20    AB
2  2    B  30     B
3  3    C  40    AB
> dtf2 <- dtf1[, -c(2, 3)]
> print(dtf2)
  no blood
1  1    AB
2  2     B
3  3    AB

［R］データフレームを並び替える

[ ]演算子とorder関数を組み合わせて使う。2つ以上の値で並び替える場合は、order関数にその並び替える順番に列を指定する。order関数による並び替えはデフォルトで昇順に並び替えられるが、これを降順にするのであればorder関数のdecreasingオプションにTRUEを与える。

> n <- c(3, 3, 1, 2)
> s1 <- c("ABC", "123", "123", "abc")
> s2 <- c("え", "う", "い", "あ")
> dtf <- data.frame(n, s1, s2)
> print(dtf)
  n  s1 s2
1 3 ABC え
2 3 123 う
3 1 123 い
4 2 abc あ
> print(dtf[order(dtf$n), ])
  n  s1 s2
3 1 123 い
4 2 abc あ
1 3 ABC え
2 3 123 う
> print(dtf[order(dtf$n, dtf$s2), ])
  n  s1 s2
3 1 123 い
4 2 abc あ
2 3 123 う
1 3 ABC え
> print(dtf[order(dtf$n, decreasing = TRUE), ])
  n  s1 s2
1 3 ABC え
2 3 123 う
4 2 abc あ
3 1 123 い

［R］データフレームを作成する

data.frame関数を使う。

> no <- 1:3
> n <- 1:3
> s <- c("田中", "山本", "林")
> dt <- as.Date(c("2001-01-01", "2002-08-31", "1999-12-29"))
> dtf <- data.frame(n, s, dt)
> print(dtf)
  n    s         dt
1 1 田中 2001-01-01
2 2 山本 2002-08-31
3 3   林 1999-12-29