R ggplot2 qplot-用一条线连接数据点

Question

我正在使用以下代码在R中进行绘制：

q <- qplot(var1, var2, data=data_1)
q + theme(axis.text.x = element_text(angle = 90, hjust = 1))

这给了我这个情节：

如何获得一条连接各个点的点的线？

这是数据集：

> cat(sprintf("\"%s\" \"%f\"\n", data_1$var1, data_1$var2))
"2012Q1" "NA"
 "2012Q2" "NA"
 "2012Q3" "NA"
 "2012Q4" "NA"
 "2013Q1" "81890.091966"
 "2013Q2" "80068.697510"
 "2013Q3" "304742.176778"
 "2013Q4" "223182.661337"
 "2014Q1" "275189.419519"
 "2014Q2" "297179.617112"
 "2014Q3" "284532.546842"
 "2014Q4" "416008.842763"
 "2015Q1" "381822.813657"
 "2015Q2" "410020.242215"
 "2015Q3" "384865.684379"
 "2015Q4" "425738.393387"
 "2016Q1" "382404.239015"
 "2016Q2" "378516.717327"
 "2016Q3" "338451.013178"
 "2016Q4" "351486.235708"
 "2017Q1" "366015.605164"
 "2017Q2" "358818.529895"
 "2017Q3" "325981.821170"
 "2017Q4" "371457.620454"
 "2018Q1" "410345.839819"
 "2018Q2" "398976.425498"
 "2018Q3" "362460.336773"
 "2018Q4" "375626.057926"
 "2019Q1" "361636.409126"
 "2019Q2" "378178.181764"

Answer 1

您可以仅添加geom_line()，例如：

q <- qplot(var1, var2, data=data_1)
q <- q + geom_line(aes(group = 1))
q + theme(axis.text.x = element_text(angle = 90, hjust = 1))

Answer 2

尝试使用+ geom_line() 检查这个非常相似的问题

https://stackoverflow.com/questions/8592585/combine-points-with-lines-with-ggplot2