1， 鋰離子電池倍率
library(reshape2)
library(ggplot2)
library(grid)
library(RColorBrewer) # 導(dǎo)入相關(guān)庫
data <- read.csv("beilv.csv") # 讀入數(shù)據(jù)
names(data) <- c("cycle","Annealed Charge","Annealed Discharge","Unannealed Charge","Unannealed Discharge") #數(shù)據(jù)列重命名
temp01 <- data # 將數(shù)據(jù)導(dǎo)入臨時(shí)用數(shù)據(jù)
temp02 <- melt(temp01,id.vars = "cycle") # 合并數(shù)據(jù)
ggplot(temp02, aes(x=cycle, y=value)) +?
#geom_line(aes(color=variable),lwd=2) + #根據(jù)variable的值設(shè)置線顏色
geom_point(aes(color=variable),size=4, shape=20) + #根據(jù)variable的值設(shè)置點(diǎn)顏色
ylim(0,500)+ # x取值范圍
xlim(0,70)+ # y取值范圍
xlab("Cycle number") + ylab("Capacity (mAh/g)") + #設(shè)置x軸和y軸的label
scale_x_continuous(breaks=seq(0, 70, 10))+# 設(shè)置x軸的坐標(biāo)范圍和間隔
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"))+ #設(shè)置坐標(biāo)軸顏色和尺寸
theme(axis.title = element_text(size = 24))+ #設(shè)置坐標(biāo)軸標(biāo)題顏色和尺寸
theme(axis.text = element_text(size = 24))+ #設(shè)置坐標(biāo)數(shù)值的尺寸
theme(legend.title=element_blank())+ #設(shè)置圖例
theme(legend.position=c(1,1), legend.justification=c(1,1))+ # 調(diào)整圖例位置
theme(legend.background=element_blank())+ #設(shè)置圖例的背景顏色
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) #導(dǎo)出圖片
