日本の労働者の低い生産性_再現可能なものへの転換
年末年始最初に読んだ本は、
デービッド・アトキンソン 新・所得倍増論 潜在能力を活かせない「日本病」の正体と処方箋 [ デービッド・アトキンソン ]
- ジャンル: 本・雑誌・コミック > ビジネス・経済・就職 > 経済・財政 > 日本経済
- ショップ: 楽天ブックス
- 価格: 1,650円
でした。
昨今では日本の高度経済成長の要員はモーレツ社員の頑張りだけでなく、「円の固定相場制」「人口ボーナス」などの影響が大きかった、というのは通説になりつつあるのではないかと思いますが、本書は「人口ボーナス」の要員の大きさを自覚すべきだという主張でした。
そしてこのまま生産性が低いママでは各国に置いてけぼりになります。
では、どうしたら生産性は上がるのか?
デービッド アトキンソン氏の本は、アナリストらしく、具体的な改善方法というよりも、マネジメント層が改革をせざるを得なくなるように株式市場のプレッシャーを与えるように構造を変えよう、という主張で、その先は経営者が自分で考えることになっています。
普段、日経CPの元編集長 木村さんのツイートをよく見ていますが、日本は”失われた20年”の間に随分と効率化から置いてけぼりになっているのだと毎朝思い知らされる事例をツイートしてくれます。
ITで業務改革と言うけれど、本当に必要なのはマネジメント改革。ITを活用すれば、単なるオーバーヘッドの管理職を一掃できるし、効果は抜群のはず。ただ、抵抗勢力管理職だし、その親玉は社長。だから、絶望的に難しい。唯一可能なのは、会社が潰れかけて外資に買収された時ぐらいだな。
— 木村岳史(東葛人) (@toukatsujin) 2017年1月3日
カスタマイズするのは、悪
何年か前に読んでなるほど!と思った本に
があります。
小説ですがとてもためになります。
本書では効率化を図るために、部品のカスタマイズ=「すり合わせ」を止めて、共通して売れるものを生産し、それを買ってくれる客を探すのだ、という主張をしていました。
「すり合わせ」とは逆方向に進むインダストリー4.0
中間部品の標準化の重要性は世界的に肯定されている流れです。
にも、ドイツのインダストリー4.0は工場の自動化などではなく、中小企業が納品する中間生産財の規格を標準化していることの方が重要であるという指摘がありました。
再利用可能という考え方
規格化や標準化による効率化は、再利用可能と言い換えても良いと思います。
一つ一つ、個別対応してすり合わせをした部品は他の顧客には使えませんが、標準化した部品は他の顧客にも使えます。
プログラムの世界
例えば、統計のレポーティングをExcelではなくRなどプログラムで行うのは、コードが再利用可能だからです。
お酒の世界
職人芸の世界でも獺祭のような事例がありました。職人の技を再利用可能にした取組です。
広告デザインにおける再利用可能性について
では広告の世界ではどのような分野で再利用可能なものへの変革が可能でしょうか?
例えば、デザインの世界では、一文字一文字字間を詰めるだとか、手作業で調整しているところが大変沢山あります。
一方でAdobeは最先端の技術を道入してどんどん人間の手間を省いています。
因みについ最近、人間の切抜き作業をしたのですが一昔前とは全然切抜きの精度が向上していて、小さいサイズであれば全くのおまかせでも大丈夫そうなくらいでした。
手間がかかっている方が良いという信仰
この人のツイートもよく読んでいますが、例えばこういうことなのだと思います。
一つ一つ特別仕様にすることが良いことだと思っている人は多いのではないかと思います。
「これは手間がかかっている!」ということを良しとするのをやめるべきでしょう。
手間がかかっていないことは消費者のメリットになる
生産ロットが多いということは、イニシャルコストが薄く分散されているため、同じ値段のスマートフォンでもロット数が多いものほど、良い機能が突っ込まれているわけです。
China eyes breakthroughs in SOE reform - Business - Chinadaily.com.cn
工芸品と工業製品は異なるものですので、手間がかかっていることが良い場合と悪い場合とがあるということだと思います。
参考
固定相場制の影響の重要性について
- ジャンル: 本・雑誌・コミック > ビジネス・経済・就職 > その他
- ショップ: 楽天ブックス
- 価格: 1,650円
人口ボーナスについて
デザインの職人芸について
なるほどデザイン 目で見て楽しむデザインの本。 [ 筒井美希 ]
- ジャンル: 本・雑誌・コミック > ホビー・スポーツ・美術 > 美術 > デザイン
- ショップ: 楽天ブックス
- 価格: 2,200円
ルイ・マル『死刑台のエレベーター』に見るこだわり
オールナイトでルイ・マルの『死刑台のエレベーター』『地下鉄のザジ』『さよなら子供たち』を鑑賞しました。(『鬼火』は寝ました)
『地下鉄のザジ』しか観たことがなかったので、勝手にサイケデリックな人だという先入観がありましたが、『死刑台のエレベーター』はとてもロマンチックな話でしたし、『さよなら子供たち』はしみじみとした美しい作品でした。
『死刑台のエレベーター』の音楽との相性、『地下鉄のザジ』の劇伴と絵のタイミングの併せ方など、色々と特徴があって関心をしましたが、ポイントポイントでの力の入れよう拘りようが半端ない人だと感じました。 これを機会に是非色んな人に観て欲しい映画です。
以降、ネタバレを少し含みます
ここが良かった!というのを忘れずに備忘録的にメモします。
オープニングがお洒落
『死刑台のエレベーター』は、電話をしている男女のドアップから、徐々にカメラが引いていき、建物まで見えて行く間にテロップが載ります。『地下鉄のザジ』では、パリまで行く列車からの流れる景色がずーっと流れます。 後から、ここをオープニングにしようとしたのではなくて、最初からオープニングに使うことを意識して撮っているなと思います。
『死刑台のエレベーター』の写真が泣ける
昨晩観た中で一番強く印象に残っているのがこのシーンです。
現像中の写真が出て来るシーンがあるのですが、幸せそうな2人の写真が何枚も何枚も何枚も出てきます。
本編の動画とは別撮りでスチールを撮っている筈です。 ストーリーのオチとして使うだけであれば1枚でも済むシーンなのですが、彼が何枚も撮ったのは、本作が推理やサスペンスをテーマとしているのではなく男女の純愛をテーマとしているからだと考えられます。
『さよなら子供たち』の本の交換シーンが泣ける
大切な友達との繋がりである本をお互い交換し絆を確かめ合うシーンがあります。僕はこういう脚本の作り方がとても好きです。
話の流れ上は、なくても成立します(伏線にもなっていません)。 しかしここがあるのとないのとでは、2人の絆の印象は全然違うと言えるでしょう。
以前、良い脚本というものは存在する、というエントリーを書きましたが、ルイ・マルもまた、その勘所が泣けるほど素晴らしいです。
拘ると効くところとそうでもないところ。
2016年に大ヒットアニメ映画となった『君の名は』は、CGのカメラワークでVコンを作ってから美術の絵を発注することで、アニメの絵の中をカメラが動いて撮影してきたような美しさが目をひく作品でした。その圧倒的な絵の美しさが全体を引っ張ったと思います。
一方で、タイプラプスのシーンは、周りの実写映像系の人からは、”え?何でわざわざアニメでやったの?”という反応がちょいちょい見られます。言われてみてから気が付きましたが、確かに美しいは美しいのですが、何か強く印象に残るシーンでもありません。
ストーリー上、そのシーンで最も伝えたいことは何か?から逆算した上での拘りがルイ・マルの拘りだと思います。撮りたかったから、やってみたかったから、といったプロダクト・アウトな発想ではなく、とてもマーケット・インな発想です。
日々の文章、企画書、記念写真、あらゆる局面で共通して持っておきたい意識だと思いました。
音楽もいいですが、雷の音のタイミングも良いです。25才で撮ったとは思えない程に細部に拘りがあります
2人の少年がとにかくイケメンです。何でもないような日々なのに2人の仲がゆっくりつまっていくのが、とても良いです。 本の交換のシーンもそうですが、タイトルのセリフが出て来るシーンでは泣いてしまいました。
当時これをどうやって作ったのか??という程、切り貼りが凄い、サイケデリックな作品です。シュルレアリストだと言われてもおかしくない飛びようです。笑いの中に哀愁があります。 可変させているところなどはどうやっているのでしょう?
RStudioからLaTeXを使ってPDFやHTMLでプレゼンテーション資料として出力したい時の設定について
以前、「RStudioからLaTeXを使ってPDFで出力したい時の日本語設定について」というエントリーを書いた時は、RStudioではSweaveが便利だと言いました。
ところが最近はエラーが多く、RMarkdownを使うようになったので、その場合の設定についてメモします。
RMarikdownを使う場合
新規ファイル作成
New FileからRMarkdownでbeamerプレゼンテーションを選びます
プリアンブルを丸っと入れ替える
注意点が幾つかあります
- Beamerは変なサイズをしているので"\usepackage[size=a4,scale=3.5]{beamerposter}"でA4サイズになるようにする
- 日本語のフォントを指定する"\usepackage{zxjatype}"," \setjamainfont{Noto Sans CJK JP}"
- latexのエンジンをデフォルトから変更する。私の場合はxelatexが日本語との相性が良いと思いますので、"latex_engine: xelatex"を追記。 この際にインデントをするのも重要です。
--- title: "年齢別インターネットの利用機器状況" author: "yhy" date: "2016/10/29" header-includes: - \usepackage[size=a4,scale=3.5]{beamerposter} - \usepackage{zxjatype} - \setjamainfont{Noto Sans CJK JP} - \usetheme{boxes} - \usecolortheme{seagull} output: beamer_presentation: latex_engine: xelatex ---
ggplotの中でフォントを指定する
ggplotの中でもRが認識できる日本語フォントを使用する必要があります
riyoukiki_nenrei_g <- riyoukiki_nenrei_g + theme_bw(base_family="Japan1GothicBBB")
表はxtableの方が便利
表は、kableと xtableがありますが、xtableの方が便利だと感じました。主な注意点は以下です
- xtableをprintする時にscaleboxでサイズを調整する
- xtableをprintする時にlatexと明示する
- xtableをprintする時にcommentをFALSEにしておく
- 個別のセルのサイズを「p{~cm}」で固定すると横幅が入りきる
チャンクの中のコードは以下のようになります
{r echo=FALSE,warning=FALSE,error=FALSE,message=FALSE,results="asis"} library("xtable", lib.loc="C:/hogehoge/r/R-3.2.3/library") riyoukiki_nenrei_tb <- xtable(riyoukiki_nenrei,caption="%") align(riyoukiki_nenrei_tb) <- "|l|l|p{3cm}|p{3cm}|p{3cm}|p{3cm}|p{3cm}|p{3cm}|p{3cm}|p{3cm}|p{3cm}|p{3cm}|" print(riyoukiki_nenrei_tb,type="latex",comment = FALSE,scalebox=0.7)
※xtableの設定について
https://cran.r-project.org/web/packages/xtable/vignettes/xtableGallery.pdf
出力結果イメージ
コード全体
今回は総務省のデータを加工して使用しました
※コードの前後は、チャンク「```」で囲んでいます
--- title: "年齢別インターネットの利用機器状況" author: "yhy" date: "2016/10/29" header-includes: - \usepackage[size=a4,scale=3.5]{beamerposter} - \usepackage{zxjatype} - \setjamainfont{Noto Sans CJK JP} - \usetheme{boxes} - \usecolortheme{seagull} output: beamer_presentation: latex_engine: xelatex --- ## 日本語の入ったグラフ 総務省「平成27年通信利用動向調査」補問 インターネットの利用機器(加工2) {r echo=FALSE,warning=FALSE,error=FALSE,message=FALSE} library("dplyr", lib.loc="C:/hogehoge/R-3.2.3/library") library("reshape2", lib.loc="C:/hogehoge/R-3.2.3/library") library("ggplot2", lib.loc="C:/hogehoge/R-3.2.3/library") library("RColorBrewer", lib.loc="C:/hogehoge/R-3.2.3/library") riyoukiki_nenrei <- read.csv("kosein15_2_1.csv",header = TRUE) riyoukiki_nenrei_m <- melt(riyoukiki_nenrei,id.vars = c("Age")) riyoukiki_nenrei_g <- ggplot(data=riyoukiki_nenrei_m, aes(x=variable,y=value,fill=variable,color=variable)) riyoukiki_nenrei_g <- riyoukiki_nenrei_g + geom_bar(stat="identity",position="dodge") riyoukiki_nenrei_g <- riyoukiki_nenrei_g + theme_bw(base_family="Japan1GothicBBB") riyoukiki_nenrei_g <- riyoukiki_nenrei_g + ggtitle("インターネットの利用機") riyoukiki_nenrei_g <- riyoukiki_nenrei_g + ylab("%") riyoukiki_nenrei_g <- riyoukiki_nenrei_g + xlab("") riyoukiki_nenrei_g <- riyoukiki_nenrei_g + geom_text(aes(x=variable,y=value,label=value),vjust=-0.5,color="black",size=4) riyoukiki_nenrei_g <- riyoukiki_nenrei_g + scale_fill_brewer(palette = "Spectral") riyoukiki_nenrei_g <- riyoukiki_nenrei_g + scale_color_brewer(palette = "Spectral") riyoukiki_nenrei_g <- riyoukiki_nenrei_g + facet_wrap(~Age,scales = "fixed") riyoukiki_nenrei_g <- riyoukiki_nenrei_g + theme(axis.text.x=element_blank()) riyoukiki_nenrei_g <- riyoukiki_nenrei_g + scale_y_continuous(breaks=seq(0,100,by=10),limits = c(0,100)) plot(riyoukiki_nenrei_g) ## 日本語の入った表 総務省「平成27年通信利用動向調査」補問 インターネットの利用機器(加工2) {r echo=FALSE,warning=FALSE,error=FALSE,message=FALSE,results="asis"} library("xtable", lib.loc="C:/hogehoge/R-3.2.3/library") riyoukiki_nenrei_tb <- xtable(riyoukiki_nenrei,caption="%") align(riyoukiki_nenrei_tb) <- "|l|l|p{3cm}|p{3cm}|p{3cm}|p{3cm}|p{3cm}|p{3cm}|p{3cm}|p{3cm}|p{3cm}|p{3cm}|" print(riyoukiki_nenrei_tb,type="latex",comment = FALSE,scalebox=0.7)
「reveal.js」でも出力できます
最近流行りのHTMLでのプレゼンテーションに出力することもRMarkdownなら簡単です
プリアンブルの変更
最初に「revealjs」パッケージをインストールしておきます。 アウトプットの出力をrevealjsに変更して、テーマを選べば終わりです。
--- title: "年齢別インターネットの利用機器状況" author: "yhy" date: "2016/10/29" output: revealjs::revealjs_presentation: theme: default center: true fig_height: 5 reveal_options: slideNumber: true ---
諸々の設定についてはこちら
出力例
表について
プリアンブルの下にCSSの指定を入れるとカスタマイズできて、文字色や背景色は変更できるのですが、表のサイズを上手く変更できませんでした。 こちらは、詳しい人にお願いします!!
広告代理店の営業マンは何を売っているのか?
その事件を受けて色々な人が”広告代理店が何故長時間労働しているのか?”について情報発信しています。 実態としてその通りな面はあると思いつつ、若干のミスリードもあると思っているので、自分なりの意見をまとめました。
広告代理店の実態を書いたブログエントリー
どちらも既に業界には居ない人ですが、レガシィな代理店はその頃から変化はなく、大枠の実態としてはその通りです
上記のエントリーはどちらも実態を把握しているものと感じます。
しかし、現場が日々目指している”ちゃんとした営業マンの営業スタイル”は必ずしもこのような世界ではありません。
特に、クライアントの言う通りに何もかもを調整して対応することは、クライアント・代理店そして発注先の媒体社や制作会社、全てに対して負の連鎖しか生みません。
人は一緒に乗り越えた苦労は覚えているがピンチを助けてくれたことは忘れがち
先輩であり上司である人に教えて貰った教訓です。
「あの時はピンチでしたね~」と苦労を共有して乗り越えた案件というのは、クライアントと広告代理店の絆を強くします。
一方で、値引きをしたり、今回だけ特別対応ですよ?と短納期で納入したり、と一方的に広告代理店及びその先の媒体社・制作会社側だけが苦労して対応した案件というのは、その瞬間は凄く感謝されますが、時間が経つと不思議と忘れられてしまいます。
それどころか
- 「前回は、このスケジュールで何とかなったじゃないですか?なので今回も!」
- 「前回のあの金額が残ってしまっていて、なかなか値上げをするには追加メリットがないと。。。」
などと最初から短納期が設定されたり、最初から低収益でスタートしてしまいかねないのです。
そもそも”値引き”も”短納期対応”も”とても失礼”である。
”値引き”は自社の利益を削って対応するのですから、自社が決断すれば誰にも迷惑をかけないと思いがちですが、
- 定価で購入した別のクライアント
- 商品価値を維持したい媒体社・制作会社
に対して失礼です。
もし同じ案件に対して、A社には値引きして売っていたのに、B社には値引きせずに利益確保していたことが、 何年も経った後でB社に情報が逆流したら、B社の宣伝部担当者はどう思うでしょうか?B社担当の営業マンはどう対処すればいいでしょうか?
”短納期対応”は、もっと失礼です。
広告代理店は自社で作業を解決することはできません。
”明日までに修正お願い!”と言われて、企画書の文言修正であれば広告代理店内で済む話ですが、グラフィック案の修正であれば外部のデザイナーが広告代理店のクリエイターのディレクションの後に徹夜で作業をしているのです。
広告代理店が売っているのは、”媒体・コンテンツ”と”人”である
広告代理店のビジネスは大きく2つに分かれています。
- 広告媒体・タレント・キャラクター・イベントなど値段の決まっている媒体やコンテンツの代理販売
- 社内のスタッフ・外部スタッフなど”人”
1つ目の説明は不要でしょう。2つ目について説明します。
ちゃんと商品が売れるような広告表現が出来る優秀なクリエイターの人生は限られています。彼等の貴重な仕事時間を色んなクライアントに切り売りするのが、営業マンのしていることです。
一般的商品に例えると
- 仕事の出来るスタッフに効率的にアウトプットして貰う = 生産効率を上げる
- 1回辺りのスタッフの仕事をできるだけ高く請求する = 商品単価を上げる
の2つを意識して会社に利益を残すことが営業マンの役割です。
日々どういう意識を持っているのか?
- ほんとにその作業は今、依頼する必要があるのか?
- この案件はスタッフの経歴として誇らしいものになっただろうか?
- スタッフのした仕事をちゃんとクライアントに説明して評価して貰えたろうか?
- このプロジェクトはちゃんと利益が確保できて、次回も継続できるだろうか?
などを考える必要があります。
利益を確保することはクライアントの為である
スタッフを効率的に回して利益確保することが会社のミッションであると理解している管理職は、利益の出ていないプロジェクトからスタッフを外し、時に担当の営業マンの数も減らします。
値引きに値引きを重ねてスタッフを安売りしてしまったプロジェクトは、人員不足になり最終的に崩壊し、その取引は終わります。
その時に広告代理店の営業マンは困りません。何故ならまた別のクライアントの仕事があるからです。
一方でクライアント側は、優秀なスタッフが抜けることでアウトプットのクオリティが下がりますし、最終的に広告代理店に請負うだけの人員が確保されない場合は取引を別の会社にゼロから委託せざるを得なくなります。
クライアントの伝書鳩な人は自分が可愛いだけ
人は誰かに頼られたり感謝されたりすることに快感を覚えるものです。 「今回はありがとう!」「お願いなんですけど。。。」と言われると、”頑張ろう!”という気持ちになります。
しかし動き出す前に、 その無理なスケジュールや予算を請けることが、”会社として正しいことか?”、”長期的にクライアントの為になっているか?”と一歩考えてから踏み出さないと何もかもが崩壊します。
電通で自殺者が出てしまった遠因を作ったのが、現場の誰かなのか?組織の構造的欠陥だったのか?いずれにしても、正常な営業スタイルは維持できていなかったということでしょう。
見どころが違うアニメ_『百日紅』_『花とアリス殺人事件』_『あしたのジョー2』_『君の名は。』_『ガールズ&パンツァー 劇場版』
ここ最近見たアニメで”夫々見どころが違って面白い”と思ったのでその感想です。 どれもいい作品だと想いますので気に入ったらいつか見て欲しいものばかりです。
ジャパニーズアニーションという感じがする『百日紅』
”目に見えないモノ”の描き方が素晴らしい
予告編で良いシーンが既に幾つか抜粋されていますが、半透明の”妖怪”の動きや屏風の中の鬼の動きがリアルです。 また、龍・魂など”目に見えないモノ”を風の動きで表現するのもとても上手いです。 直接的表現を避けた方が味わい深く心にグッとくる時があります。
絵師の心構えが伝わる
”目に見えないモノ”の描写に力が入っているため、”目に見えないモノ”を描く絵師の物語が凄く印象に残るようになっていました。 ”龍は降りて来ないと描けない”という話や、絵の力で妖怪や病を抑えつけるといった話を全く信じていなくても、”いや、ひょっとしたらそういうことがあってもいいのではないか?”という気持ちになりました。 それ程、アニーションに説得力がありました。
原恵一監督の良さが一つ理解できたように思いました。
中学生の頃が思い出される『花とアリス殺人事件』
実写のようなカメラワーク
具体的にどう説明していいのかがわからないのですが、選ぶカットがどれも実写感があって、なるほどこういうアニメーションの使い方もあるんだな、という新鮮さがあります。
役者の演技のことを考えると演技のできる子どもを集めるのは大変なので、こういうアニメーションの活かし方もあるんだ!と思いました。
中学生ってこうだったよねの満載
学校の迷心を信じたり、ちょっと親の行動が恥ずかしいと思ったり、他にもっと良い解決があるのに自分達で遠くまで確かめに行こう!と盛り上がったり、”中学生ってこうだったよね”というシーンが盛り沢山です。
主人公は転校生なのですが、昔の顔見知り、よくわからない男子、変なきっかけで会話するようになった子、お隣さんetc色々な人と出会いつつ、誰かひとりと急に仲良くなるわけでもなくちょっとずつ距離を近付けて行くのが本当に中学生の頃のリアリティがあります。
とても懐かしい気分になったと共に、毎日が変化だったあの頃を忘れないようにしたいと思いました。
あしたのジョー2
「あしたのジョー2 OP」で検索して下さい。そして第1シーズンのOPを見て下さい。
衝撃的なカッコよさのOP
楽曲のイントロの渋さもたまらないのですが、この影絵のようなOPの一つ一つの動きをよく見て頂きたいのです。 殴られて顎が上がって元に戻る頭蓋骨と首の動きのリアリティ、影絵のランニングの動きのリアルさ、影絵であるだけに如何に動きが”本物っぽい”かがわかると思います。
ロシア・アヴァンギャルドやドイツ表現主義が好きなのですが、この影絵・色使い・タイポグラフィの入り方、どれもかっこいいです。
ジョーを応援したくなる
暴力的なシーンは苦手なのですが、出崎統の描くボクシングのシーンは何故か熱い。動きの緩急にリアリティがあるのでしょうか。
力石を自分のパンチで殺してしまったトラウマをひきずって本気で殴れなくなったジョー、それを自覚し悔しがるシーンがシンプルに力強く描かれています。 余計なお涙頂戴シーンではなく、本気の一発、殴られて今にも死にそうな相手、その姿をみての嗚咽、”ジョー!頑張れ!”と思わず叫んでしまう。 80年代のお茶の間で流れていたんだなというTVシリーズならではのドラマ感。
よく考えると毎週30分、小難しい話もなく、プロボクサーの話だけで引っ張るって凄いことだと思いませんか?
CGかのような滑らかな動き『君の名は。』
OPからテンションがあがる動き
背景が動いているのに人物も動いていて、アニメの絵が動いているのではなく、アニメーションの世界の中でカメラが動いているような滑らかな動き。 それだけで興奮してしまいますし、OPでその山場があることで、”いや、これはもう傑作でしょ!”と期待値がグッと上がりました。
音と映像のタイミングがあっている
タイアップアーティストの歌唱が大きい、というレビューもありましたが、この映像と音のタイミングの快感は最高だと思います。 監督の過去作品『秒速5センチメートル』でも桜と山崎まさよしの歌がよくあっていましたが、今回も最高のシーンでした。
”音響”が素晴らしい『ガールズ&パンツァー 劇場版』
音がズッシリ来る
音響監督がよくツイートしていますが、ガルパンはとても音に拘っています。 爆発音がガンと響いて来ます。映画は、音・映像・脚本etcと色々な要素に分解できますが、”音”の良さも味わって欲しいです。
爆音上映をやっている間にいつか立川に行きたいですね。 (いつも満席ですが)
友情と勝利
ジャンプの努力・友情・勝利ほど上手く物語のポイントを掴んだ言葉はないでしょう。 本作も、仲間と共にピンチを協力して乗り越える、熱い友情の連続でした。
戦車を退避させなければならないシーンがあるのですが、そこでの協力プレーが涙モノです。 どうせ美少女ものなんでしょう?と思っていたら損をするスポ根アニメです。
『君の名は。』の関連商品のオススメ
Walkerや公式ガイドブックなど色々ありますが、本作の映像的な秘密を知りたい人は、
CGWORLD (シージーワールド) 2016年 10月号 [雑誌]
- 作者: CGWORLD編集部
- 出版社/メーカー: ボーンデジタル
- 発売日: 2016/09/13
- メディア: Kindle版
- この商品を含むブログを見る
あのCGなのか?というシーンでは実は一度3dCGでカメラワークを作って吐き出した絵をベースに美術発注しているのです。 とてつもない作業だと思いますが、結果、拘るのであれば最初からそうする方が早いのだとか。。。 その他、なるほどね!という話が一杯だったので、書店でもKindleでもこれは買いです。
紹介作品一覧
アニメの楽しみ方、受け取り方は人それぞれ。 もっと色々な楽しみ方を勉強して理解の幅を広げたいです。
- 出版社/メーカー: バンダイビジュアル
- 発売日: 2015/11/26
- メディア: DVD
- この商品を含むブログ (7件) を見る
- 出版社/メーカー: ポニーキャニオン
- 発売日: 2015/08/12
- メディア: DVD
- この商品を含むブログ (4件) を見る
- 出版社/メーカー: コロムビアミュージックエンタテインメント
- 発売日: 2005/10/02
- メディア: DVD
- クリック: 5回
- この商品を含むブログ (16件) を見る
- 出版社/メーカー: 日本コロムビア
- 発売日: 2003/03/21
- メディア: DVD
- クリック: 6回
- この商品を含むブログ (19件) を見る
【Amazon.co.jp限定】 ガールズ&パンツァー 劇場版 (特装限定版) (戦車トークCD付) [Blu-ray]
- 出版社/メーカー: バンダイビジュアル
- 発売日: 2016/05/27
- メディア: Blu-ray
- この商品を含むブログ (20件) を見る
【備忘録】Markdownとreveal.jsでプレゼン資料を作ってみる
先般Markdownが如何に便利かというエントリーを書きました。
これだけも充分なのですが、最近流行りのHTML形式へのプレゼンも簡単にできることを知ったので、メモ。
reveal.jsを導入する
色々なサイトを参考にしましたが、素人にはどれも難しく、、、このサイトをとても参考にさせて頂きました。
先ずはこちらで「Basic setup」の方をダウンロードし解凍します。
導入は以上です。
HTMLを直接編集する
これが最初わからなかったのですが、HTMLファイルでプレゼンするのですからHTMLファイルを直接編集すればいいのです。
リンクで参照するので解凍したフォルダ内から移動させずに作業します。
「index.html」を好きなファイル名に変更し、それをテキストエディタで編集します。
markdown用の記述
「div class="slides"」の後ろ変更します。Markdownだよ、ということや、ページ区切りの文字は「(改行)---(改行)」にするよ!といったことを記述します。
コピペ時の注意事項はこちらを参考にしました。
<div class="reveal"> <div class="slides"> <section data-markdown data-separator="^\n---\n$" data-separator-vertical=">>>$" data-vertical="^\n--\n"> <script type="text/template"> ~ここに本文~ </script> </div> </div>
本文のところに丸っとMarkdown記法で書いた本文をコピペします。
注意
Markdownファイルを呼びこむこともできますが、それにはサーバーの設定が必要なので、とても面倒そうでした。そこまでするなら、コピペでも良いかなと想います。
デフォルトでのプレゼン
ブラウザでHTMLファイルを開くとプレゼンテーションになります。
デフォルトのテーマで作るとこのような感じです。「→」のキーでページをめくれます。
好き嫌いあるかもしれませんが、個人的には好きなテイスト。きっといじればフォントサイズも調整できるのでしょう。
縦方向のスライド
HTMLファイルでのプレゼンの醍醐味は縦方向にもいスライドすることなのですが、何故か私、上手くいきませんでした。。。 *1 こちらのサイト yoghurt1131.hatenablog.com の通り
data-separator-vertical=">>>$"
とすれば下方向へスライドできます
PDFにする
PDFにすることも簡単です。
HTMLをブラウザで開き、URLの所を書き換えます
「#」の前に「?print-pdf」を入れます。
この段階ではレイアウトが崩れますが、Google ChromeのPDF保存機能でPDFにすれば、綺麗なPDFになります。
PDFからPowerPointにする
これは前回 MarkdownのWordにもPowerPointにもなる汎用性の高さに感動 - 広告/統計/アニメ/映画 等に関するブログ と手法は同じです。
無事、PPTにできるので、誰とでも共有できるわけですが、残念ながら微妙に使いづらいところは使いづらいです。
その他
もっとReveal.js自体の勉強をしたら面白いプレゼンが出来そうです。
そもそもPowerPointでプレゼンする必要性などないのですから。
*1:2016/9/22更新。
【備忘録】Rで矢印のグラフを描く
グラフにこんな矢印を入れたい時ってありますよね? これは、因子分析をした時のプロットをイメージしています。
色々と調べた結果をデータの準備からプロットまで手順を追ってメモをしておきます。
データの準備
それっぽいデータを乱数で用意
取り敢えず正規分布の乱数を作成。
平均を0、分散を0.5として7つずつ
set.seed(123) mr1 <- rnorm(7,mean = 0,sd=0.5) mr2 <- rnorm(7,mean = 0,sd=0.5)
それっぽいイメージ項目の文字列を作成
names <- c("美しい","賢い","派手な","高貴な","個性的な","明るい","温かい")
データフレームを用意してdplyrのbind_colsを使ってデータフレームを作ります (別にcbindでも同じことです)
res <- NULL res <- as.data.frame(res) library("dplyr", lib.loc="C:/hogehoge/R-3.2.3/library") res <- bind_cols(as.data.frame(mr1),as.data.frame(mr2)) res$names <- names
結果、このようなデータを用意しました
mr1 mr2 names 1 -0.28023782 -0.63253062 美しい 2 -0.11508874 -0.34342643 賢い 3 0.77935416 -0.22283099 派手な 4 0.03525420 0.61204090 高貴な 5 0.06464387 0.17990691 個性的な 6 0.85753249 0.20038573 明るい 7 0.23045810 0.05534136 温かい
矢印をひく為のデータを用意
このサイトを参考にしました。
5 functions to do Principal Components Analysis in R · Gaston Sanchez
矢印には出発点とゴール地点とがあります。その値を持ったデータフレームを別途用意すれば良いのです。
arrowsという名称でデータフレームを用意します。
x1,x2が出発点なので"0"。今回のデータのレコード数をnrowで確認して、必要な数だけの0を並べます。 y1,y2はゴール地点なので描画するデータの値と同じです
arrows <- NULL arrows <- as.data.frame(arrows) x1 <- rep(0,nrow(res)) y1 <- rep(0,nrow(res)) arrows <- bind_cols(as.data.frame(x1),as.data.frame(y1)) x2 <- res$mr1 y2 <- res$mr2 arrows$x2 <- x2 arrows$y2 <- y2
こんなデータになります
x1 y1 x2 y2 1 0 0 -0.28023782 -0.63253062 2 0 0 -0.11508874 -0.34342643 3 0 0 0.77935416 -0.22283099
ggplotで描く
ggplotの描画範囲を大きくする
グラフの端で文字が消えないよう、x軸 y軸の最大値・最小値を少し大きめに取ります。
有効数字3桁として、0.1だけ絶対値を大きくとりました。
a <- round(max(res$mr1,res$mr2),3) + 0.1 b <- round(min(res$mr1,res$mr2),3) - 0.1
ベースの値をプロット
先ずはデータの値(今回は因子分析の因子負荷量をイメージしています。)をgeom_pointで、質問項目名をgeom_textで、先ほど決めたグラフの軸の値でxlim,ylimで指定します
g <- ggplot(data=res,aes(x=res$mr1,y=res$mr2)) g <- g + geom_point() g <- g + geom_text(aes(x=res$mr1,y=res$mr2),label=res$names,vjust=-1) g <- g + xlim(b,a) g <- g + ylim(b,a) plot(g)
するとこんなグラフになりますが、ちょっと見辛いです。
縦横の比率を同じにする
グラフの描画エリアが正方形であって欲しい場合があります。今回は、縦も横も因子負荷量ですから、同じスケールでないと正確にイメージできない可視化となってしまいます。
こちらのサイトを参考にしました。
ggplot2: きれいなグラフを簡単に合理的に - Watal M. Iwasaki
g <- g + coord_fixed(ratio=1)
を加えます。
また、負の値を取りますので、0の場所にx軸、y軸の軸がありません。 そこで、0の水平線と垂線を引いて見やすくします。色もブルーにしてみました。
g <- g + geom_hline(yintercept = 0,color="blue") g <- g + geom_vline(xintercept = 0,color="blue")
これでかなり見やすくなりました。
いよいよ矢印を引きます
こちらのサイトを参考にしました。
ggplot2 Quick Reference: geom_segment | Software and Programmer Efficiency Research Group
geom_segmentという関数を使って、先ほど作った矢印用のデータフレームarrowsを対象データとして使います。arrow=arrow()で直線が矢印に変わります。
今回は太さを1にし、色をグレーにしてみました。
g <- g + geom_segment(data=arrows,aes(x=x1,y=y1,xend=x2,yend=y2),colour="gray65",arrow=arrow(),size=1)
細かいこだわり
よくみると矢印が青い線の上に乗っかって青線が消えています。ggplotはグラフのデータにどんどんレイヤーを上乗せしていくので、上のレイヤーにしたデータは後で加えないと行けません。 ですので、geom_vlineとgeom_hlineは後ろに順番を入れ替えるべきです。
また、x軸、y軸の目盛りも黒文字の方が読み易いでしょう。
その結果のグラフが最初のグラフのです
全てのコード
set.seed(123) mr1 <- rnorm(7,mean = 0,sd=0.5) mr2 <- rnorm(7,mean = 0,sd=0.5) res <- NULL res <- as.data.frame(res) library("dplyr", lib.loc="C:/hogehoge/R-3.2.3/library") res <- bind_cols(as.data.frame(mr1),as.data.frame(mr2)) res$names <- c("美しい","賢い","派手な","高貴な","個性的な","明るい","温かい") arrows <- NULL arrows <- as.data.frame(arrows) x1 <- rep(0,nrow(res)) y1 <- rep(0,nrow(res)) arrows <- bind_cols(as.data.frame(x1),as.data.frame(y1)) x2 <- res$mr1 y2 <- res$mr2 arrows$x2 <- x2 arrows$y2 <- y2 library("ggplot2", lib.loc="C:/hogehoge/R-3.2.3/library") a <- round(max(res$mr1,res$mr2),3) + 0.1 b <- round(min(res$mr1,res$mr2),3) - 0.1 g <- ggplot(data=res,aes(x=res$mr1,y=res$mr2)) g <- g + geom_point() g <- g + geom_text(aes(x=res$mr1,y=res$mr2),label=res$names,vjust=-1) g <- g + xlim(b,a) g <- g + ylim(b,a) g <- g + coord_fixed(ratio=1) g <- g + geom_segment(data=arrows,aes(x=x1,y=y1,xend=x2,yend=y2),colour="gray65",arrow=arrow(),size=1) g <- g + geom_hline(yintercept = 0,color="blue") g <- g + geom_vline(xintercept = 0,color="blue") g <- g + theme(axis.text.x=element_text(angle=0,colour="black",size=12,hjust=1)) g <- g + theme(axis.text.y=element_text(angle=0,colour="black",size=12)) plot(g) ggsave(plot=g,file="20160830.png",dpi=300,width=4,height=1.5,scale=3)