Before we start

My chinese skills are poor and biased. I did learn during my internship and I continue to study while I can translate "last year our exports were 19,000 USD million" but I don't know all the colors.

I will use this dataset and for the example and you can use any chinese font you want. In this example I'm using Adobe Heiti.

Initial setup

These are the necessary libraries and I did read directly from the xlsx file before defining levels, labels and colors.

library(XLConnect)

library(ggplot2)

library(RColorBrewer)

library(scales)

library(plyr)

library(forcats)

file <- paste0(getwd(),"/ggplot2_chinese/trade_data_chile_china.xlsx")

data <- readWorksheetFromFile(file, sheet = "Sheet1", region = "A3:K13", header = TRUE)

data2 <- readWorksheetFromFile(file, sheet = "Sheet1", region = "A17:F27", header = TRUE)

data3 <- readWorksheetFromFile(file, sheet = "Sheet1", region = "A30:C35", header = TRUE)

data4 <- readWorksheetFromFile(file, sheet = "Sheet1", region = "A39:E59", header = TRUE)

data5 <- readWorksheetFromFile(file, sheet = "Sheet1", region = "A62:G72", header = TRUE)

data6 <- readWorksheetFromFile(file, sheet = "Sheet1", region = "A75:C125", header = TRUE)

data <- as.data.frame(data)

data2 <- as.data.frame(data2)

data3 <- as.data.frame(data3)

data3$country <- factor(data3$country, levels = c("china","usa","eu","japan","korea"), labels = c("中国","美国","欧盟","日本","朝鲜"))

data4 <- as.data.frame(data4)

data4$product <- factor(data4$product, levels = c("copper","others"), labels = c("铜","木浆, 水果, 鱒屬和等产品"))

data4 <- ddply(data4, .(year), transform, pos = cumsum(percentage) - (0.5 * percentage))

data4 <- ddply(data4, .(year), transform, pos2 = cumsum(exports) - (0.5 * exports))

data5 <- as.data.frame(data5)

data6 <- as.data.frame(data6)

data6$product <- factor(data6$product, levels=c("fruits",   "processedfoods",   "bottledwine",  "salmon",   "forestryandfurniture"), labels=c("水果", "再制",   "瓶装酒",  "鱒屬",   "林业和木家具"))

brewer.pal(8, "Paired")

[1] "#A6CEE3" "#1F78B4" "#B2DF8A" "#33A02C" "#FB9A99" "#E31A1C" "#FDBF6F"

[8] "#FF7F00"

cbPalette <- c("#1F78B4", "#E69F00", "#56B4E9", "#009E73", "#F0E442", "#556b2f", "#D55E00", "#CC79A7")

cbPalette2 <- c("#4169e1", "#d68a59","#556b2f", "#FB9A99", "#33A02C")

cbPalette3 <- c("#F0E442", "#56B4E9")

The charts

Here are different charts that I did create during my internship. These charts are actually "updated" as we still don't have 2016 official trade reports.

I will show how to use the new subtitles functionality in ggplot2 v2.2.0.

g1 <- ggplot() +

  geom_bar(aes(y = percentage, x = country, fill = country), data = data3, stat="identity") +

  scale_fill_manual(values=cbPalette2) +

  geom_text(data=data3, aes(x = country, y = (percentage + 2), label = paste0(percentage,"%")), colour="black", family="AdobeHeitiStd-Regular", size = 5) +

  scale_y_continuous(breaks=seq(0,40,5), labels = dollar_format(suffix = "%", prefix = "")) + expand_limits(y=c(0,25)) +

  labs(x="",y="百分数") +

  theme(panel.background = element_rect(fill="white"), panel.grid = element_line(colour="white")) +

  theme(legend.position="none", legend.title = element_blank(), axis.line.x = element_line(size=1.0), axis.line.y = element_line(size=1.0)) +

  ggtitle("2015年领先的出口市场",

          subtitle = "消息灵通人士: 智利海关总署, 智利中央银行 & 商務處智利中國") +

  theme(plot.title=element_text(size=20, family="AdobeHeitiStd-Regular"),

        text=element_text(size=18, family="AdobeHeitiStd-Regular"),

        axis.text.x=element_text(colour="black"))

g1

