Content
使用ggplot对nycflights13进行展示,以下数据均为nycflights13内数据
library(ggplot2)
library(nycflights13)
浏览数据
head(flights, n = 3) #显示前3行
dim(flights) #显示结构,输出为[row, column]
抽取数据
Alaska <- flights[flights$carrier == "AS", ]
dim(Alaska)
以下为画图示例
1 r语言散点图
1.1 散点图
ggplot(data = Alaska, mapping = aes(x = dep_delay, y = arr_delay)) + #建立画图区域
geom_point(alpha = 0.2) + #画图,alpha值为点的透明度(这里避免overplotted)
# geom_jitter(width = 30, height = 30) + #或者使用geom_jitter避免overplotted
labs(x = "Departure delay (minutes)", y = "Arrival delay (minutes)",
title = "Alaska Airlines flights leaving NYC in 2013") #标签
1.2 散点图阵
使用ggpairs() 函数 GGally 包
library(GGally)
#建立数据
data <- data.frame( var1 = 1:100 + rnorm(100,sd=20), v2 = 1:100 + rnorm(100,sd=27), v3 = rep(1, 100) + rnorm(100, sd = 1))
data$v4 = data$var1 ** 2
data$v5 = -(data$var1 ** 2)
#画图
ggpairs(data, title="Scatterplot matrix with ggpairs()")
2 r语言直方图
数据:
dim(weather