R语言作图之ggplot2作图2

1.geom_boxplot()

箱线图

p <- ggplot(mpg, aes(class, hwy))
p + geom_boxplot()  ###见图1

# Orientation follows the discrete axis
ggplot(mpg, aes(hwy, class)) + geom_boxplot()###坐标轴位置改变

p + geom_boxplot(notch = TRUE)###进行修剪中位线处的尖角  见图2
p + geom_boxplot(varwidth = TRUE)###箱型的宽度随该轴变量的数目改变   见图3
p + geom_boxplot(fill = "white", colour = "#3366FF")####箱线内部填充为白色，外形颜色为"#3366FF"即蓝色  见图4
p + geom_boxplot(outlier.colour = "red", outlier.shape = 1)###在箱线外的点颜色使用红色标出  见图5
p + geom_boxplot(outlier.shape = NA) + geom_jitter(width = 0.1,aes(colour = drv))###添加抖动的点，抖动的宽度为0.1,抖动点的颜色为drv因子的水平  图6


###当变量x为连续值的时候，可以将一个完整的箱线切割成多个箱线图，主要涉boxplot()中的参数group = cut_width(carat, 0.5)

View(diamonds)
ggplot(diamonds, aes(carat, price)) +
  geom_boxplot()  ###见图7
  
ggplot(diamonds, aes(carat, price)) +
  geom_boxplot(aes(group = cut_width(carat, 0.5)),###以0.25的宽度切割箱线图，将一个大的箱线图切成多个小的箱线图，切割的宽度为0.24，也就是单位1长度，可以切割为4个箱线图
               fill = "white", colour = "#3366FF",  ###箱线内部填充为白色，箱线的颜色为蓝色
               outlier.alpha = 0.1,outlier.colour ="red", outlier.shape = 1)  ###奇异点的透明度为0.1，颜色为红色  ##见图8

图2

图3