g2 <- ggplot() +

  geom_bar(aes(y = pcentexports, x = year, fill = "pcentexports"), data = data5, stat="identity") +

  scale_fill_manual(values="#4169e1") +

  geom_text(data=data5, aes(x = year, y = pcentexports +2, label = paste0(pcentexports,"%")), colour="black", family="AdobeHeitiStd-Regular", size = 5) +

  scale_x_continuous(breaks=seq(2006,2015,1)) + scale_y_continuous(breaks=seq(0,25,5), labels = dollar_format(suffix = "%", prefix = "")) +

  expand_limits(y=c(0,25)) + labs(x="年",y="百分数")  +

  theme(panel.background = element_rect(fill="white"), panel.grid = element_line(colour="white")) +

  theme(legend.position="none", legend.direction="horizontal", legend.title = element_blank(), axis.line.x = element_line(size=1.0), axis.line.y = element_line(size=1.0)) +

  ggtitle("出口中国的产品的结构",

           subtitle = "消息灵通人士: 智利海关总署, 智利中央银行 & 商務處智利中國") +

  theme(plot.title=element_text(size=20, family="AdobeHeitiStd-Regular"), text=element_text(size=18, family="AdobeHeitiStd-Regular"))

g2

g3 <- ggplot() +

  geom_bar(aes(y = pcentimports, x = year, fill = "pcentimports"), data = data5, stat="identity") +

  scale_fill_manual(values="#000080") +

  geom_text(data=data5, aes(x = year, y = pcentimports +2, label = paste0(pcentimports,"%")), colour="black", family="AdobeHeitiStd-Regular", size = 5) +

  scale_x_continuous(breaks=seq(2006,2015,1)) +

  scale_y_continuous(breaks=seq(0,25,5), labels = dollar_format(suffix = "%", prefix = "")) +

  expand_limits(y=c(0,25)) + labs(x="年",y="百分数") +

  theme(panel.background = element_rect(fill="white"), panel.grid = element_line(colour="white")) +

  theme(legend.position="none", legend.direction="horizontal", legend.title = element_blank(), axis.line.x = element_line(size=1.0), axis.line.y = element_line(size=1.0)) +

  ggtitle("进口中国的产品的结构",

          subtitle = "消息灵通人士: 智利海关总署, 智利中央银行 & 商務處智利中國") +

  theme(plot.title=element_text(size=20, family="AdobeHeitiStd-Regular"), text=element_text(size=18, family="AdobeHeitiStd-Regular"))

g3

g4 <- ggplot() +

  geom_bar(aes(y = percentage, x = year, fill = fct_rev(product)), data = data4, stat="identity") +

  scale_fill_manual(values=cbPalette3) + geom_text(data=data4, aes(x = year, y = pos, label = paste0(percentage,"%")), colour="black", family="AdobeHeitiStd-Regular", size = 4) +

  scale_x_continuous(breaks=seq(2006,2015,1)) +

  scale_y_continuous(labels = dollar_format(suffix = "%", prefix = "")) +

  labs(x="年", y="百分数")  + theme(panel.background = element_rect(fill="white"), panel.grid = element_line(colour="white")) +

  theme(legend.position="bottom", legend.direction="horizontal", legend.title = element_blank(), axis.line.x = element_line(size=1.0), axis.line.y = element_line(size=1.0)) +

  ggtitle("出口中国结构 (%)",

          subtitle = "消息灵通人士: 智利海关总署, 智利中央银行 & 商務處智利中國") +

  theme(plot.title=element_text(size=20, family="AdobeHeitiStd-Regular"), text=element_text(size=18, family="AdobeHeitiStd-Regular"))

g4

g5 <- ggplot() +

  geom_bar(aes(y = exports, x = year, fill = fct_rev(product)), data = data4, stat="identity") +

  scale_fill_manual(values=cbPalette3) + geom_text(data=data4, aes(x = year, y = pos2, label = exports), colour="black", family="AdobeHeitiStd-Regular", size = 4) +

  scale_x_continuous(breaks=seq(2006,2015,1)) +

  labs(x="年", y="百万美元") +

  theme(panel.background = element_rect(fill="white"), panel.grid = element_line(colour="white")) +

  theme(legend.position="bottom", legend.direction="horizontal", legend.title = element_blank(), axis.line.x = element_line(size=1.0), axis.line.y = element_line(size=1.0)) +

  ggtitle("出口中国结构 ($)",

          subtitle = "消息灵通人士: 智利海关总署, 智利中央银行 & 商務處智利中國") +

  theme(plot.title=element_text(size=20, family="AdobeHeitiStd-Regular"), text=element_text(size=18, family="AdobeHeitiStd-Regular"))

