# 加载需要的包
library(tidyverse)
library(gcookbook)1.scale_shape_manual设置想要的shape
ggplot(heightweight,aes(ageYear,heightIn,shape=sex)) geom_point() scale_shape_manual(values = c(1,2)) ggsave("1.jpg")
ggplot(heightweight,aes(weightLb,heightIn,fill=ageYear)) geom_point(shape=21,size=3) scale_fill_gradient(low="black",high="red")
ggplot(diamonds,aes(carat,price)) geom_point(alpha=.1)
sp <- ggplot(diamonds,aes(carat,price)) sp stat_bin2d(bins = 50) scale_fill_gradient(low="lightblue",high="red",limits=c(0,6000))
sp1 <- ggplot(heightweight,aes(ageYear,heightIn)) geom_point() sp1 stat_smooth(method = lm)
sp1 annotate("text",label="r^2=0.42",x=16,y=52)
sp1 geom_text(aes(label=sex),size=3)
sp1 geom_text(aes(ageYear 0.2,label=sex,size=2))
sp2 <-ggplot(faithful,aes(eruptions,waiting)) geom_point() stat_density2d()
ggplot(cabbage_exp,aes(Date,Weight,fill=Cultivar)) geom_bar(stat = "identity",position ="dodge")
ggplot(cabbage_exp,aes(Date,Weight,fill=Cultivar)) geom_bar(stat = "identity",width=.5)
ggplot(cabbage_exp,aes(Date,Weight,fill=Cultivar)) geom_bar(stat = "identity",position=position_dodge(0.7),width = .65)
ggplot(wind,aes(DirCat,fill=SpeedCat)) geom_histogram(binwidth = 15,boundary=-7.5) coord_polar() scale_x_continuous(limits = c(0,360))
sp1 <- ggplot(heightweight,aes(ageYear,heightIn)) geom_point() sp1 coord_fixed() scale_y_continuous(breaks = seq(50,80,5)) scale_x_continuous(breaks = seq(12,16,1))
sp1 scale_y_continuous(breaks = NULL) scale_x_continuous(breaks = NULL)
sp1 scale_y_continuous(breaks=c(50,55,60,65),labels = c("fifty","fifty-five","sixty","sixty-five"))
sp1 theme(axis.text.x =element_text(face = "italic",colour = "red",size=rel(2)), axis.text.y =element_text(face = "italic",colour = "blue",size=rel(2)))
sp1 xlab("这是x轴") ylab("这是y轴")
# xy一起改
sp1 theme(axis.line = element_line(colour = "red")) # 只改一个轴
sp1 theme(axis.line.x = element_line(colour = "red",size = 1),axis.line.y=element_line(colour = "blue",size=2))
ggplot(faithful,aes(waiting)) geom_histogram(binwidth = 5,fill="red", colour="blue",size=2)
