2
0

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

More than 3 years have passed since last update.

Rでreset index

Last updated at Posted at 2020-10-02

 初投稿です。

 ほぼ自分用のメモです。Rでreset index をしたかったのですが、pandasみたいに用意されてなさそうなので調べました。使うのはpcrの日別検査数(https://www.mhlw.go.jp/content/pcr_case_daily.csv)

pcr <- read.csv(file="dataset/pcr_case_daily.csv",fileEncoding="CP932")
pcr_refined=subset(pcr, subset= A!=0) # 国立感染症研究所の検査数が0のデータを除く

#出力結果
#116 2020/6/12  42 1061 1286  3663 1355  559
#117 2020/6/13  41 1183 1148  3952  394  272
#119 2020/6/15   3  878  598  3375 1256  757
#121 2020/6/17  40  771 1150  4242  963  493
#122 2020/6/18  86  838  997  3948  939  631
#123 2020/6/19   3 1173  966  3474 1278  628
#127 2020/6/23  80  818 1054  3648 1069  643
#128 2020/6/24  25  789 1024  4803 1111  585

 国立感染研究所はコロナウイルス感染拡大の初期段階に検査をたくさんしてましたが、最近は他の医療機関での検査が増えています。そのため後ろの方のデータになると、インデックスに抜けが多く見られるようになります。

 さて、本題ですが、このdataframeでreset index をしたいわけですが、あまり決まった方法がなさそうです。以下の方法を試したら、楽にindexを揃えられることがわかりました。

rownames(pcr_refined)=NULL #reset indexはこれ
pcr_refined

#出力結果
#88  2020/6/12  42 1061 1286  3663 1355  559
#89  2020/6/13  41 1183 1148  3952  394  272
#90  2020/6/15   3  878  598  3375 1256  757
#91  2020/6/17  40  771 1150  4242  963  493
#92  2020/6/18  86  838  997  3948  939  631
#93  2020/6/19   3 1173  966  3474 1278  628
#94  2020/6/23  80  818 1054  3648 1069  643
#95  2020/6/24  25  789 1024  4803 1111  585

以上です。

2
0
2

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
2
0

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?