g5

g6 <- ggplot() +

  geom_area(aes(y = exports, x = year, fill = fct_rev(product)), data = data6, stat="identity") +

  xlab("年") + ylab("百万美元") +

  scale_x_continuous(breaks=seq(2000,2015,3)) +

  scale_y_continuous(breaks=seq(0,1600,400)) +

  theme(panel.background = element_rect(fill="white"), panel.grid = element_line(colour="white")) +

  scale_fill_brewer(palette="Paired") +

  theme(legend.position="bottom", legend.direction="horizontal", legend.title = element_blank(), axis.line.x = element_line(size=1.0), axis.line.y = element_line(size=1.0)) +

  ggtitle("无铜矿或造纸木材出口中国",

          subtitle = "消息灵通人士: 智利海关总署, 智利中央银行 & 商務處智利中國") +

  theme(plot.title=element_text(size=20, family="AdobeHeitiStd-Regular"), text=element_text(size=18, family="AdobeHeitiStd-Regular"))

g6

g7 <- ggplot() +

  geom_line(aes(y = exportscc, x = year, colour = "exportscc"), size=1.5, data = data, stat="identity") +

  geom_line(aes(y = importscc, x = year, colour = "importscc"), size=1.5, data = data, stat="identity") +

  xlab("年") + ylab("百万美元") +

  scale_x_continuous(breaks=seq(2000,2015,3)) +

  scale_y_continuous(breaks=seq(0,20000,5000)) +

  expand_limits(y=c(5000,20000)) +

  theme(panel.background = element_rect(fill="white"), panel.grid = element_line(colour="white")) +

  scale_color_manual(labels = c("出口的产品", "进口产品"), values = c("#4169e1", "#000080")) +

  theme(legend.position="bottom", legend.direction="horizontal", legend.title = element_blank(), axis.line.x = element_line(size=1.0), axis.line.y = element_line(size=1.0)) +

  ggtitle("商业智利-中国",

          subtitle = "消息灵通人士: 智利海关总署, 智利中央银行 & 商務處智利中國") +

  theme(plot.title=element_text(size=20, family="AdobeHeitiStd-Regular"), text=element_text(size=18, family="AdobeHeitiStd-Regular")) + guides(col = guide_legend(nrow = 2))

g7

g8 <- ggplot() +

  geom_line(aes(y = exportscusa, x = year, colour = "exportscusa"), size=1.5, data = data, stat="identity") +

  geom_line(aes(y = importscusa, x = year, colour = "importscusa"), size=1.5, data = data, stat="identity") +

  xlab("年") + ylab("百万美元") +

  scale_x_continuous(breaks=seq(2000,2015,3)) +

  scale_y_continuous(breaks=seq(0,20000,5000)) +

  expand_limits(y=c(5000,20000)) +

  theme(panel.background = element_rect(fill="white"), panel.grid = element_line(colour="white")) +

  scale_color_manual(labels = c("出口的产品", "进口产品"), values = c("#a0522d", "#E18942")) +

  theme(legend.position="bottom", legend.direction="horizontal", legend.title = element_blank(), axis.line.x = element_line(size=1.0), axis.line.y = element_line(size=1.0)) +

  ggtitle("商业智利-美国",

          subtitle = "消息灵通人士: 智利海关总署, 智利中央银行 & 商務處智利中國") +

  theme(plot.title=element_text(size=20, family="AdobeHeitiStd-Regular"), text=element_text(size=18, family="AdobeHeitiStd-Regular")) +

  guides(col = guide_legend(nrow = 2))

g8

g9 <- ggplot() +

  geom_line(aes(y = exportsceu, x = year, colour = "exportsceu"), size=1.5, data = data, stat="identity") +

  geom_line(aes(y = importsceu, x = year, colour = "importsceu"), size=1.5, data = data, stat="identity") +

  xlab("年") + ylab("百万美元") +

  scale_x_continuous(breaks=seq(2000,2015,3)) +

  scale_y_continuous(breaks=seq(0,20000,5000)) +

  expand_limits(y=c(5000,20000)) +

  theme(panel.background = element_rect(fill="white"), panel.grid = element_line(colour="white")) +

  scale_color_manual(labels = c("出口的产品", "进口产品"), values = c("#556b2f", "#2f556b")) +

  theme(legend.position="bottom", legend.direction="horizontal", legend.title = element_blank(), axis.line.x = element_line(size=1.0), axis.line.y = element_line(size=1.0)) +

  ggtitle("商业智利-欧盟",

          subtitle = "消息灵通人士: 智利海关总署, 智利中央银行 & 商務處智利中國") +

  theme(plot.title=element_text(size=20, family="AdobeHeitiStd-Regular"), text=element_text(size=18, family="AdobeHeitiStd-Regular")) +

  guides(col = guide_legend(nrow = 2))

