r语言绘图技巧（昨晚熬夜整理的超级R绘图技巧）

# 加载需要的包 library(tidyverse) library(gcookbook)

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)