＃被黑心公司霸凌的上班族爸爸給將來寶寶的禮物
「活了30年，這是第一次為自己做的最大決定，終於不再為別人而是為自己，因為寶寶給我巨大無比的勇氣。」
從小因家人期望而無法做自己，長大出社會進入黑心公司卻無力逃脫，即使已離職3年，每當回想起過去，阿桃臉上依舊覆蓋黯淡陰霾。
得知有寶寶後，他像是變了個人似地瘋狂斷捨離，不僅家中物品，就連那些牽絆自己的過去。
「只有當我把自己整理好，淨化歸零，才能跟妳與寶寶一起裝進更多未來美好的東西。」
從大學相識，台日遠距離，終於兩人簽下結婚證書，以為走進幸福城堡。
殊不知等著我們的不是公主王子待遇，而是數不清的煎熬挑戰。
嫁給他的前3年，我總是看不見他的人，早上5點出門，凌晨1點回來，天還沒亮的4點就是我開始做便當的時間。
我孤單，他疲累，就像兩條平行線永遠無法交錯，寶寶也遲遲無法到來。
那段飽受折磨不堪回首的過去，無數次讓他尖叫驚醒。
終於他憂鬱症崩潰，
終於他離開了公司，
終於我們踏出瘋狂的一步...
結束當時所有，毅然回台灣環島。
環島近3個月，認識無數可愛朋友，在不同國家生活的他，語言文化習慣樣樣都是挑戰，也深深受到人情味衝擊 。
「原來我的世界一直都是這麼狹小，雖然還不夠成熟，但好像明白了些什麼。」
再度回到日本時，他毅然堅決地說。
如今期盼許久的寶寶終於到來，阿桃就像找回失去多年的信心，用最原始的手繪方式，一筆一畫描繪出他最想帶寶寶同遊的彩色森林。
笨拙粗糙的水彩底下，藏著爸爸想告訴兒子的訊息...
也許外界眼光讓你難受，
也許社會不如所想公平，
也許寂寞孤單永遠相伴，
也許外表讓你失去信心，
但，
這一切的不完美，
都只是為了讓你變得更獨一無二，
永遠不要忘記 愛。
—
阿桃用一股傻勁完成了「彩色動物繪本」
意外打動廣島當地一家小小出版社，和藹可親的社長年輕時有過相同遭遇。
社長願意幫忙少量印刷繪本，實現阿桃的夢想。
為了不辜負社長，為了實現自己心中挑戰，為了11月底誕生的寶寶，他沒日沒夜趕著募資企劃。
這是他的第一步，小小的一大步。
繪本fb: PupupuZoo -噗噗噗動物園〜絵本の中の動物園〜
#阿桃中文繪本預購
➡️ https://reurl.cc/ONNgv
＃阿桃日文繪本募資
➡️ https://camp-fire.jp/projects/view/172687
後記新補充⬇️⬇️⬇️
雖然是日文繪本，但昨晚發布後有好多人詢問我怎麼購買阿桃的書，可以上面的募資連結進去，選擇你們要的方案哦！
¥1000方案：動物明信片+阿桃手寫感謝信
¥5000方案：動物繪本+ 動物明信片+阿桃手寫感謝信
¥6800方案：動物繪本+ 動物T恤（可選尺寸）+動物明信片+阿桃手寫感謝信
¥7300方案：動物繪本+ 動物環保購物袋+動物明信片+阿桃手寫感謝信
¥10000方案：動物繪本+ 動物環保購物袋+ 動物T恤（可選尺寸）+動物明信片+阿桃手寫感謝信
¥10000方案：動物繪本+ 2件動物T恤（可選尺寸）+動物明信片+阿桃手寫感謝信
我們日本事務所的地址（有需要的朋友再私訊我）
之後這次募資如果有達成，12月後我們會開始慢慢寄到大家手中哦😊
（這次目的純粹不是賺錢，因為做這麼多東西根本賺不了錢，阿桃只是想實現一個對甜甜圈的夢，謝謝每個用心或用行動支持我們的朋友，我們會更努力的！也希望接下來有機會在台灣上市中文版的）
(看得懂日文的朋友們，網站內容都是阿桃內心想法，希望能傳達給你們ㄧ些感動 )
因為是日本平台，所以要懂日文的朋友才有辦法參與募資🥺比較可惜。
不懂日文的朋友們也沒關係，會發這篇純粹是想跟大家告知阿桃終於為自己做了一個挑戰，只要有你們的加油，我們會更努力的！😊😊😊
感謝每個願意讀完這篇的你們💕
＃阿桃的動物園ig有繪本的試閱版
➡️ https://www.instagram.com/pupupu_zoo/?r=nametag
r語言 折線 在 Re: [問題] 折線圖+長條圖呈現- 看板R_Language 的八卦
#更新 感謝版主c大各種code詳解 及G大還有Andrew大的幫忙!已經有解了
更新方法一於置底
借用這個標題 跟原po有一樣的問題 試了幾個幫法 但是都不成功.........
不知道版上有沒有人能有方法解決兩種方法使其更優......感謝了!
[程式範例]
#data: 用c大分享的 code
library(dplyr)
ngrp <- 2L
numSamples <- 200L
DF <- data.frame(V1 = sample(1L:3L, numSamples, TRUE), V2 = sample(1L:2L,
numSamples, TRUE),
V3 = rnorm(numSamples), V4 = rnorm(numSamples), V5 =
rnorm(numSamples))
#sum statistics
sum0<-DF %>% group_by(V1) %>% summarise (mean=mean(V2),n=n())
#方法一: bar chart 不在節點上,看起來怪怪的
par(mar=c(4,4.5,4,4))
barplot(sum0$n,ylim=c(0,max(sum0$n)+0.1*max(sum0$n)),
yaxt="n",width=0.2,space=2)
axis(side=4)
mtext("Count", side=4, line=1.8)
par(new=T)
plot(sum0$V1,sum0$mean, xlab="cartegpory level", ylim=c(0,2), ylab="")
mtext("Group mean",side=2, line=1.8)
lines(sum0$V1,sum0$mean, type="o")
#方法二 使用ggpltot, 但是無法讓兩圖在同一圖上...
library(ggplot2)
#frequency plot
g.botton<-ggplot()+geom_bar(data=sum0,aes(x=V1, y=n), stat="identity")+
labs(y="Counts")+
theme_classic()
#line plot
g.top<-ggplot()+geom_line(data=sum0, aes(x=V1, y=mean,
group=1))+geom_point(data=sum0,aes(x=V1,y=mean, group=1))+
scale_y_continuous(limits = c(0,2),position="right")+
labs(y="Group mean")+
theme_classic()
print(g.bottom) #vp ?
print(g.top) #vp?
※ 引述《samex4x4 (Same)》之銘言：
: [問題類型]:
:
: 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)
:
: [軟體熟悉度]:
: 入門(寫過其他程式，只是對語法不熟悉)
: [問題敘述]:
: 想詢問是否有辦法同時畫出長條圖和摺線圖在一張圖表上？
: 兩者是不同的數值(取不同欄位)
: 大概是長這樣
:
: 謝謝QQ
: [程式範例]:
:
:
: [環境敘述]:
:
: 3.3.2
:
: [關鍵字]:
:
: 選擇性，也許未來有用
:
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 72.195.237.4
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1497327383.A.763.html
圖合併成上下圖...
#更新:加入xlim可解
par(mar=c(4,4.5,4,4))
Y<-barplot(sum0$n,sum0$V1,ylim=c(0,max(sum0$n)+0.1*max(sum0$n)),
yaxt="n",width=0.2,space=2,xlim=c(min(Y)-0.1*max(Y),max(Y)+0.1*max(Y)))
axis(side=4)
mtext("Count", side=4, line=1.8)
par(new=T)
plot(Y,sum0$mean, xlab="cartegpory level", ylim=c(0,2),
ylab="",xlim=c(min(Y)-0.1*max(Y),max(Y)+0.1*max(Y)),xaxt="n")
mtext("Group mean",side=2, line=1.8)
lines(Y,sum0$mean,
type="o",ylab="",xlim=c(min(Y)-0.1*max(Y),max(Y)+0.1*max(Y)),xaxt="n")
圖範例:
再次感謝大家的時間與幫忙! 謝謝!
※ 編輯: sacidoO (72.195.237.4), 06/14/2017 12:58:07
... <看更多>