g9

g10 <- ggplot() +

  geom_line(aes(y = bccc, x = year, colour = "bccc"), size=1.5, data = data2, stat="identity") +

  geom_line(aes(y = bccw, x = year, colour = "bccw"), size=1.5, data = data2, stat="identity") +

  xlab("年") + ylab("百万美元") +

  scale_x_continuous(breaks=seq(2000,2015,3)) +

  theme(panel.background = element_rect(fill="white"), panel.grid = element_line(colour="white")) +

  scale_color_manual(labels = c("淨出口中国的产品", "淨出口人间的产品"), values = c("#4169e1", "#FF43A4")) +

  theme(legend.position="bottom", legend.direction="horizontal", legend.title = element_blank(), axis.line.x = element_line(size=1.0), axis.line.y = element_line(size=1.0)) +

  ggtitle("淨出口中国和人间",

          subtitle = "消息灵通人士: 智利海关总署, 智利中央银行 & 商務處智利中國") +

  theme(plot.title=element_text(size=20, family="AdobeHeitiStd-Regular"), text=element_text(size=18, family="AdobeHeitiStd-Regular")) + guides(col = guide_legend(nrow = 2))

g10

g11 <- ggplot() +

  geom_line(aes(y = bccusa, x = year, colour = "bccusa"), size=1.5, data = data2, stat="identity") +

  geom_line(aes(y = bccw, x = year, colour = "bccw"), size=1.5, data = data2, stat="identity") +

  xlab("年") + ylab("百万美元") +

  scale_x_continuous(breaks=seq(2000,2015,3)) + scale_y_continuous(breaks=seq(-10000,25000,5000)) +

  expand_limits(y=c(-10000,25000)) +

  theme(panel.background = element_rect(fill="white"), panel.grid = element_line(colour="white")) +

  scale_color_manual(labels = c("淨出口美国的产品", "淨出口人间的产品"), values = c("#d68a59", "#FF43A4")) +

  theme(legend.position="bottom", legend.direction="horizontal", legend.title = element_blank(), axis.line.x = element_line(size=1.0), axis.line.y = element_line(size=1.0)) +

  ggtitle("淨出口美国和人间",

          subtitle = "消息灵通人士: 智利海关总署, 智利中央银行 & 商務處智利中國") +

  theme(plot.title=element_text(size=20, family="AdobeHeitiStd-Regular"), text=element_text(size=18, family="AdobeHeitiStd-Regular")) + guides(col = guide_legend(nrow = 2))

g11

g12 <- ggplot() +

  geom_line(aes(y = bcceu, x = year, colour = "bcceu"), size=1.5, data = data2, stat="identity") +

  geom_line(aes(y = bccw, x = year, colour = "bccw"), size=1.5, data = data2, stat="identity") +

  xlab("年") + ylab("百万美元") +

  scale_x_continuous(breaks=seq(2000,2015,3)) +

  theme(panel.background = element_rect(fill="white"), panel.grid = element_line(colour="white")) +

  scale_color_manual(labels = c("淨出口人间的产品", "淨出口欧盟的产品"), values = c("#FF43A4", "#556b2f"), guide = guide_legend(reverse=TRUE)) +

  theme(legend.position="bottom", legend.direction="horizontal", legend.title = element_blank(), axis.line.x = element_line(size=1.0), axis.line.y = element_line(size=1.0)) +

  ggtitle("淨出口欧盟和人间",

          subtitle = "消息灵通人士: 智利海关总署, 智利中央银行 & 商務處智利中國") +

  theme(plot.title=element_text(size=20, family="AdobeHeitiStd-Regular"), text=element_text(size=18, family="AdobeHeitiStd-Regular")) +

  guides(col = guide_legend(nrow = 2))

g12

