出差
由于工作的原因,在春秋两季会集中出差一段时间。此外,还会有偶尔的生信培训班的出差任务。总之,一年总会出差个2-3个月。 并且由于自己负责的区域比较远. 导致一次出差就要出差三周, 比如今天的春季宣讲,从4月10号到4月30日, 我在东北三省出差. 后面在广州呆了不到一个月, 5月26日又跑到了京津翼地区外加内蒙古出差了三周, 也是刚刚在上周, 也是6月6日回到了广州. 再加上年前去的西安杨凌和山东青岛的生信培训班. 估摸着今年已经出差了三个月是足足的.
总结一下,这次出差, 主要是:
- 对女朋友愧疚
- 东北三省还好, 京津翼和内蒙古那次没把我累死在酒店.
因为平时,出差的时候, 自己的项目还是要处理的, 所以一般出差的节奏是: 白天见客户,晚上处理项目, 但是五月到六月这次, 我一共出差了13天, 两天在路上, 两天的周末,一共就九天的工作日. 我讲了八场讲座, 一个地方呆两天到三天, 还要赶往下一个地方.同时, 还要处理自己的项目, 尤其是’某些客户’很麻烦. 搞得那段时间,每天晚上都是加班到二三点. 最后的一战呼和浩特的时候, 我感觉我都撑不住了. 幸好呼和浩特有我们区域的销售部的大区经理,以及呼和浩特的老师比较nice, 爽快! 这才为自己的出差画上一个圆满的句号.
我一直都认为自己算是个工作狂,一旦认真,就会完全沉溺其中
这次出差着实让我突破了一把
数据可视化
首先是我们的区域
看过我简历的朋友, 都会了解我是干什么的,以及在哪一家公司. 我所在的小组是东北区域. 这个东北区域其实针对的是广州的位置. 总之, 东北渔区域包括:
- 东北三省(黑龙江, 吉林, 辽宁)
- 京津翼(北京, 天津, 河北)
- 内蒙古自治区
当然上面只是区域, 但其实业务没那么广,主要是还是销售所在的城市.
p1 <- ggplot(china) + geom_sf(size = 0.5, fill = "#f0f0f0", color = "#f0f0f0",
show.legend = FALSE) + geom_sf(data = china_work, aes(fill = name, color = name)) +
ggthemes::scale_fill_tableau(name = NULL) + ggthemes::scale_color_tableau(name = NULL) +
theme_void() + theme(panel.grid.major = element_line(colour = "black"),
legend.position = "bottom", legend.box = "horizontal") + guides(fill = guide_legend(nrow = 1,
label.position = "bottom")) + coord_sf(datum = NA)
p2 <- p1 + coord_sf(datum = NA, xlim = c(95, 140), ylim = c(30, 60)) + theme(legend.position = "NULL") +
labs(title = "我们的区域")
cowplot::plot_grid(p1, p2)
我们的区域确实蛮大的, 毕竟咱们公司在西藏和新疆也没业务啊. 所以, 这个区域的面积绝对在所有区域里,是当之无愧的TOP1.
出差的天数统计
对自己在各个地方的出差天数,做个记录, 话说这些出差的费用都是自己垫付的, 后面才能自己去报销, 哎,这一天天的酒店, 都是巨额财产啊. 因为一直问女友要钱住酒店,一直被嫌弃.QAQ, 心好累.
t_city <- c("哈尔滨", "齐齐哈尔", "长春", "沈阳", "兴城", "保定", "天津", "北京",
"呼和浩特")
t_day <- c(8, 1, 2, 7, 2, 2, 6, 2, 2)
t_dat <- tibble(t_city, t_day)
ggplot(t_dat, aes(x = t_city, y = t_day)) + geom_col(aes(fill = t_city), width = 0.6) +
ggthemes::scale_fill_tableau(name = NULL) + labs(x = "City", y = "Days",
fill = "出差记录", subtitle = "注:天数包含周末") + theme_bw()
虽然可以看到呆的最久的地方是哈尔滨(因为有两个销售同事在哈尔滨,每个人负责的学校和科研机构不同,还以天数自然就double了), 但是最喜欢的还是呼和浩特吧.
羊肉好吃,有特产!
再也不用担心出差回去没带东西被嫌弃了!
出差汇总
最近一直都在学习R包leaflet
,就用leaflet
来可视化一下从4月10号,一直到6月6这些天来,自己在全国范围内的瞎溜达[2][3].
for (i in 1:nrow(mydf)) {
m <- m %>% addPolylines(lat = c(mydf[i, ]$lat, mydf[i, ]$lat.1), lng = c(mydf[i,
]$long, mydf[i, ]$long.1))
}
m
这复杂的线,都是自己走过的路, 这些天来就是跑来跑去, 积累的主要是和客户的见面交流,以及自己的售前能力吧. 确实收活不少. 但是问题也有:
- 单细胞的知识的积累基本是停滞状态
- 业务能力都集中在售前了, 售后能力基本上也是瓶颈了
六月份, 希望自己能在广州扎根, 这一两年存点钱, 早点结婚.
附: leaflet的学习笔记
Leaflet[1]是交互式地图中最受欢迎的开源JavaScript库之一。它被“纽约时报”和“华盛顿邮报”,GitHub和Flickr等网站以及OpenStreetMap,Mapbox和CartoDB等GIS专家使用。leaflet
这个R包可以很容易地集成和控制R中的Leaflet映射。
添加地图的最简单方法是addTiles()不带参数调用; 默认情况下,使用OpenStreetMap的地图, 但是, 也可以使用addProviderTiles()
函数添加许多流行的免费第三方地图,该函数使用leaflet-providers插件实现。请参阅此处查看完成的第三方地图列表.
pal <- colorNumeric(palette = "Blues", NULL) #离散型变量colorBin,colorQuantilec,因子型变量olorFactor
NA
## [1] NA