library(oce)
data(argo)
par(mfrow=c(2,2))
plot(argo)
plot(subset(argo, time > mean(time)))
plot(subset(argo, longitude > mean(longitude)))
plot(subset(argoGrid(argo), pressure > 500 & pressure < 1000), which=5)
# Plot only delayed-mode profiles.
par(mfrow=c(1,1))
plot(subset(argo, dataMode == "D"))
Run the code above in your browser using DataLab