狠狠撸

狠狠撸Share a Scribd company logo
第3回ゼロからはじめるR勉強会
Rスクリプトを実行してみる
Agenda
? 自己紹介
? RはGUIで動かすことが多い
? 定期的に結果がほしくなる
? スクリプトをコマンドで実行する
? とにかく使ってみる
? どうしてもPythonを使いたいなら
Agenda
? 自己紹介
? RはGUIで動かすことが多い
? 定期的に結果がほしくなる
? スクリプトをコマンドで実行する
? とにかく使ってみる
? どうしてもPythonを使いたいなら
自己紹介
? 名前
 飯田 啓介
(twitter: menphis_feel)
(facebookの方に主に出現)
? 会社
 株式会社ブリリアントサービス
? 業務
 データ解析、マイニング
Agenda
? 自己紹介
? RはGUIで動かすことが多い
? 定期的に結果がほしくなる
? スクリプトをコマンドで実行する
? とにかく使ってみる
? どうしてもPythonを使いたいなら
RはGUIで動かすことが多い
R StadioなどGUIを使うとき
? 解析方法をいろいろ検討するとき
? コードを組むとき
? デバッグするとき
RはGUIで動かすことが多い
R StadioなどGUIを使うとき
? グラフを作成していくとき
Agenda
? 自己紹介
? RはGUIで動かすことが多い
? 定期的に結果がほしくなる
? スクリプトをコマンドで実行する
? とにかく使ってみる
? どうしてもPythonを使いたいなら
定期的に結果がほしくなる
解析手段や手順、出力結果が決まる解析手段や手順、出力結果が決まる
定期的に出力したい定期的に出力したい
スケジューリングしたいスケジューリングしたい
定期的に結果がほしくなる
手段はいろいろあるだろう。
? シェルスクリプトを利用する。
? Pythonなどのスクリプトを利用する。
? Rをそのまま実行する。
開発環境に合わせて最適な手段を選択
すればいい。
定期的に結果がほしくなる
手段はいろいろあるだろう。
? シェルスクリプトを利用する。
? Pythonなどのスクリプトを利用する。
? RRをそのまま実行する。をそのまま実行する。
あえてRをそのまま実行してみよう
Agenda
? 自己紹介
? RはGUIで動かすことが多い
? 定期的に結果がほしくなる
? スクリプトをコマンドで実行する
? とにかく使ってみる
? どうしてもPythonを使いたいなら
スクリプトをコマンドで実行する
Rをコマンドで実行するには
$ R --help
Usage: R [options] [< infile] [> outfile]
or: R CMD command [arguments]
Start R, a system for statistical computation and graphics, with the
specified options, or invoke an R tool via the 'R CMD' interface.
Options:
-h, --help Print short help message and exit
--version Print version info and exit
--encoding=ENC Specify encoding to be used for stdin
--encoding ENC
RHOME Print path to R home directory and exit
--save Do save workspace at the end of the session
とにかく使ってみる
d<-read.csv("test.csv",col.names=c("Eng","Jap"))
s.eng<-d[order(d$Eng,na.last = TRUE, decreasing=TRUE),1]
png("test.png", bg="white", width=500, height=600)
str_main<-"Test"
str_main<-paste(str_main," ")
str_mtext<-paste("Total Value->", len_y)
hist(s.eng)
mtext(str_mtext)
# for option slave
if (dev.cur() == 1){
dev.off()
}
Rファイルサンプル
Agenda
? 自己紹介
? RはGUIで動かすことが多い
? 定期的に結果がほしくなる
? スクリプトをコマンドで実行する
? とにかく使ってみる
? どうしてもPythonを使いたいなら
とにかく使ってみる
一番シンプルに使ってみる。
? R --option < input.R > out.txt
$ R --save < r_test.R > out.txt
$ cat out.txt
R version 2.15.3 (2013-03-01) -- "Security Blanket"
Copyright (C) 2013 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: x86_64-pc-linux-gnu (64-bit)
Rは、自由なソフトウェアであり、「完全に無保証」です。
…
> # CSV読み込み
> d<-read.csv("test.csv",col.names=c("Eng","Jap"))
>
> s.eng<-d[order(d$Eng,na.last = TRUE, decreasing=TRUE),1]
引数を使う
R --vanilla --args test.csv < r_test.R
読み込むファイル名を引数で指定する。
引数の取り込みコマンド:commandArgs
使い方例
args <- commandArgs(trailingOnly = T)
> help(commandArgs)
trailingOnly: logical. Should only arguments after ‘--args’ be returned?
Agenda
? 自己紹介
? RはGUIで動かすことが多い
? 定期的に結果がほしくなる
? スクリプトをコマンドで実行する
? とにかく使ってみる
? どうしてもPythonを使いたいなら
どうしてもPythonを使いたいなら
Pythonを使う理由
? グラフはmatplotlibを使いたい
? Rだけでスクリプトを実行したくない
? やりかたがわからない
? Pythonが好きだから
PythonでRを読み込む
さすがPython以下の2ステップで実行でき
る。
import rpy2.robjects as robjects
ret=robjects.r("""
source("r_test.R")
""")
ご清聴ありがとうございました
Rを共に勉強しましょ
う!
Ad

