绘制折线图
head(pressure)
A data.frame: 6 × 2
temperature |
pressure |
<dbl> |
<dbl> |
0 |
0.0002 |
20 |
0.0012 |
40 |
0.0060 |
60 |
0.0300 |
80 |
0.0900 |
100 |
0.2700 |
plot(pressure$temperature, pressure$pressure, type="l")
plot(pressure$temperature, pressure$pressure, type="l")
points(pressure$temperature, pressure$pressure)
plot(pressure$temperature, pressure$pressure, type="l")
points(pressure$temperature, pressure$pressure)
lines(pressure$temperature, pressure$pressure/2, col="red")
points(pressure$temperature, pressure$pressure/2, col="red")
lines(pressure$temperature, pressure$pressure/3, col="green")
points(pressure$temperature, pressure$pressure/3, col="blue")
library(ggplot2)
qplot(temperature, pressure, data=pressure, geom=c("line", "point"))
# 等价的写法
# ggplot(pressure, aes(x=temperature, y=pressure)) + geom_line() + geom_point()