折線圖一般用于描述一維變量隨著某一連續(xù)變量(通常為時間)變化的情況。即折線圖最適合描述時間序列數(shù)據(jù)的變化情況。也可隨著有序離散變量變化。本文介紹ggplot2包的geom_line()函數(shù)繪制折線圖。繪制方法是首先調用ggplot()函數(shù)選定數(shù)據(jù)集，并在aes參數(shù)中指明橫軸縱軸。然后調用條形圖函數(shù)geom_line()函數(shù)繪制出基本折線圖。

示例案例

#利用ggplot2包自帶的數(shù)據(jù)BOD繪制折線圖
#加載ggplot2包
library(ggplot2)
#如未安裝，則用install.packages("ggplot2")安裝

單條折線圖

#基本繪圖
#連續(xù)變量
ggplot(BOD, aes(x=Time, y=demand)) + 
  geom_line()

#離散變量的情況
BOD1 <- BOD # 賦值數(shù)據(jù)
BOD1$Time <- factor(BOD1$Time)#變量因子化

#給折線圖加上方框/點
ggplot(BOD, aes(x=Time, y=demand)) + 
  geom_line() + 
  geom_point(size=4, shape=15)

多條折線圖

#創(chuàng)建數(shù)據(jù)集
supp1=c("OJ","OJ","OJ","VC","VC","VC")
dose1=c(0.5,1.0,2.0,0.5,1.0,2.0)
length1=c(13.23,22.70,26.06,7.98,16.77,26.14)
tgg<-data.frame(supp1,dose1,length1)

#查看數(shù)據(jù)集tgg
head(tgg)

#繪圖
ggplot(tgg, aes(x=factor(dose1), y=length1, colour=supp1,group=supp1)) + 
  geom_line(size=2) #x為藥劑劑量，并非連續(xù)型變量

#設置shape參數(shù)
ggplot(tgg, aes(x=dose1, y=length1, color=supp1,shape=supp1)) + 
  geom_line() +
  geom_point(size=4)

#設置fill參數(shù)
ggplot(tgg, aes(x=dose1, y=length1, color=supp1,fill=supp1)) + 
  geom_line() +
  geom_point(size=4)

#美化圖
ggplot(tgg, aes(x=dose1, y=length1, shape=supp1)) +
  geom_line(position=position_dodge(0.2)) + #減淡線增加0.2
  geom_point(position=position_dodge(0.2), size=4)+ #控制兩線各向左向右移0.2的距離(保證不會點重疊)
  theme_bw()

參考文獻

[1] https://blog.csdn.net/zx403413599/article/details/46854275?utm_medium=distribute.pc_relevant.none-task-blog-2%7Edefault%7EBlogCommendFromBaidu%7Edefault-5.base&depth_1-utm_source=distribute.pc_relevant.none-task-blog-2%7Edefault%7EBlogCommendFromBaidu%7Edefault-5.base
[2] Robert I. Kabacoff (著). R語言實戰(zhàn)(高濤/肖楠/陳鋼 譯). 北京: 人民郵電出版社.