Recommended

PPTX
Stapy#17LT
drillan
?
PDF
サート?ハ?ーティハ?ッケーシ?の歩き方
Takesxi Sximada
?
PDF
Javascriptを書きたくないヒ トのためのPythonScript
Kazufumi Ohkawa
?
PPTX
Pynyumon03 LT
drillan
?
PDF
mypy - 待望のPython3.9型ヒント対応
KyutatsuNishiura
?
PDF
S16 t1 python学習奮闘記#6
Takeshi Akutsu
?
PDF
久しぶりの笔测迟丑辞苍で驳辞辞驳濒别のアレを制御してみた
Shohei Tai
?
PPTX
勉強会 Cvml python基礎
真哉 杉野
?
PDF
PyCon JP 2016 ヒ?キ?ナーセッション
Tetsuya Morimoto
?
PDF
10分でわかる笔测迟丑辞苍の开発环境
Hisao Soyama
?
PPTX
笔测迟丑辞苍札幌201406
Shinya Okano
?
PDF
S20 t1 stapyのこれまて?とこれから
Takeshi Akutsu
?
KEY
奥颈苍诲辞飞蝉に辫测迟丑辞苍をインストールしてみよう
Kenji NAKAGAKI
?
PDF
顿箩补苍驳辞のエントリポイントとアプリケーションの仕组み
Shinya Okano
?
PDF
奥颈苍诲辞飞蝉で笔测迟丑辞苍
drillan
?
PPTX
Pythonスタートアップ勉強会201109 python入門
Takayuki Shimizukawa
?
PDF
S18 t0 introduction
Takeshi Akutsu
?
PDF
はじめてのPython - 開発環境の準備 for Mac
Katsumi Honda
?
PPTX
PythonのインストールからHello Worldまで
Kioto Hirahara
?
PDF
メルカリアッテの実务て?使えた、骋础贰/骋辞の开発を効率的にする方法
Takuya Ueda
?
PDF
Testing PHP extension on Travis CI
Yoshio Hanawa
?
PPTX
Python エンジニアの作り方 2011.08 #pyconjp
Takeshi Komiya
?
PDF
チームで活用する础苍补肠辞苍诲补入门
Takeshi Akutsu
?
PDF
Go初心者向けハンズオン コマンドラインツールを作ろう
Takuya Ueda
?
PDF
GAE/Goて?LINE Messaging API を使う
Takuya Ueda
?
PDF
Django 1.9
OMEGA (@equal_001)
?
PDF
笔贬笔-贵笔惭と耻奥厂骋滨——尘辞诲冲辫丑辫以外の选択肢を探る
Yoshio Hanawa
?
PDF
Django最速デバッグ指南 PyConAPAC 2013
hirokiky
?
PDF
Pyconjp2014_implementations
masahitojp
?
PDF
あなたの安心を高速に守る Container-based CI
Wataru MIYAGUNI
?

More Related Content

What's hot (20)

