data("pressure")
#Graphics Package
#plot(x~y, data=..., )
plot(pressure~temperature, data=pressure, type="o", pch=16, lty=2, col="blue", main="Vapor Pressure (Graphics Package)")
#Lattice Package
library(lattice)
## Warning: package 'lattice' was built under R version 4.4.3
xyplot(pressure~temperature, pressure, type="o", pch=16, lty="dashed", main="Vapor Pressure (Lattice Package)")
#Lattice Graphics Model
xyplot(pressure~temperature, pressure)
xyplot(pressure~temperature, pressure, type="o", pch=16, lty="dashed", main="Vapor Pressure of Mercury")
Grafik menunjukkan hubungan antara temperatur (sumbu-x) dan tekanan uap (vapor pressure) (sumbu-y) untuk merkuri.
Grafik menunjukkan kurva eksponensial naik, yang berarti semakin tinggi temperatur, semakin cepat peningkatan tekanan uap.