ish0321

医療経済・政策系の研究者。データサイエンス・経営学・公衆衛生を学んできました。 **E…

ish0321

医療経済・政策系の研究者。データサイエンス・経営学・公衆衛生を学んできました。 **Excuse** - 本当に自分用のノートとして使っているタイプの人。 - 講義や講演のサポート資料を目的としており、多くの人に読まれることは想定していません。

R | knitでPDF生成するときのヘッダ設定

RmarkdownでPDFを作成する場合の、日本語でつまずかない ヘッダー・デフォルト設定 ---tite: ""author: ""date: "`r Sys.Date()`"output: pdf_document: latex_engine: lualatex html_document: defaultdocumentclass: bxjsarticleclassoption: - pandoc - jafont=hiragino-pro--- 初回

ish0321

    • R | NA→0 or 0→NAの変換

      集計を行う際に、NAの取り扱いに注意。 例として、NA+100=NAとなることなど。 1. dplyr::if_else を使用して0 を NA に置換 dat %>% mutate(x = if_else(x == 0, NA_real_, x)) dplyr::if_else はデータ型 を揃える必要があることに注意。 2. mutate_if or mutateを使用してNAを０に変換dat <- dat %>% mutate_if(is.numeric,

      ish0321

      • R ｜ 2つの日付データから年齢を算出する

        library(lubridate)dat <- dat %>% mutate_at(vars(d_birth, d_x), as.Date) dat <- dat %>% mutate( age = as.duration(d_x - d_birth)) dat <- dat %>% mutate( age = as.double(str_extract(age, "(?<=~).+(?=\s)"))) 正規表現を使用して差分を取ることで算出する - (?<=~).+(

        ish0321

        • 医療経営に関するつぶやきメモ（逐次更新）

          ish0321

        R | knitでPDF生成するときのヘッダ設定

        ish0321

          纏める程ではないR便利コマンド（自分用）

          ディレクトリの複数Csvを読み込み # ディレクトリのパスを取得getwd()# ディレクトリのファイルリストを作成（csv形式にマッチするものをリストに格納）files <- list.files(path = " パスを入力", pattern = "*.csv", full.names = F)# 　sapply関数で各ファイルにread_csvを適用dat <- sapply(files, read.csv,　fileEncoding = "utf8", simpl

          ish0321

          纏める程ではないR便利コマンド（自分用）

          ish0321