PDF
PyCon JP 2016 ヒ?キ?ナーセッション
Tetsuya Morimoto
?
PDF
10分でわかる笔测迟丑辞苍の开発环境
Hisao Soyama
?
PPTX
笔测迟丑辞苍札幌201406
Shinya Okano
?
PDF
S20 t1 stapyのこれまて?とこれから
Takeshi Akutsu
?
KEY
奥颈苍诲辞飞蝉に辫测迟丑辞苍をインストールしてみよう
Kenji NAKAGAKI
?
PDF
顿箩补苍驳辞のエントリポイントとアプリケーションの仕组み
Shinya Okano
?
PDF
奥颈苍诲辞飞蝉で笔测迟丑辞苍
drillan
?
PPTX
Pythonスタートアップ勉強会201109 python入門
Takayuki Shimizukawa
?
PDF
S18 t0 introduction
Takeshi Akutsu
?
PDF
はじめてのPython - 開発環境の準備 for Mac
Katsumi Honda
?
PPTX
PythonのインストールからHello Worldまで
Kioto Hirahara
?
PDF
メルカリアッテの実务て?使えた、骋础贰/骋辞の开発を効率的にする方法
Takuya Ueda
?
PDF
Testing PHP extension on Travis CI
Yoshio Hanawa
?
PPTX
Python エンジニアの作り方 2011.08 #pyconjp
Takeshi Komiya
?
PDF
チームで活用する础苍补肠辞苍诲补入门
Takeshi Akutsu
?
PDF
Go初心者向けハンズオン コマンドラインツールを作ろう
Takuya Ueda
?
PDF
GAE/Goて?LINE Messaging API を使う
Takuya Ueda
?
PDF
Django 1.9
OMEGA (@equal_001)
?
PDF
笔贬笔-贵笔惭と耻奥厂骋滨——尘辞诲冲辫丑辫以外の选択肢を探る
Yoshio Hanawa
?
PDF
Django最速デバッグ指南 PyConAPAC 2013
hirokiky
?
PyCon JP 2016 ヒ?キ?ナーセッション
Tetsuya Morimoto
?
10分でわかる笔测迟丑辞苍の开発环境
Hisao Soyama
?
笔测迟丑辞苍札幌201406
Shinya Okano
?
S20 t1 stapyのこれまて?とこれから
Takeshi Akutsu
?
奥颈苍诲辞飞蝉に辫测迟丑辞苍をインストールしてみよう
Kenji NAKAGAKI
?
顿箩补苍驳辞のエントリポイントとアプリケーションの仕组み
Shinya Okano
?
奥颈苍诲辞飞蝉で笔测迟丑辞苍
drillan
?
Pythonスタートアップ勉強会201109 python入門
Takayuki Shimizukawa
?
S18 t0 introduction
Takeshi Akutsu
?
はじめてのPython - 開発環境の準備 for Mac
Katsumi Honda
?
PythonのインストールからHello Worldまで
Kioto Hirahara
?
メルカリアッテの実务て?使えた、骋础贰/骋辞の开発を効率的にする方法
Takuya Ueda
?
Testing PHP extension on Travis CI
Yoshio Hanawa
?
Python エンジニアの作り方 2011.08 #pyconjp
Takeshi Komiya
?
チームで活用する础苍补肠辞苍诲补入门
Takeshi Akutsu
?
Go初心者向けハンズオン コマンドラインツールを作ろう
Takuya Ueda
?
GAE/Goて?LINE Messaging API を使う
Takuya Ueda
?
笔贬笔-贵笔惭と耻奥厂骋滨——尘辞诲冲辫丑辫以外の选択肢を探る
Yoshio Hanawa
?
Django最速デバッグ指南 PyConAPAC 2013
hirokiky
?

Similar to 第3回関西ゼロから始める搁勉强会 (20)

PDF
Pyconjp2014_implementations
masahitojp
?
PDF
あなたの安心を高速に守る Container-based CI
Wataru MIYAGUNI
?
PDF
PyPy 紹介
shoma h
?
PPT
补辫辫别苍驳颈苍别活用事例资料蔼罢顿顿叠颁札幌2.1
Go Sueyoshi (a.k.a sue445)
?
PPTX
プログラミング入門 Python超入門編
ナレッジコミュニケーション
?
ODP
第2回関西ゼロから始める搁言语勉强会
Iida Keisuke
?
PDF
僕か?础苍诲谤辞颈诲开発する时にちょっと便利た?と思う迟颈辫蝉
Masataka Kono
?
PPTX
po-1. プログラミング入門
kunihikokaneko1
?
PPTX
笔测迟丑辞苍のプロファイリング
ysakaguchi
?
PPTX
春を先取り!OpsWorksとChef ではじめる恋色コーデ術! #pyfes 2013.03
Takeshi Komiya
?
PDF
プログラマーとの出会い - Hello, Programmer! at PyCon Kyushu 2022
Takayuki Shimizukawa
?
PPTX
贵谤颈别苍诲濒测と罢别蝉迟础蝉蝉颈蝉迟补苍迟笔谤辞でテスト自动化やってみた
NakaiYusaku
?
PPT
笔测迟丑辞苍で始める竞技プログラミング
shunki fujiwara
?
PPTX
Apilecture for 2014/02/22 at shannonlab
Yutaka Kobayshi
?
PDF
S03 t1 python_learningdiary#3
Takeshi Akutsu
?
PPTX
Pipenvのご紹介 v2
C Y
?
PDF
础苍诲谤辞颈诲アプリ滞在时间の计测
Shigeki Yamato
?
PPTX
笔测迟丑辞苍による画像処理について
Yasutomo Kawanishi
?
PDF
今日から始める笔测迟丑辞苍
Keisuke Imura
?
Pyconjp2014_implementations
masahitojp
?
あなたの安心を高速に守る Container-based CI
Wataru MIYAGUNI
?
PyPy 紹介
shoma h
?
补辫辫别苍驳颈苍别活用事例资料蔼罢顿顿叠颁札幌2.1
Go Sueyoshi (a.k.a sue445)
?
プログラミング入門 Python超入門編
ナレッジコミュニケーション
?
第2回関西ゼロから始める搁言语勉强会
Iida Keisuke
?
僕か?础苍诲谤辞颈诲开発する时にちょっと便利た?と思う迟颈辫蝉
Masataka Kono
?
po-1. プログラミング入門
kunihikokaneko1
?
笔测迟丑辞苍のプロファイリング
ysakaguchi
?
春を先取り!OpsWorksとChef ではじめる恋色コーデ術! #pyfes 2013.03
Takeshi Komiya
?
プログラマーとの出会い - Hello, Programmer! at PyCon Kyushu 2022
Takayuki Shimizukawa
?
贵谤颈别苍诲濒测と罢别蝉迟础蝉蝉颈蝉迟补苍迟笔谤辞でテスト自动化やってみた
NakaiYusaku
?
笔测迟丑辞苍で始める竞技プログラミング
shunki fujiwara
?
Apilecture for 2014/02/22 at shannonlab
Yutaka Kobayshi
?
S03 t1 python_learningdiary#3
Takeshi Akutsu
?
Pipenvのご紹介 v2
C Y
?
础苍诲谤辞颈诲アプリ滞在时间の计测
Shigeki Yamato
?
笔测迟丑辞苍による画像処理について
Yasutomo Kawanishi
?
今日から始める笔测迟丑辞苍
Keisuke Imura
?
Ad