g13 <- ggplot() +

  geom_line(aes(y = exportscc, x = year, colour = "exportscc"), size=1.5, data = data, stat="identity") +

  geom_line(aes(y = exportscusa, x = year, colour = "exportscusa"), size=1.5, data = data, stat="identity") +

  geom_line(aes(y = exportsceu, x = year, colour = "exportsceu"), size=1.5, data = data, stat="identity") +

  xlab("年") + ylab("百万美元") +

  scale_x_continuous(breaks=seq(2000,2015,3)) + scale_y_continuous(breaks=seq(0,20000,5000)) + expand_limits(y=c(5000,20000)) +

  theme(panel.background = element_rect(fill="white"), panel.grid = element_line(colour="white")) +

  scale_color_manual(labels = c("中国(第一贸易合作伙伴)出口智利的产品", "美国(第二贸易合作伙伴)出口智利的产品", "欧盟(第三贸易合作伙伴)出口智利的产品"), values = c("#4169e1", "#d68a59","#556b2f")) +

  theme(legend.position="bottom", legend.direction="horizontal", legend.title = element_blank(), axis.line.x = element_line(size=1.0), axis.line.y = element_line(size=1.0)) +

  ggtitle("出口中国，美国和欧盟的产品",

          subtitle = "消息灵通人士: 智利海关总署, 智利中央银行 & 商務處智利中國") +

  theme(plot.title=element_text(size=20, family="AdobeHeitiStd-Regular"), text=element_text(size=18, family="AdobeHeitiStd-Regular")) +

  guides(col = guide_legend(nrow = 3))

g13

g14 <- ggplot() +

  geom_line(aes(y = importscc, x = year, colour = "importscc"), size=1.5, data = data, stat="identity") +

  geom_line(aes(y = importscusa, x = year, colour = "importscusa"), size=1.5, data = data, stat="identity") +

  geom_line(aes(y = importsceu, x = year, colour = "importsceu"), size=1.5, data = data, stat="identity") +

  xlab("年") + ylab("百万美元") +

  scale_x_continuous(breaks=seq(2000,2015,3)) +

  scale_y_continuous(breaks=seq(4000,20000,4000)) +

  expand_limits(y=c(4000,20000)) +

  theme(panel.background = element_rect(fill="white"), panel.grid = element_line(colour="white")) +

  scale_color_manual(labels = c("中国(第一贸易合作伙伴)进口智利的产品", "美国(第二贸易合作伙伴)进口智利的产品", "欧盟(第三贸易合作伙伴)进口智利的产品"), values = c("#4169e1", "#d68a59","#556b2f")) +

  theme(legend.position="bottom", legend.direction="horizontal", legend.title = element_blank(), axis.line.x = element_line(size=1.0), axis.line.y = element_line(size=1.0)) +

  ggtitle("从中国，美国和欧盟进口产品",

          subtitle = "消息灵通人士: 智利海关总署, 智利中央银行 & 商務處智利中國") +

  theme(plot.title=element_text(size=20, family="AdobeHeitiStd-Regular"), text=element_text(size=18, family="AdobeHeitiStd-Regular")) +

  guides(col = guide_legend(nrow = 3))

g14

g15 <- ggplot() +

  geom_line(aes(y = bccc, x = year, colour = "bccc"), size=1.5, data = data2, stat="identity") +

  geom_line(aes(y = bccusa, x = year, colour = "bccusa"), size=1.5, data = data2, stat="identity") +

  geom_line(aes(y = bcceu, x = year, colour = "bcceu"), size=1.5, data = data2, stat="identity") +

  xlab("年") + ylab("百万美元") +

  scale_x_continuous(breaks=seq(2000,2015,3)) +

  scale_y_continuous(breaks=seq(-10000,15000,5000)) +

  expand_limits(y=c(-10000,15000)) +

  theme(panel.background = element_rect(fill="white"), panel.grid = element_line(colour="white")) +

  scale_color_manual(labels = c("中国(第一贸易合作伙伴)淨出口智利的产品", "美国(第二贸易合作伙伴)淨出口智利的产品", "欧盟(第三贸易合作伙伴)淨出口智利的产品"), values = c("#4169e1", "#d68a59","#556b2f")) +

  theme(legend.position="bottom", legend.direction="horizontal", legend.title = element_blank(), axis.line.x = element_line(size=1.0), axis.line.y = element_line(size=1.0)) +

  ggtitle("淨出口中国，美国和欧盟进口产品",

          subtitle = "消息灵通人士: 智利海关总署, 智利中央银行 & 商務處智利中國") +

  theme(plot.title=element_text(size=20, family="AdobeHeitiStd-Regular"), text=element_text(size=18, family="AdobeHeitiStd-Regular")) +

  guides(col = guide_legend(nrow = 3))

