R语言glplot画图

#作业折线图

library(ggplot2)
library(readxl)
table<- read_excel("E:CUMCM-2018-Problem-A-Chinese-Appendix.xlsx")

ggplot(data = table,mapping = aes(x=table$`time (s)`,y=table$`temp(oC)`))+geom_line()

ggplot(data = table,mapping = aes(x=table$`time (s)`,y=table$`temp(oC)`))+geom_line(stat="identity", size=2,colour="red")+ggtitle("时间温度变化图")+labs(y='温度',x='时间')

#点图

gplot(data=mpg,mapping = aes(x=cty,y=hwy))+geom_point()

ggplot(data=mpg,mapping = aes(x=cty,y=hwy))+geom_point()+aes(colour=factor(mpg$year))

ggplot(data=mpg,mapping = aes(x=cty,y=hwy))+geom_point(size=7)+aes(colour=factor(mpg$year))

ggplot(data=mpg,mapping = aes(x=cty,y=hwy))+geom_point()+aes(color=factor(mpg$year))+stat_smooth()
#geom_smooth()用来给数据添加平滑曲线

ggplot(data=mpg,mapping =aes(x=cty,y=hwy))+ geom_point(aes(colour=factor(year),size=displ))+
  stat_smooth()+ ggtitle("汽车油耗与型号")+labs(y='每加仑高速公路行驶距离',x='每加仑城市公路行驶距离')

#心形图

t<-seq(0, 2 *pi, by = 0.1)

x<-16 * sin(t)^3

y<-13 * cos(t) - 5 * cos(2 * t) - 2 * cos(3 * t) - cos(4 * t)

a<-(x - min(x))/(max(x) - min(x))

b<-(y - min(y))/(max(y) - min(y))


ggplot(data=NULL, aes(x=x, y=y)) + geom_line(aes(color=I('white'))) +geom_polygon(aes(fill='red'), show.legend = F)+scale_x_continuous(labels = NULL) +scale_y_continuous(labels = NULL) +theme_bw() +theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),panel.border = element_blank(),axis.ticks = element_blank(),axis.title = element_blank()) +annotate('text', x=median(a), y=median(b),label='I LOVE YOU',size=5)

猜你喜欢