More from Iida Keisuke (8)

PPTX
デバイスWeb apiコンソーシアム 第四回資料(RemoteRelay with Thermal camera)
Iida Keisuke
?
PPTX
テ?ハ?イスWeb apiコンソーシアム lt-bril
Iida Keisuke
?
PDF
Linked Open Data With R
Iida Keisuke
?
ODP
第4回関东ゼロからはじめる搁言语勉强会(迟検定を勉强してみよう)
Iida Keisuke
?
ODP
第4回関东ゼロからはじめる搁言语勉强会
Iida Keisuke
?
PPTX
関东第1回r勉强会
Iida Keisuke
?
PPT
第1回関西ゼロからはじめる搁勉强会(2)
Iida Keisuke
?
PPTX
第1回関西ゼロからはじめる搁勉强会
Iida Keisuke
?
デバイスWeb apiコンソーシアム 第四回資料(RemoteRelay with Thermal camera)
Iida Keisuke
?
テ?ハ?イスWeb apiコンソーシアム lt-bril
Iida Keisuke
?
Linked Open Data With R
Iida Keisuke
?
第4回関东ゼロからはじめる搁言语勉强会(迟検定を勉强してみよう)
Iida Keisuke
?
第4回関东ゼロからはじめる搁言语勉强会
Iida Keisuke
?
関东第1回r勉强会
Iida Keisuke
?
第1回関西ゼロからはじめる搁勉强会(2)
Iida Keisuke
?
第1回関西ゼロからはじめる搁勉强会
Iida Keisuke
?
Ad

Recently uploaded (7)

PDF
Forguncy 10 製品概要資料 - ノーコードWebアプリ開発プラットフォーム
フォーガンシー
?
PPTX
Vibe Codingを始めよう ?Cursorを例に、ノーコードでのプログラミング体験?
iPride Co., Ltd.
?
PPTX
色について.pptx .
iPride Co., Ltd.
?
PPTX
Protect Your IoT Data with UbiBot's Private Platform.pptx
ユビボット 株式会社
?
PDF
础滨技术共有会2025-06-05冲顿别别辫搁别蝉别补谤肠丑の理解と実践.辫诲蹿
Takuma Oda
?
PPTX
勉強会_ターミナルコマント?入力迅速化_20250620. pptx. .
iPride Co., Ltd.
?
PDF
PGConf.dev 2025 参加レポート (JPUG総会併設セミナー2025 発表資料)
NTT DATA Technology & Innovation
?
Forguncy 10 製品概要資料 - ノーコードWebアプリ開発プラットフォーム
フォーガンシー
?
Vibe Codingを始めよう ?Cursorを例に、ノーコードでのプログラミング体験?
iPride Co., Ltd.
?
色について.pptx .
iPride Co., Ltd.
?
Protect Your IoT Data with UbiBot's Private Platform.pptx
ユビボット 株式会社
?
础滨技术共有会2025-06-05冲顿别别辫搁别蝉别补谤肠丑の理解と実践.辫诲蹿
Takuma Oda
?
勉強会_ターミナルコマント?入力迅速化_20250620. pptx. .
iPride Co., Ltd.
?
PGConf.dev 2025 参加レポート (JPUG総会併設セミナー2025 発表資料)
NTT DATA Technology & Innovation
?

第3回関西ゼロから始める搁勉强会