g15

转自： http://pacha.hk/ggplot2_chinese.html

Creating beautiful charts in chinese with ggplot2的更多相关文章

R绘图第九篇：绘制散点图和气泡图（ggplot2）
绘制散点图(scatterplots)使用geom_point()函数,气泡图(bubblechart)也是一个散点图,只不过点的大小由一个变量(size)来控制.散点图潜在的最大问题是过度绘图:当一 ...
Python框架、库以及软件资源汇总
转自:http://developer.51cto.com/art/201507/483510.htm 很多来自世界各地的程序员不求回报的写代码为别人造轮子.贡献代码.开发框架.开放源代码使得分散在世 ...
Awesome Python
Awesome Python A curated list of awesome Python frameworks, libraries, software and resources. Insp ...
Machine and Deep Learning with Python
Machine and Deep Learning with Python Education Tutorials and courses Supervised learning superstiti ...
Python开源框架、库、软件和资源大集合
A curated list of awesome Python frameworks, libraries, software and resources. Inspired by awesome- ...
【python】Python框架、库和软件资源大全
很多来自世界各地的程序员不求回报的写代码为别人造轮子.贡献代码.开发框架.开放源代码使得分散在世界各地的程序员们都能够贡献他们的代码与创新. Python就是这样一门受到全世界各地开源社区支持的语言. ...
Python 库汇总英文版
Awesome Python A curated list of awesome Python frameworks, libraries, software and resources. Insp ...
Python框架、库和软件资源大全(整理篇)
有少量修改,请访问原始链接.PythonWIn的exe安装包;http://www.lfd.uci.edu/~gohlke/pythonlibs/ 原文链接:codecloud.net/python- ...
wesome-android
awesome-android Introduction android libs from github System requirements Android Notice If the lib ...

随机推荐

Twitter数据抓取的方法(二)
Scraping Tweets Directly from Twitters Search Page – Part 2 Published January 11, 2015 In the previo ...
个人php开发之工具--listary（一）
摘要:俗话说:工欲善其事,必先利其器.作为一名开发者来说,熟练的使用工具可以达到事半功倍的效果,我就我自己使用的工具说自己的看法.当然,每个人对某个软件都有自己的看法或使用经验,还是那句老话,什么是最 ...
Map的迭代
public static void main(String[] args) { Map<String, Integer> map = new HashMap<String, Int ...
React之key详解
一个例子有这样的一个场景如下图所示,有一组动态数量的input,可以增加和删除和重新排序,数组元素生成的组件用index作为key的值,例如下图生成的ui展示: 上面例子中的input组件渲染的代码 ...
关于REST的浅显了解
REST 是一种软件架构风格 1.定义 REST即表述性状态传递(Representational State Transfer) 是一组架构约束条件和原则.是设计风格而不是标准. 满足这些约束条件和 ...
Java 8 Lambda 表达式
Lambda 是啥玩意简单来说,Lambda 就是一个匿名的方法,就这样,没啥特别的.它采用一种非常简洁的方式来定义方法.当你想传递可复用的方法片段时,匿名方法非常有用.例如,将一个方法传递给另外一 ...
Swing学习篇 API之JButton组件
按钮(Jbutton) Swing中的按钮是Jbutton,它是javax.swing.AbstracButton类的子类,swing中的按钮可以显示图像,并且可以将按钮设置为窗口的默认图标,而且还可 ...
页面性能优化的利器 — Timeline
欢迎大家关注腾讯云技术社区-博客园官方主页,我们将持续在博客园为大家推荐技术精品文章哦~ 陈泽钦,腾讯移动客户端工程师,目前就职于腾讯MIG移动互联网事业群,负责腾讯浏览服务TBS的X5内核业务. 1 ...
SCP“免密” 远程COPY较多文件
一.linux脚本实现自动输入密码使用Linux的程序员对输入密码这个举动一定不陌生,在Linux下对用户有严格的权限限制,干很多事情越过了权限就得输入密码,比如使用超级用户执行命令,又比如ftp. ...
codeforce vk cup2017
D. k-Interesting Pairs Of Integers time limit per test 2 seconds memory limit per test 256 megabytes ...

Creating beautiful charts in chinese with ggplot2

Before we start

Initial setup

The charts

Creating beautiful charts in chinese with ggplot2的更多相关文章

随机推荐

热门专题