我有1900年至2018年间世界自然灾害发生次数的数据,我想绘制折线图。我可以制作图表,但我想进行一些更改,但我不知道该怎么做。
1)水平轴以25年为间隔显示年份,因此不会显示最后一个数据的年份,即2018年。我希望今年出现在x轴上。
2)我希望数据显示在圆点上。
我的代码如下:
library("readr")
library("fmsb")
library("car")
library("normtest")
library("nortest")
library("moments")
library("readxl") # carga de paquetes para exportar experimentos desde excel.
library("ggplot2")
library("stats")
total_1 <- read_csv("C:/Users/Alonso/Desktop/Tesis_MGII/Avance_mayo/escrito/number-of-natural-disaster-events (1).csv")
View(total_1)
print(total_1)
attach(total_1)
total_data<-data.frame(total_1)
View(total_data)
ggplot(data=total_data, aes(x=Year, y=`Natural disasters events`)) +
geom_line(color="blue",size=0.9)+
geom_point(color="red", size=1.0)
赫克托。
如果我理解正确,则可以反转geom_point()
和geom_line()
来最后画线(在这些点的上方),并按如下所示设置中断应该可以使到达2018
X轴的技巧得以实现。
ggplot(data=total_data, aes(x=Year, y=`Natural disasters events`)) +
scale_y_continuous(breaks = c(1900, 1925, 1950, 1975, 2000, 2018)) +
geom_point(color="red", size=1.0) + geom_line(color="blue",size=0.9)
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句