penerapan gf_point

2.2.1 Latihan 2.2.1.1 Latihan 1

library(mosaicCalc)

## Loading required package: mosaicCore

## Loading required package: Deriv

## Loading required package: Ryacas

## 
## Attaching package: 'Ryacas'

## The following object is masked from 'package:stats':
## 
##     integrate

## The following objects are masked from 'package:base':
## 
##     %*%, diag, diag<-, lower.tri, upper.tri

## Registered S3 method overwritten by 'mosaic':
##   method                           from   
##   fortify.SpatialPolygonsDataFrame ggplot2

## 
## Attaching package: 'mosaicCalc'

## The following object is masked from 'package:stats':
## 
##     D

1. Prof. Stan Wagon (lihat http://stanwagon.com ) menggambarkan pemasangan kurva menggunakan pengukuran suhu (dalam derajat C) secangkir kopi versus waktu (dalam menit):

s = read.csv(
  "http://www.mosaic-web.org/go/datasets/stan-data.csv")
gf_point(temp ~ time, data=s)

2. Berikut catatan tingkat pasang surut di Hawaii selama sekitar 100 jam:

h = read.csv(
  "http://www.mosaic-web.org/go/datasets/hawaii.csv")
gf_point(water ~ time, data=h)

2.2.1.2 Latihan 2

Buat perintah R untuk menduplikasi setiap plot ini. Serahkan perintah Anda (bukan plot):

1. File data “utilities.csv”memiliki catatan utilitas untuk sebuah rumah di St. Paul, Minnesota, AS. Buat plot ini, termasuk labelnya:

Utilities <- read.csv(
  "http://www.mosaic-web.org/go/datasets/utilities.csv")

gf_point( 
  temp ~ month, data=Utilities) %>% 
  gf_labs(x = "Month (Jan=1, Dec=12)",
          y = "Temperature (F)",
          main = "Ave. Monthly Temp.")

2. Dari “utilities.csv”file data, buat plot tagihan bulanan rumah tangga untuk gas alam versus suhu rata-rata. Garis memiliki kemiringan USD/derajat dan mencegat 300 USD. −5

gf_point(
  gasbill ~ temp, data=Utilities) %>%
  gf_labs(xlab = "Temperature (F)",
          ylab = "Expenditures ($US)",
          main = "Natural Gas Use") %>%
  slice_plot( 300 - 5*temp ~ temp, color="blue")