R语言画图实例

1， 锂离子电池倍率

library(reshape2)

library(ggplot2)

library(grid)

library(RColorBrewer) # 导入相关库

data <- read.csv("beilv.csv") # 读入数据

names(data) <- c("cycle","Annealed Charge","Annealed Discharge","Unannealed Charge","Unannealed Discharge") #数据列重命名

temp01 <- data # 将数据导入临时用数据

temp02 <- melt(temp01,id.vars = "cycle") # 合并数据

ggplot(temp02, aes(x=cycle, y=value)) + 

#geom_line(aes(color=variable),lwd=2) + #根据variable的值设置线颜色

geom_point(aes(color=variable),size=4, shape=20) + #根据variable的值设置点颜色

ylim(0,500)+ # x取值范围

xlim(0,70)+ # y取值范围

xlab("Cycle number") + ylab("Capacity (mAh/g)") + #设置x轴和y轴的label

scale_x_continuous(breaks=seq(0, 70, 10))+# 设置x轴的坐标范围和间隔

annotate("text", x=4, y=400, parse=TRUE, size=6,

label="'0.1 A ' * g^{-1}")+ #添加文字

annotate("text", x=16, y=320, parse=TRUE, size=6,

label="'0.2 A ' * g^{-1}")+

annotate("text", x=26, y=290, parse=TRUE, size=6,

label="'0.5 A ' * g^{-1}")+

annotate("text", x=36, y=270, parse=TRUE, size=6,

label="'1 A ' * g^{-1}")+

annotate("text", x=46, y=240, parse=TRUE, size=6,

label="'2 A ' * g^{-1}")+

annotate("text", x=56, y=190, parse=TRUE, size=6,

label="'5 A ' * g^{-1}")+

annotate("text", x=66, y=330, parse=TRUE, size=6,

label="'0.1 A ' * g^{-1}")+

theme(axis.line = element_line(size=1, colour = "black"))+ #设置坐标轴颜色和尺寸

theme(axis.title = element_text(size = 24))+ #设置坐标轴标题颜色和尺寸

theme(axis.text = element_text(size = 24))+ #设置坐标数值的尺寸

theme(legend.title=element_blank())+ #设置图例

theme(legend.position=c(1,1), legend.justification=c(1,1))+ # 调整图例位置

theme(legend.background=element_blank())+ #设置图例的背景颜色

theme(legend.key=element_blank())+

theme(legend.text=element_text(size=16))+

theme(plot.background = element_blank())+

theme(panel.background = element_blank())+

theme(panel.grid.major = element_line(colour = NA))+

theme(panel.grid.minor = element_line(colour = NA))+

theme(panel.border = element_rect(colour = "black",fill = NA, size = 1))+

scale_fill_gradient()

ggsave("beilv.png",width=8, height=6, unit="in", dpi=300) #导出图片