df <- airquality  # airqualityを変数dfに代入
print(df)         # dfの内容を表示
plot(df)          # dfの散布図をプロット