load("graphData_homework6_005.Rda")
## ----graph, echo=T, eval=T-----------------------------------------------
finalplot <- ggplot(graphData$dt, aes(fill=技能, y=a, x=領域)) +
geom_bar(position="fill", stat="identity")+
theme(axis.text.y = element_blank()) +
labs(x = "領域", y = "技能", title = "數位行銷職能優勢") +
theme(legend.position = "none") +
annotate("text", x = 3, y = 0.85,
label = paste("FB廣告投放優化"), size = 3) +
annotate("text", x = 3, y = 0.5,
label = paste("Google關鍵字廣告優化"), size = 3) +
annotate("text", x = 3, y = 0.15,
label = paste("SEO關鍵字佈局"), size = 3) +
annotate("text", x = 1, y = 0.85,
label = paste("FB粉絲專頁經營"), size = 3) +
annotate("text", x = 1, y = 0.5,
label = paste("社群內容規劃撰寫"), size = 3) +
annotate("text", x = 1, y = 0.15,
label = paste("活動發想與執行"), size = 3) +
annotate("text", x = 4, y = 0.25,
label = paste("Target Audience"), size = 3) +
annotate("text", x = 4, y = 0.75,
label = paste("Google Tag Manager"), size = 3) +
annotate("text", x = 2, y = 0.916,
label = paste("Google Analytics"), size = 3) +
annotate("text", x = 2, y = 0.75,
label = paste("Google Adwords"), size = 3) +
annotate("text", x = 2, y = 0.58,
label = paste("Google購物廣告證照"), size = 3) +
annotate("text", x = 2, y = 0.416,
label = paste("數位業務銷售證照"), size = 3) +
annotate("text", x = 2, y = 0.25,
label = paste("SEO策劃師檢定"), size = 3) +
annotate("text", x = 2, y = 0.083,
label = paste("Moz SEO Expert"), size = 3) +
scale_fill_manual(values=c("lightpink1", "palegreen1", "royalblue1",
"lightskyblue", "cornflowerblue", "darkseagreen2",
"skyblue1", "dodgerblue", "seagreen2",
"lightcoral", "goldenrod1", "violet",
"khaki1", "royalblue2"))
finalplot
額外套件:無
此圖為數位行銷職能優勢圖,履歷來源為:https://www.cakeresume.com/charlotte-wu 。此圖能夠清楚以顏色區分四種不同專業領域,並由專業領域中再細分技能,一目瞭然將數位行銷求職方面的技能展現出來。
load("graphData_homework6_006.Rda")
## ----graph, echo=T, eval=T-----------------------------------------------
graphData$TWmap+
geom_point(
data = graphData$point,
mapping = aes(x=x,y=y),color="red",size=1,alpha=0.7
)+
theme(axis.line = element_blank(),
axis.title = element_blank(),
axis.text = element_blank(),
axis.ticks = element_blank())+
labs(
title = "在諸多高中、大學、政府單位等機關擔任講師",
subtitle = "講授逾1000位大專院校學生"
)
額外套件:無
資料來自於潘芷盈在cakeresume的履歷。(網址:https://www.cakeresume.com/jean-pang)
她提到,她經常擔任簡報與懶人包設計的講師,講授逾1000位大專院校學生。她列了一個表,其中記錄著於何時在哪裡擔任講師,我經過手動匯入各次講座舉辦地點之座標,將其轉為地圖上的點,表達她在各地皆有擔任過講師的經驗。
比較可惜的部分是,她並沒有提供擔任婚禮主持主唱之地點之資訊。畢竟她說有超過50場主持經驗,若用不同的顏色點在此圖上,這張地圖會更豐富。故這張圖的重點仍然擺在她曾於諸多機關擔任講師
load("graphData_homework6_007.Rda")
## ----graph, echo=T, eval=T-----------------------------------------------
library(magick)
graphListP <- list()
ggplot() +
geom_rect(
mapping = aes(
xmin = 20,
xmax = 156,
ymin = 2,
ymax = 3
),
fill = "#DDDDDD"
) +
scale_x_continuous(
limits = c(10, 190),
breaks = graphListD$breaksdate
) +
scale_y_continuous(
limits = c(1, 4)
) ->
graphListP$timeaxis_base
graphListP$timeaxis_base +
geom_rect(
data = graphListD$cakeResume_Horace %>%
filter(類別 != "學業"),
mapping = aes(
xmin = start,
xmax = end,
ymin = floor,
ymax = celling,
fill = 類別
)
) +
geom_rect(
data = graphListD$cakeResume_Horace %>%
filter(類別 == "學業"),
mapping = aes(
xmin = start,
xmax = end,
ymin = floor,
ymax = celling
),
fill = "#FF3333",
alpha = 0.4
) ->
graphListP$timeaxis_SandW
qualitative_hcl(n = 2, h = c(150, 240), c = 100, l = 60, register = "godPaltte-Qua_GB")
graphListP$timeaxis_SandW +
scale_fill_discrete_qualitative(palette = "godPaltte-Qua_GB") ->
graphListP$timeaxis_SandW1
graphListP$timeaxis_SandW1 +
annotation_raster(
raster = graphListD$ntue_raster,
xmin = 38-36/2, xmax = 38+36/2,
ymin = 3.1-0.3, ymax = 3.1+0.3
) +
#北教大
annotate(
"text", x = 39, y = 2.4,
label = "數位科技設計學系",
size = 10/.pt
) +
#ATT文創
annotate(
"text", x = 62.5, y = 1.8,
label = "ATTShowBox文創",
size = 10/.pt
) +
annotate(
"text", x = 62.5, y = 1.8-0.2,
label = "行政藝術工讀生",
size = 10/.pt
) +
#PIXNET
annotate(
"text", x = 107, y = 2.55,
label = "PIXNET優像數位媒體科技",
size = 10/.pt
) +
annotate(
"text", x = 107, y = 2.55-0.2,
label = "資深網頁設計師",
size = 10/.pt
) +
#coffee
annotate(
"text", x = 143, y = 1.8,
label = "Maison de gigi coffee",
size = 10/.pt
) +
annotate(
"text", x = 143, y = 1.8-0.2,
label = "咖啡師(日本)",
size = 10/.pt
) +
#玉山
annotate(
"text", x = 172, y = 2.55,
label = "ESUN BANK 玉山銀行",
size = 10/.pt
) +
annotate(
"text", x = 172, y = 2.55-0.2,
label = "資深網頁設計師",
size = 10/.pt
) +
theme(
aspect.ratio = 1/2.5
) ->
graphListP$timeaxis_SandW2
graphListP$timeaxis_SandW2 +
theme(
legend.direction = "horizontal",
legend.position = c(0.85, 0.85),
legend.title = element_blank(),
legend.background = element_blank()
) +
scale_x_continuous(
limits = c(10, 190),
breaks = c(24, 72, 132, 144),
labels = c("2009", "2013", "2018", "2019")
) +
#清理軸線
theme(
axis.title = element_blank(),
axis.ticks.y = element_blank(),
axis.text.y = element_blank(),
axis.line.y = element_blank()
) +
theme(
axis.line.x = element_line(
color = "#DDDDDD",
size = 2,
arrow = arrow()
),
axis.ticks.x = element_line(color = "#666666"),
axis.text.x = element_text(color = "#666666")
) ->
graphListP$timeaxis_end
font_add("標楷體", "kaiu.ttf")
graphListP$timeaxis_end +
labs(
title = "經 歷"
) +
theme(
title = element_text(
family = "標楷體",
size = 60/.pt
)
) ->
graphListP$timeaxis_endwT
graphListP$timeaxis_endwT
額外套件:magick
Resume Link: https://www.cakeresume.com/lan-horace
以時間軸的方式簡略的呈現出 Horace Lan 的個人經歷。 在此可看出她畢業於北教大的數位科技設計學系,以及她曾經的工作職位和年資, 有助於雇主快速的了解 Horace Lan 是否為他想找的員工。
load("graphData_homework6_008.Rda")
## ----graph, echo=T, eval=T-----------------------------------------------
# graphData$chu %>% View
graphData$chu %>%
ggplot() +
geom_point(aes(x = 時間, y = 分類, color = 分類), shape = 124, size = 6) +
geom_line(aes(x = 時間, y = line, color = 分類), size = 6) +
theme(legend.position = "none",
axis.title.x = element_blank(),
axis.title.y = element_blank()) +
scale_y_discrete(labels = c("證照/其他表現" = paste("證照", "其他表現", sep = " \n"), "工作" = "工作經驗", "學業" = "學歷")) +
annotate("text", x = as.Date("2018-10-01", "%Y-%m-%d"),
y = 2.25, label = "城市與環境科學學院", size = 3.5) +
annotate("text", x = as.Date("2016-08-01", "%Y-%m-%d"),
y = 2.25, label = "社會與區域發展學系", size = 3.5) +
annotate("text", x = as.Date("2018-11-01", "%Y-%m-%d"),
y = 1.25, label = paste("台北市都更推動中心",
"專案實習生", sep = "\n"), size = 3.5) +
annotate("text", x = as.Date("2017-08-01", "%Y-%m-%d"),
y = 1.25, label = paste("台北市都更處",
"實習生", sep = "\n"), size = 3.5) +
annotate("text", x = as.Date("2019-07-01", "%Y-%m-%d"),
y = 3.25, label = paste("Google 雲端",
"應用綜合認證", sep = "\n"), size = 2.75) +
annotate("text", x = as.Date("2018-10-01", "%Y-%m-%d"),
y = 3.25, label = "資安認證", size = 2.75) +
annotate("text", x = as.Date("2018-08-01", "%Y-%m-%d"),
y = 2.75, label = paste("計算機能力",
"綜合認證", sep = "\n"), size = 2.75) +
annotate("text", x = as.Date("2018-03-01", "%Y-%m-%d"),
y = 3.25, label = paste("TQC",
"Excel進階", sep = "\n"), size = 2.75) +
annotate("text", x = as.Date("2017-11-01", "%Y-%m-%d"),
y = 2.75, label = paste("資策會",
"菁英培訓計畫", sep = "\n"), size = 2.75) +
annotate("text", x = as.Date("2017-06-01", "%Y-%m-%d"),
y = 3.25, label = paste("台北市社區營造",
"人才培訓計畫", sep = "\n"), size = 2.75)
# geom_text or geom_label with position_jitter() doesn't work well
# had to manually tag all the text labels via annotate()
額外套件:無
傳遞訊息
將其學歷以及工作經驗以兩條時間軸分開呈現,並在兩條時間軸外標示出曾經參與的特殊活動或是考取的證照。為避免標示上出現重疊、混亂,因此僅標示出較為重要的經歷。 由圖形中可以發現多數的活動都聚集在2017年以後,由此可以推斷履歷所有者在2017年以後十分積極的精進自己的實力,短時間內考取的數個證照也可以作為自主學習能力強的間接證明。
load("graphData_homework6_009.Rda")
## ----graph, echo=T, eval=T-----------------------------------------------
graphData$data %>%
ggplot()+theme_linedraw()+
scale_x_continuous(limits=c(0,100),breaks=F,expand=expand_scale(add=c(0,0)))+
scale_y_continuous(limits=c(0,6),breaks=F,expand=expand_scale(mult = c(0,0)))+
annotate("rect",xmin=2,xmax=14,ymin=0.5,ymax=1.5,alpha=.2,fill="#99FFFF")+
annotate("rect",xmin=14,xmax=36,ymin=0.5,ymax=1.5,alpha=.2,fill="#66FFFF")+
annotate("rect",xmin=36,xmax=58,ymin=0.5,ymax=1.5,alpha=.2,fill="#33FFFF")+
annotate("rect",xmin=62,xmax=66,ymin=0.5,ymax=1.5,alpha=.2,fill="#00FFFF")+
annotate("rect",xmin=69,xmax=78,ymin=0.5,ymax=1.5,alpha=.2,fill="#00BBFF")+
annotate("rect",xmin=81,xmax=84,ymin=0.5,ymax=1.5,alpha=.2,fill="#5599FF")+
annotate("rect",xmin=84,xmax=100,ymin=0.5,ymax=1.5,alpha=.2,fill="#0066FF")+
annotate("text",x=5,y=0.4, label = "2012.4",size=2)+
annotate("text",x=17,y=0.4, label = "2013.4",size=2)+
annotate("text",x=39,y=0.4, label = "2015.2",size=2)+
annotate("text",x=55,y=0.4, label = "2016.12",size=2)+
annotate("text",x=65,y=0.4, label = "2017.4",size=2)+
annotate("text",x=72,y=0.4, label = "2017.11",size=2)+
annotate("text",x=81,y=0.4, label = "2018.11",size=2)+
annotate("text",x=8,y=1.7, label = "勞工局專案人員",size=2)+
annotate("text",x=20,y=2, label = "教育局專案人員",size=2)+
annotate("text",x=45,y=2.3, label = "體育處 - 國際賽事輔導員",size=2)+
annotate("text",x=62,y=2.6, label = "格那斯管理部暨營運部特助",size=2)+
annotate("text",x=73,y=2.9, label = "友碁科技整合行銷輔導顧問",size=2)+
annotate("text",x=74,y=3.2, label = "代理商品至馬來西亞跨境創業",size=2)+
annotate("text",x=85,y=3.5, label = " 必銳錡科技Senior Marketing Manager",size=2)+
annotate("text",x=88,y=4.4, label = "Comasia Limited-Chief of",size=2)+
annotate("text",x=88,y=4.1, label = "Digital Marketing in Taiwan",size=2)+
annotation_raster(graphData$photo,2,22,4,5.5)+
annotation_raster(graphData$QR,90,100,1.7,2.5)+
theme(panel.grid =element_blank()) +
theme(axis.text = element_blank()) +
theme(axis.ticks = element_blank()) +
theme(panel.border = element_blank())+
theme(plot.background = element_rect(fill = "#F6F4E8"))+
theme(panel.background = element_rect(fill = "#F6F4E8"))+
labs(x = "工作經歷", y = "", title = "工作經歷表")
額外套件:無
網址:https://www.cakeresume.com/resumes/charlotte-wu 我希望人資可以一眼了解歷年的工作紀錄,並把工作內容按照時間由左下排到右上來有一種上升的感覺。
load("graphData_homework6_010.Rda")
## ----graph, echo=T, eval=T-----------------------------------------------
graphData %>%
ggplot()+geom_sf(fill="hotpink2",alpha=0.3)+
annotate("text",x=4.5,y=6,label=paste("工作經歷"),size=4,vjust=-0.5,color="red")+
annotate("text",x=2.5,y=5,label=paste("研發能力"),size=4,angle=63,vjust=-0.5,color="red")+
annotate("text",x=2.5,y=2.8,label=paste("作品集"),size=4,angle=120,vjust=0.5,color="red")+
annotate("text",x=4.5,y=2,label=paste("活動"),size=4,vjust=1.2,color="red")+
annotate("text",x=6.6,y=2.8,label=paste("競賽"),size=4,angle=250,color="red")+
annotate("text",x=6.5,y=5,label=paste("學歷"),size=4,vjust=-1.1,angle=-63,color="red")+
annotate("text",x=4.5,y=5.8,label=paste("UGOTIT"),size=3)+
annotate("text",x=4.5,y=5.3,label=paste("Trend Micro"),size=3)+
annotate("text",x=2.8,y=3.3,label=paste("即刻救援1280"),size=3,angle=120)+
annotate("text",x=3.1,y=3.4,label=paste("磺溪時代"),size=3,angle=120)+
annotate("text",x=3.4,y=3.5,label=paste("SELFER STATE"),size=3,angle=120)+
annotate("text",x=4.5,y=2.2,label=paste("偏鄉VR資訊教學"),size=3)+
annotate("text",x=4.5,y=2.4,label=paste("高雄大學畢業二手市集策畫人"),size=3)+
annotate("text",x=4.5,y=2.6,label=paste("高雄大學資管營資訊長"),size=3)+
annotate("text",x=4.5,y=2.8,label=paste("ECIC電子商務創意競賽"),size=3)+
annotate("text",x=6.4,y=3,label=paste("全國大專院校資訊應用服務創新競賽NO.3"),size=2.5,angle=244)+
annotate("text",x=6.2,y=3.1,label=paste("高雄大學資管系專題競賽NO.1"),size=2.5,angle=244)+
annotate("text",x=6,y=3.2,label=paste("創意行銷App獎特優"),size=2.5,angle=244)+
annotate("text",x=5.8,y=3.3,label=paste("網路行銷獎優等"),size=2.5,angle=244)+
annotate("text",x=6.4,y=4.8,label=paste("國立中山大學資訊管理研究所"),size=2.5,angle=-63)+
annotate("text",x=6.2,y=4.7,label=paste("國立高雄大學資訊管理學系"),size=2.5,angle=-63)+
annotate("text",x=2.6,y=4.8,label=paste("Javascript"),size=3,angle=62)+
annotate("text",x=2.7,y=4.7,label=paste("C#"),size=3,angle=62)+
annotate("text",x=2.8,y=4.6,label=paste("HTML/CSS"),size=3,angle=62)+
annotate("text",x=2.9,y=4.5,label=paste("MongoDB"),size=3,angle=62)+
annotation_raster(raster_photo,3.6,5.5,3.3,5)+
labs(title = "個人履歷卦象",caption="EMAIL:sharon00734@gmail.com")+
theme(axis.line = element_blank(),
axis.title = element_blank(),
axis.text = element_blank(),
axis.ticks = element_blank())
額外套件:無
https://www.cakeresume.com/resumes/sharonchin 以類似雷達圖的方式來為這位同學的各項能力、經歷劃分同時寫上經歷內容,完成後卻發現此圖異常的像八卦陣,所以將其標題打成履歷卦象。
load("graphData_homework6_011.Rda")
## ----graph, echo=T, eval=T-----------------------------------------------
#choose_palette(gui="shiny")
library(cowplot); library(grid)
photograph %>%
ggplot(aes(x=攝影作品,y = 張數))+
geom_bar(stat="identity",position = position_dodge(),fill="#002BA4")+
geom_text(aes(label=張數),position = position_stack(vjust = 0.95),color="white")+
labs(title = "攝影作品")+
theme(
plot.background = element_rect(fill = "#A7C6DD"),
panel.background = element_rect(fill = "#A7C6DD"),
axis.title = element_text(hjust = 10,face ="bold",color = "#002BA4"),
axis.line = element_line(color = "#002BA4"),
axis.ticks = element_line(color = "#002BA4"),
axis.text = element_text(color = "#002BA4"),
plot.title = element_text(color = "#002BA4"),
plot.caption = element_text(color = "#002BA4"),
)->plot.photograph
painting %>%
ggplot(aes(x=手工作品,y=件數))+
geom_bar(stat="identity",fill="#002BA4")+
geom_text(aes(label=件數),position = position_stack(vjust =0.95),color="white")+
labs(title = "手工作品")+
theme(
plot.background = element_rect(fill = "#A7C6DD"),
panel.background = element_rect(fill = "#A7C6DD"),
axis.title = element_text(color = "#002BA4"),
axis.line = element_line(color = "#002BA4"),
axis.ticks = element_line(color = "#002BA4"),
axis.text = element_text(color = "#002BA4"),
plot.title = element_text(color = "#002BA4"),
plot.caption = element_text(color = "#002BA4")
) ->plot.painting
personality %>%
ggplot(aes(x = 個性,y = 分數))+
geom_point(shape = 18,size = 4,color = "#002BA4")+
scale_y_continuous(limits = c(1,5))+
labs(title = "人格特質",
caption = "資料來源:CakeResume")+
theme(
plot.background = element_rect(fill = "#A7C6DD"),
panel.background = element_rect(fill = "#A7C6DD"),
axis.title = element_text(color = "#002BA4"),
axis.line = element_line(color = "#002BA4"),
axis.ticks = element_line(color = "#002BA4"),
axis.text = element_text(color = "#002BA4"),
plot.caption = element_text(color = "#002BA4"),
panel.grid.major = element_line(color = "#AEAEAE"),
plot.title = element_text(color = "#002BA4")
) ->plot.personality
cowplot::ggdraw()+
cowplot::draw_plot(plot.personality, 0.5, 0, 0.5, 0.45) +
draw_plot(plot.photograph, 0, 0, 0.5, 0.9) +
draw_plot(plot.painting, 0.5, 0.45, 0.5, 0.45)
grid::grid.text("陳昱珊 臺北市立大學 視覺藝術學系", x = 0.5, y = 0.95)
額外套件:cowplot, grid
原先履歷的作者對於攝影及美術方面頗有興趣,也希望可以應徵這方面的工作。
其作者原先也有過一些作品,所以我將作品的數量呈現出來,主要想表達她自身做過的作品,由於關於藝術方面的作品的美感很難用數據表達,所以選擇展現數量。
至於人格特質方面,是我藉由作者的自我介紹以自己的想法用分數表現出來,在表現上可能不甚準確。以1-5為評價,其中1為最低,5為最高。這些都是作者願意寫在履歷表上的人格特質,所以我認為應該都不會太差,因此,在這方面上我最低只給到3分,算是屬於中間值。
最後是作者的就業經驗。作者的就業經驗老實說幾乎和攝影、美術方面不太有關係,我認為這對作者希望應徵的工作可能沒有太大加分,所以我便沒有以圖展示出來。
load("graphData_homework6_012.Rda")
## ----graph, echo=T, eval=T-----------------------------------------------
##Error: Image pointer is dead. You cannot save or cache image objects between R sessions.
image_read("https://res.cloudinary.com/cakeresume/image/upload/s--qccsGZ6N--/c_fill,fl_png8,g_face,h_300,w_300/v1540175558/wegp0zxjpjkshwr88jj7.png") -> Graphdata$photo
ggplot() + theme_linedraw() +
scale_x_continuous(
limits = c(-20,120),
expand = expand_scale(add = c(10,10))
) +
scale_y_continuous(
limits = c(-5,75),
expand = expand_scale(add = c(5,5))
) +
geom_point(
aes(x=c(40,50,60),y=c(28,45,28)),
shape = 19, size = 80, alpha = 0.4,
color = c("#F8EFB6","#D0F1FA","#FBD1EB")
) +
geom_label(
data = Graphdata$type,
aes(x=x,y=y,label=name),
label.size = 0.5, label.padding = unit(0.7,"lines")
) +
geom_text(
data = Graphdata$ability,
aes(x=x,y=y,label = name),
alpha = 0.8
) +
geom_text(
aes(x=50.8,y=-3.5),
label = Graphdata$slogan,
color = "gray", size = 5
) +
geom_text(
aes(x=50,y=-3),
label = Graphdata$slogan, size = 5
) +
geom_text(
data = Graphdata$detail,
aes(x=-20,y=8,label = name),
hjust = 0, vjust = 0, size = 3
) +
geom_text(
data = Graphdata$experience,
aes(x=120,y=8,label = name),
hjust = 1, vjust = 0, size = 3
) +
annotation_raster(
Graphdata$photo,
-20,5,50,75
) +
geom_text(
aes(x=-20,y=45),
label = "吳汀娟 (Charlotte Wu)",
hjust = 0, size = 4
) +
coord_fixed() +
theme_void() -> finalplot
finalplot
額外套件:無
此為應徵行銷工作之履歷範本,參考網路查到的行銷核心能力,以三個圓代表應徵者三項在行銷業中的強項核心能力並將相關個人能力及經驗歸類以便面試官了解。
搭配個人照片、姓名和個人標語以加強面試官印象,左右則為挑選出的相關能力和工作經驗。
本來打算在相關能力經驗的關鍵字下用對應顏色的geom_path畫重點線,但考慮到文字易發生絕對位置偏差的關係故取消。
graphData <- list()
image_read("https://github.com/tpemartin/course-108-1-inclass-datavisualization/blob/master/%E4%BD%9C%E5%93%81%E5%B1%95%E7%A4%BA/homework6/social-media.png?raw=true") -> media
media %>%
as.raster() ->
raster_media
image_read("https://github.com/tpemartin/course-108-1-inclass-datavisualization/blob/master/%E4%BD%9C%E5%93%81%E5%B1%95%E7%A4%BA/homework6/promote.png?raw=true") -> relation
relation %>%
as.raster() ->
raster_relation
image_read("https://github.com/tpemartin/course-108-1-inclass-datavisualization/blob/master/%E4%BD%9C%E5%93%81%E5%B1%95%E7%A4%BA/homework6/learning.png?raw=true") -> learn
learn %>%
as.raster() ->
raster_learn
image_read("https://github.com/tpemartin/course-108-1-inclass-datavisualization/blob/master/%E4%BD%9C%E5%93%81%E5%B1%95%E7%A4%BA/homework6/calendar.png?raw=true") -> calendar
calendar %>%
as.raster() ->
raster_calendar
image_read("https://github.com/tpemartin/course-108-1-inclass-datavisualization/blob/master/%E4%BD%9C%E5%93%81%E5%B1%95%E7%A4%BA/homework6/checklist.png?raw=true") -> checklist
checklist %>%
as.raster() ->
raster_checklist
image_read("https://github.com/tpemartin/course-108-1-inclass-datavisualization/blob/master/%E4%BD%9C%E5%93%81%E5%B1%95%E7%A4%BA/homework6/best.png?raw=true") -> winner
winner %>%
as.raster() ->
raster_winner
graphData$points_1 <-
rbind(
c(2.5,5),
c(2.5,3.5),
c(3.16,3.5),
c(3.16,5))
graphData$points_2 <-
rbind(
c(3.5,5),
c(3.5,3.5),
c(7.84,3.5),
c(7.84,5))
graphData$points_3 <-
rbind(
c(4.47,5),
c(4.47,3.5),
c(4.87,3.5),
c(4.87,5))
graphData$points_4 <-
rbind(
c(5.76,5),
c(5.76,3.5),
c(6.16,3.5),
c(6.16,5))
graphData$points_5 <-
rbind(
c(9,4.2),
c(9,4.7),
c(9.2,4.7),
c(9.2,4.2))
graphData$points_6 <-
rbind(
c(8.5,4.2),
c(8.5,4.7),
c(8.7,4.7),
c(8.7,4.2))
ggplot() +
theme_linedraw()+
scale_x_continuous(limits=c(0,10),breaks=0:10,
expand=expand_scale(add=c(0,0)))+
scale_y_continuous(limits=c(0,10),breaks=0:10,
expand=expand_scale(mult = c(0,0)))+
geom_polygon(
data=as.data.frame(graphData$points_1),
aes(x=V1,y=V2),
fill = "#A0522D"
)+
geom_polygon(
data=as.data.frame(graphData$points_2),
aes(x=V1,y=V2),
fill = "#FF8C00"
)+
geom_polygon(
data=as.data.frame(graphData$points_3),
aes(x=V1,y=V2),
fill = "#FF4500"
)+
geom_polygon(
data=as.data.frame(graphData$points_4),
aes(x=V1,y=V2),
fill = "#FFD700"
)+
geom_polygon(
data=as.data.frame(graphData$points_5),
aes(x=V1,y=V2),
fill = "#FFD700"
)+
geom_polygon(
data=as.data.frame(graphData$points_6),
aes(x=V1,y=V2),
fill = "#FF4500"
)+
coord_flip()+
annotate(
"text",
x = 2.8,
y = 6.6,
label = "人事助理實習生
廣州香江集團股份有限公司",
)+
geom_path(
data = data.frame(
x = c(2.7,3),
y = c(5,5.5)
),
aes(x = x,y = y),
size = 1,
lineend = "round"
)+
geom_path(
data = data.frame(
x = c(6.8,7.2),
y = c(5,5.5)
),
aes(x = x,y = y),
size = 1,
lineend = "round"
)+
annotate(
"text",
x = 7.2,
y = 6.8,
label = "新事業發展中心實習生
資策會產業分析情報研究所",
)+
geom_path(
data = data.frame(
x = c(2.5,8),
y = c(3.2,3.2)
),
aes(x = x,y = y),
size = 1.14,
lineend = "round",
arrow = arrow(angle = 30, length = unit(0.12, "inches"),
ends = "last", type = "open")
)+
annotate(
"text",
x = 7.7,
y = 2.3,
label = "2019.09"
)+
annotate(
"text",
x = 3.65,
y = 2.3,
label = "2018.09"
)+
annotate(
"text",
x = 3.2,
y = 2.3,
label = "2018.08",
)+
annotate(
"text",
x = 2.7,
y = 2.3,
label = "2018.07"
)+
annotate(
"text",
x = 4.67,
y = 2.3,
label = "2018.12"
)+
annotate(
"text",
x = 5.96,
y = 2.3,
label = "2019.04"
)+
annotation_raster(
raster_media,
5.3,6.2,5.5,6.3)+
annotation_raster(
raster_relation,
4.1,5,5.5,6.3)+
annotate(
"text",
x = 5.7,
y = 7.3,
label = "自媒體經營能力"
)+
annotate(
"text",
x = 4.5,
y = 7.2,
label = "人際關係連結"
)+
annotation_raster(
raster_learn,
1.2,2,5.3,6.1)+
annotation_raster(
raster_calendar,
1.2,2,6.7,7.3)+
annotation_raster(
raster_checklist,
1.2,2,7.7,8.5)+
annotate(
"text",
x = 0.7,
y = 5.65,
label = "主動學習"
)+
annotate(
"text",
x = 0.7,
y = 6.9,
label = "提高工作效率"
)+
annotate(
"text",
x = 0.7,
y = 8.17,
label = "解決問題"
)+
annotation_raster(
raster_winner,
8.5,9.5,3.5,4.1)+
annotate(
"text",
x = 9.1,
y = 7,
label = "滬港台三地上銀金融科技創新競賽--優勝獎 "
)+
annotate(
"text",
x = 8.6,
y = 7.2,
label = "上海銀行滬港台金融科技創新校園競賽--第一名"
)+
theme_void()+
theme(
panel.background = element_rect(fill = "#FFFFF0")
) -> graphData$final_graph
graphData$final_graph
額外套件:無
參考CV:https://www.cakeresume.com/search/ninawu860515
我參考吳小姐的履歷,發現其實習經驗與競賽表現為最大亮點。 因此以時間軸標示各項活動發生時間,以及實習過程培養的能力。
# 原始程式用load來read一個csv檔,這不可行
###load("graphData.csv")
# 應改為
graphdata <- read_csv("https://github.com/tpemartin/course-108-1-inclass-datavisualization/blob/master/%E4%BD%9C%E5%93%81%E5%B1%95%E7%A4%BA/homework6/graphdata%20-%20%E7%8E%8B%E7%AB%A5%E7%B7%AF.csv?raw=true")
## ----graph, echo=T, eval=T-----------------------------------------------
library(magick)
image_read("https://images.cakeresume.com/dianne-ho/1797a18e-8d32-4bbf-a1f8-35cf1d874cf9.png") -> girls
image_fill(girls,"transparent", point = "+100+100", fuzz=30) ->
girlstransparent
girlstransparent %>%
as.raster() ->
raster_girls
graphdata%>%
ggplot(aes(x=factor(個人能力經歷,levels=c("語言","網路行銷","公關顧問","美編設計"))))+
geom_bar(aes(fill=種類))+
labs(y="事件",
title="何岱恩の競爭力")+
annotate("text", x = 1, y = 0.5,
label = paste("越南文"), size = 3)+
annotate("text", x = 1, y = 1.5,
label = paste("泰文"), size = 3)+
annotate("text", x = 1, y = 2.5,
label = paste("英文"), size = 3)+
annotate("text", x = 1, y = 3.5,
label = paste("中文"), size = 3)+#換網路行銷#
annotate("text", x = 2, y = 0.75,
label = paste("文案撰寫中文"), size = 3)+
annotate("text", x = 2, y = 0.35,
label = paste("社群平台文案"), size = 3)+
annotate("text", x = 2, y = 1.75,
label = paste("Instagram平台經營"), size = 3)+
annotate("text", x = 2, y = 1.35,
label = paste("及文案撰寫"), size = 3)+
annotate("text", x = 2, y = 2.75,
label = paste("YY culture FB活動"), size = 3)+
annotate("text", x = 2, y = 2.35,
label = paste("宣傳及美編"), size = 3)+
annotate("text", x = 2, y = 3.75,
label = paste("Facebook/Instagram"), size = 3)+
annotate("text", x = 2, y = 3.35,
label = paste("Line@文案小編"), size = 3)+
annotate("text", x = 2, y = 4.75,
label = paste("地勤職業與面試體驗"), size = 3)+
annotate("text", x = 2, y = 4.35,
label = paste("facebook/Dcard宣傳"), size = 3)+
annotate("text", x = 3, y = 0.75, #公關顧問#
label = paste("Networking event"), size = 3)+
annotate("text", x = 3, y = 0.35,
label = paste("親善大使代表"), size = 3)+
annotate("text", x = 3, y = 1.5,
label = paste("學生課程規劃顧問"), size = 3)+
annotate("text", x = 3, y = 2.75,
label = paste("Rotaract"), size = 3)+
annotate("text", x = 3, y = 2.35,
label = paste("公關接待人員"), size = 3)+
annotate("text", x = 3, y = 3.75,
label = paste("國際事務系畢業論文"), size = 3)+
annotate("text", x = 3, y = 3.35,
label = paste("研討會主持人"), size = 3)+
annotate("text", x = 3, y = 4.5,
label = paste("研討會機動人員"), size = 3)+
annotate("text", x = 3, y = 5.5,
label = paste("文藻親善大使團公關"), size = 3)+
annotate("text", x = 4, y = 0.5,
label = paste("FB 文案平面設計人員"), size = 3)+
annotate("text", x = 4, y = 1.75,
label = paste("FB美編宣傳"), size = 3)+
annotate("text", x = 4, y = 1.35,
label = paste("製作流程表、講師介紹"), size = 3)+
annotate("text", x = 4, y = 2.75,
label = paste("DM/活動海報"), size = 3)+
annotate("text", x = 4, y = 2.35,
label = paste("影片剪輯人員"), size = 3)+
annotate("text", x = 4, y = 3.5,
label = paste("FB banner設計人員"), size = 3)+
theme(axis.title.y = element_blank(),
axis.title.x = element_blank(),
axis.text.y = element_blank())->finalplot
finalplot+
annotation_raster(raster_girls,2.8,5.4,4,6.8)
額外套件:無
連結https://www.cakeresume.com/resumes/dianne-ho 透過堆疊圖形,凸顯該求職者多元能力的表現,以及豐富的經歷
[1] ""
load("graphData_homework6_015.Rda")
## ----graph, echo=T, eval=T-----------------------------------------------
Sys.setlocale("LC_ALL","Chinese") #解決中文亂碼問題
# https://www.cakeresume.com/resumes/chenmingren-ecaf8f ###### 此為履歷link ########
library(ggimage)
graphData_paint <- ggplot(data = graphData,aes(x="", y=月份, fill=公司名稱)) +
geom_bar(stat="identity", width=1) +
coord_polar("y", start=0)+
theme_void()+
theme(
plot.title = element_text(hjust=0.5,vjust=-5,face="bold"),
legend.background = element_rect(fill="dark"),
legend.justification = c("right","top") ,
legend.margin = margin(5,5,8,8),
legend.box.background = element_rect(color="black"),
legend.title = element_text(face="bold"),
plot.caption = element_text(vjust = 4.9 ,hjust=2.9,face="plain")
)+
labs(
title = "工作經歷",
caption = "資料來源:https://www.cakeresume.com/resumes/chenmingren-ecaf8f"
) +
geom_text(
aes(label = paste(round(月份 / sum(月份) * 100, 1), "%")),
position = position_stack(vjust = 0.5)
)+
scale_fill_manual(values=c("鴻海科技集團"="#8A0033","樂金化學"="#FF99AE","台灣國際航電"="#BE4A68" ,"好想工作室"="#004B9F"))
ggbackground(gg = graphData_paint,background ="http://pic.51yuansu.com/pic/cover/00/19/70/57b7f70680489_610.jpg" )
額外套件:ggimage
本圖展現該工作者非常有毅力、大膽,並且具有目標,在同樣的產業類型就業四年半之後,轉往網頁後端,希望能創造更切合消費者需求的產品。
本次作品呈現該工作者的職涯發展方向,其中紅色系為工作者畢業後,任職於與產品相關的部門,共三個公司,分別為“鴻海科技集團”, “樂金化學”, “台灣國際航電”,藍色部分的任職身分則為網頁後端,為“好想工作室”。顯示該工作者非常有毅力專注在一個領域,並且大膽選擇轉往網頁後端的資料庫等分析,期許自己能夠透過如此經驗,發展出更滿足消費者的產品,除了專業外也非常具有野心跟動力,而本次作圖風格選定“中國風”,
補充:要繳交的時候發現不能用額外套件,但為保存風格整體完整性故維持原樣。 補充:履歷連結:https://www.cakeresume.com/resumes/chenmingren-ecaf8f。
load("graphData_homework6_016.Rda")
## ----graph, echo=T, eval=T-----------------------------------------------
graphData%>%
ggplot()+
geom_bar(aes(x=技能,y=比例,fill=技能,label=技能),stat="identity",width = 0.9)+
scale_fill_manual(values=c("#CCCC99","#FFCC99","#CCFF99","#FFFFCC","#FFFF99","#CCFFCC") )+geom_text(aes(x=技能,y = c(5,3,3.5,5,3.3,2.5),label=技能),size=3.2)+
annotate("text", x = 1, y = 2,
label = paste("郵政反洗黑錢系統"), size = 3,angle=40,colour="white")+
annotate("text", x = 1.2, y = 2,
label = paste("中信資料庫升級"), size = 3,angle=40,colour="white")+
labs(title="William Liu's resume",
subtitle = "Data Engineer / BackendEngineer")+
theme(axis.title.x=element_blank(),
axis.text.x=element_blank(),
axis.ticks.x=element_blank(),
axis.line.x=element_blank(),
axis.line.y=element_blank(),
axis.text.y=element_blank(),
axis.title.y=element_blank(),
axis.ticks.y=element_blank(),
legend.position = "none")+
coord_polar() +
theme(panel.background = element_rect(colour= "#99CCCC",size=4,linetype="solid"),
panel.grid.major=element_line(colour='grey',linetype="dashed"))+
annotate("text", x = 2, y = -2,
label = paste("資策會/自學"), size = 3.6,colour="#663333")
額外套件:無
原履歷:https://www.cakeresume.com/resumes/willy11342002
欲傳達訊息:
履歷所有者(以下稱作者)在他的履歷上展列出他在設計、軟體工程各個領域有著多樣化的經驗, 所以透過此圖能看得出作者的跨領域能力,以及其應用深淺。 因為有標明他現在是後端工程師,所以將他後端的作品標在圖上,讓讀者可以知道他於後端的作品。
設計想法:
作者並非本科出身,他是透過資策會的課程和自學而習得程式能力,所以我在其源頭標在中間, 從圓心(資策會/自學)向外發展出多方面的程式應用能力, 另外因為不想讓讀者感覺到其有相關性,所以挑選不同的顏色,但作者在後端和網路爬蟲在原履歷中提到的經驗和應用的較多,所以有按原履歷提到的比例分配面積,讓讀者可以一眼知道有跨領域能力但後端和網路爬蟲較為熟練。
load("graphData_homework6_018.Rda")
## ----graph, echo=T, eval=T-----------------------------------------------
colorspace::sequential_hcl(n = 4, h = c(1, 37), c = c(67, NA, 32), l = c(57, 99), power = c(1, NA), register = "Palette")
graphData$resume%>%
mutate(
能力=as.factor(能力)
)%>%
ggplot(aes(x=年份))+
geom_col(
aes(y=年資,fill=能力)
)+
labs(
title = "工作經驗累積能力",
subtitle = "從2012年至今",
caption = "https://www.cakeresume.com/resumes/eggboys1616"
)+
theme(
legend.title = element_blank(),
legend.position = "bottom"
)+
scale_y_continuous(position = "right",)+
scale_x_continuous(breaks = c(2012,2013,2014,2015,2016,2017,2018,2019))+
theme(
axis.title.y.right = element_text(angle = 0,vjust = 0.5)
)+
scale_fill_discrete_sequential(palette="Palette")
額外套件:無
此份履歷著重在說明自己在職業生涯中,因為各項工作而習得的能力,所以我將能力大致劃分為四種(參考履歷本人的劃分),希望透過此圖,可以展現出此人從剛進職場到現在,除了維持前工作的所獲得的,也持續學習新的能力,並透過每年逐漸增加,展現出能力的維持及進步。
load("graphData_homework6_019.Rda")
## ----graph, echo=T, eval=T-----------------------------------------------
ggplot() +
geom_segment(aes(x=StartDate,
xend=EndDate,
y=0.,
yend=0.,
color=Period) ,
data=工作經歷,
linetype=1,
size=4) +
geom_segment(aes(x=StartDate,
xend=EndDate,
y=0.2,
yend=0.2,
color=Period),
data=教育經歷,
linetype=1,
size=4)+
geom_segment(aes(x=StartDate,
xend=EndDate,
y=-0.2,
yend=-0.2,
color=Period),
data=專案經歷,
linetype=1,
size=4)+
scale_colour_brewer(palette = "Pastel1")+
scale_y_continuous(limits=c(-0.3,0.3),
breaks=c(0.2, 0.0, -0.2),
labels=c("教育", "工作", "專案"))+
scale_x_continuous(limits=c(1600+1*8.33,1900+11*8.33),
breaks= c(1608.33,1708.33,1808.33,1908.33,1900+11*8.33),
labels=c("1601","1701","1801","1901","1911"))+
xlab("Time")+
ylab("經歷")+
theme_bw() +
theme(panel.grid.minor = element_blank(),
panel.grid.major =element_blank())+
theme(legend.position="none") +
theme(axis.title.y=element_text(angle = 0,
margin=margin(r=0)))+
annotate("text",
x = 1630,
y = 0.2,
label = paste("政治大學"),
size = 3,
colour="black")+
annotate("text",
x = 1905,
y = 0.2,
label = paste("外貿協會培訓中心"),
size = 3,
colour="black")+
annotate("text",
x = 1653,
y = 0.,
label = paste("BenQ"),
size = 3,
colour="black")+
annotate("text",
x = 1745,
y = 0.,
label = paste("聯華實業"),
size = 3,
colour="black")+
annotate("text",
x = 1965,
y = 0.,
label = paste("上海尼克森"),
size = 3,
colour="black")+
annotate("text",
x = 1826,
y = -0.2,
label = paste("數位行銷"),
size = 3,
colour="black")+
annotate("text",
x = 1860,
y = -0.10,
label = paste("設計敏捷方法基礎"),
size = 3,
colour="black")+
annotate("text",
x = 1910,
y = -0.2,
label = paste("商業數據分析"),
size = 3,
colour="black")+
annotate("text",
x = 1637,
y = 0.13,
label = paste("資訊管理學士"),
size = 2.5,
colour="blue")+
annotate("text",
x = 1903,
y = 0.13,
label = paste("國際企業經營班培訓生"),
size = 2.5,
colour="blue")+
annotate("text",
x = 1660,
y = -0.08,
label = paste("B2B數位行銷專員"),
size = 2.5,
colour="blue")+
annotate("text",
x = 1750,
y = -0.08,
label = paste("電子商務專員 "),
size = 2.5,
colour="blue")+
annotate("text",
x = 1960,
y = -0.08,
label = paste("定性部門實習生 "),
size = 2.5,
colour="blue")+
annotate("text",
x = 1853,
y = -0.28,
label = paste("Udacity學程"),
size = 2.5,
colour="blue")->經歷
ggplot()+
geom_hline(yintercept = 0)+
geom_vline(xintercept = 0)+
scale_y_continuous(limits=c(-0.03,0.03))+
scale_x_continuous(limits=c(-0.03,0.03))+
annotate("text",
x = 0.02,
y = 0.027,
label = paste("電腦語言軟體"),
size = 4,
colour="red")+
annotate("text",
x = 0.02,
y = 0.02,
label = paste("Excel,WordPress"),
size = 3,
colour="black")+
annotate("text",
x = 0.02,
y = 0.013,
label = paste("Photoshop, Alteryx"),
size = 3,
colour="black")+
annotate("text",
x = 0.02,
y = 0.007,
label = paste("Tableau, HTML, SQL"),
size = 3,
colour="black")+
annotate("text",
x = -0.02,
y = 0.027,
label = paste("座右銘"),
size = 4,
colour="red")+
annotate("text",
x = -0.017,
y = 0.02,
label = paste("If opportunity doesn't knock,"),
size = 3,
colour="black")+
annotate("text",
x = -0.022,
y = 0.013,
label = paste("build a door."),
size = 3,
colour="black")+
annotate("text",
x = 0.02,
y = -0.003,
label = paste("語言"),
size = 4,
colour="red")+
annotate("text",
x = 0.02,
y = -0.012,
label = paste("漢語"),
size = 3,
colour="black")+
annotate("text",
x = 0.02,
y = -0.020,
label = paste("英文 (TOEIC 970)"),
size = 3,
colour="black")+
annotate("text",
x = -0.02,
y = -0.003,
label = paste("證照"),
size = 4,
colour="red")+
annotate("text",
x = -0.02,
y = -0.01,
label = paste("Google Analytics"),
size = 3,
colour="black")+
annotate("text",
x = -0.02,
y = -0.018,
label = paste("Google Adword"),
size = 3,
colour="black")+
theme_void()+
labs(title = "座右銘和技能專長",adj=0.5) ->座右銘和技能專長
library(ggpubr)
ggarrange(座右銘和技能專長,經歷,nrow=2)
額外套件:ggpubr
連結: https://www.cakeresume.com/lisa-liao
該履歷表中有教育、專案、工作經歷及其技能專長與座右銘,為了完整將該履歷表完整呈現,選用了十字圖及時間軸來呈現。時間軸中的文字原本是用geom_text(),但其呈現的文字較易重疊且混亂,最後採用annotate(“text”)來新增文字。
# 麻煩data cleaning的last line, add:
# save(graphData,file="graphData.Rda")
## thank you.
#link:https://www.cakeresume.com/anthony-f?print
load("graphData_homework6_020.Rda")
graphData$resume_data %>%
ggplot(aes(x = reorder(地區, 年份), y = 數量, fill = 區域)) +
geom_col()+
scale_fill_manual(values = c("#A7CAD7", "#EAEC94", "#A2E7C6"))+
scale_y_continuous(breaks = seq(0, 4000, 1000))+
geom_text(aes(x = 地區, y = 數量, label= 數量),
color = "black",
size = 3,
vjust = 1.5 )+
theme(axis.text.x = element_text(angle = 45,hjust = 1))+
labs(title = "國際新市場開拓成果",
caption= "資料來源: CakeResume",
x = "",
y = "首筆訂單成交量(件)") -> finalplot
finalplot
額外套件:無
本圖呈現履歷主人過去擁有豐富的的國際市場開發經歷與成果,可以看出其開發的市場遍布三大洲,且首筆訂單成交量皆在1000件貨品以上。
load("graphData_homework6_021.Rda")
resume_df %>%
mutate(開始 = ymd(開始), 結束 = ymd(結束)) %>%
ggplot(aes(x = 開始, xend = 結束, y = 項目, yend = 項目, size = 2)) +
geom_text(aes(label = 名稱), size = 2.5) +
geom_segment(aes(color = 分類, alpha = 1)) +
labs(title = "Kuo, Shih-Jung 郭士榮", subtitle = "熱愛挑戰不設限、豐富國際經驗、在學三份實習") +
facet_grid(分類~., scales = "free") +
theme(
legend.position = "none",
axis.line.y = element_blank(),
axis.line.x = element_blank(),
plot.title = element_text(hjust = -0.75,vjust = 5, size = 16),
plot.subtitle = element_text(hjust = -1.05, vjust = 5, size = 10),
plot.margin = margin(1.3, 1.5, 1.2, 1, "cm"),
axis.title.x = element_blank(),
axis.title.y = element_blank(),
plot.background = element_rect(fill = "#F6F4E8"),
panel.background = element_rect(fill = "#F6F4E8"),
strip.background = element_rect(color = "gray", fill = "#F6F4E8"),
axis.text.x = element_text(vjust = -3),
panel.grid.major.x = element_line(colour = "gray", linetype = "18" ),
panel.grid.minor.x = element_line(colour = "gray", linetype = "18")
) + scale_x_date(breaks = seq(as.Date("2015-01-01"), as.Date("2020-01-01"), by="1 year"),
labels = date_format("%Y"))
履歷網址:https://www.cakeresume.com/resumes/SHIH-JUNG
傳達訊息:履歷作者在校期間累積許多國內外經驗,將其所整理之經歷,分類並以時間線呈現,可讓外界知道其在大學年年皆有收穫,還有持續期間與獲得成績。