Cara membuat fungsi pada program R adalah seperti contoh berikut yaitu y=mx+b sehingga jika ingin menampilkan fungsi tersebut maka kita menggunakan fungsi slice_plot() dengan parameter yang diisi domain(x = range(-10, 10)), domain adalah bisa dirubah sesuai dengan keadaan yang kita ingin ditampilkan

library(mosaicCalc)
## Loading required package: mosaic
## Registered S3 method overwritten by 'mosaic':
##   method                           from   
##   fortify.SpatialPolygonsDataFrame ggplot2
## 
## The 'mosaic' package masks several functions from core packages in order to add 
## additional features.  The original behavior of these functions should not be affected by this.
## 
## Attaching package: 'mosaic'
## The following objects are masked from 'package:dplyr':
## 
##     count, do, tally
## The following object is masked from 'package:Matrix':
## 
##     mean
## The following object is masked from 'package:ggplot2':
## 
##     stat
## The following objects are masked from 'package:stats':
## 
##     binom.test, cor, cor.test, cov, fivenum, IQR, median, prop.test,
##     quantile, sd, t.test, var
## The following objects are masked from 'package:base':
## 
##     max, mean, min, prod, range, sample, sum
## Loading required package: mosaicCore
## 
## Attaching package: 'mosaicCore'
## The following objects are masked from 'package:dplyr':
## 
##     count, tally
## 
## Attaching package: 'mosaicCalc'
## The following object is masked from 'package:stats':
## 
##     D
slice_plot(3 * x - 2 ~ x, domain(x = range(0, 10)))

m = -3
b = -2
slice_plot(m * x + b ~ x, domain(x = range(0, 10)))

m = 0
b = -2
  slice_plot(m  *x + b ~ x, domain(x= range(0,10)))

x <- 10
slice_plot(A * x ^  2 ~ A, domain(A = range(-2,  3)))

slice_plot( 4 * x - 7 ~ x, domain(x = range(0, 10) ))

slice_plot( cos(5 * x) ~ x, domain(x = range(-1, 1)))

slice_plot( cos(2 * t) ~ t, domain(t = range(0,5) ))

slice_plot( sqrt(t) * cos(5 * t) ~ t, domain(t = range(0, 5) ))

slice_plot(t^2 ~ t, domain(t = range(-2, 2)))

berikut adalah cara menampilkan data yang telah kita ambil dari internet berupa spreadsheet menggunakan .csv(““)

Housing = read.csv("http://www.mosaic-web.org/go/datasets/Income-Housing.csv")
Housing
##   Income IncomePercentile CrimeProblem AbandonedBuildings IncompleteBathroom
## 1   3914                5         39.6               12.6                2.6
## 2  10817               15         32.4               10.0                3.3
## 3  21097               30         26.7                7.1                2.3
## 4  34548               50         23.9                4.1                2.1
## 5  51941               70         21.4                2.3                2.4
## 6  72079               90         19.9                1.2                2.0
##   NoCentralHeat ExposedWires AirConditioning TwoBathrooms MotorVehicle
## 1          32.3          5.5            52.3         13.9         57.3
## 2          34.7          5.0            55.4         16.9         82.1
## 3          28.1          2.4            61.7         24.8         91.7
## 4          21.4          2.1            69.8         39.6         97.0
## 5          14.9          1.4            73.9         51.2         98.0
## 6           9.6          1.0            76.7         73.2         99.0
##   TwoVehicles ClothesWasher ClothesDryer Dishwasher Telephone
## 1        17.3          57.8         37.5       16.5      68.7
## 2        34.3          61.4         38.0       16.0      79.7
## 3        56.4          78.6         62.0       25.8      90.8
## 4        75.3          84.4         75.2       41.6      96.5
## 5        86.6          92.8         88.9       58.2      98.3
## 6        92.9          97.1         95.6       79.7      99.5
##   DoctorVisitsUnder7 DoctorVisits7To18 NoDoctorVisitUnder7 NoDoctorVisit7To18
## 1                3.6               2.6                13.7               31.2
## 2                3.7               2.6                14.9               32.0
## 3                3.6               2.1                13.8               31.4
## 4                4.0               2.3                10.4               27.3
## 5                4.0               2.5                 7.7               23.9
## 6                4.7               3.1                 5.3               17.5
Housing$Income
## [1]  3914 10817 21097 34548 51941 72079
Housing$IncomePercentile
## [1]  5 15 30 50 70 90

penyajian data melalui bentuk grafis scatter-plot, format di mana setiap “kasus” atau “titik data” diplot sebagai titik di lokasi koordinat yang diberikan oleh dua variabel. Sebagai contoh, berikut adalah plot pencar dari fraksi rumah tangga yang menganggap lingkungan mereka memiliki masalah kejahatan, versus pendapatan rata-rata di braket mereka.

gf_point(CrimeProblem ~ Income, data = Housing )

Housing[1:3,1:5]
##   Income IncomePercentile CrimeProblem AbandonedBuildings IncompleteBathroom
## 1   3914                5         39.6               12.6                2.6
## 2  10817               15         32.4               10.0                3.3
## 3  21097               30         26.7                7.1                2.3
gf_point(AbandonedBuildings ~ Income, data = Housing )

gf_point( 
  CrimeProblem ~ Income, data=Housing ) %>%
  slice_plot(
     40 - Income/2000 ~ Income, color = "red")

gf_point( 
  CrimeProblem ~ Income, data=Housing ) %>%
  slice_plot(
    55 - Income/2000 ~ Income, color = "green")

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

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.")

gf_point( 
  AbandonedBuildings ~ Income, data=Housing, color = "blue") %>%
  slice_plot(
    15 - Income/2500 ~ Income, color = "magenta")

contour_plot( 
  sin(2*pi*t/10)*exp(-.2*x) ~ t & x, 
  domain(t=0:10, x=0:5))

mendeskripsikan bentuk grafik countour dari sutu fungsi yang ditampilkan.

contour_plot(
  sqrt( (v-3)^2 + 2*(w-4)^2 ) ~ v & w, 
  domain(v=0:6, w=0:6))

contour_plot(
  6*v - 3*w + 4 ~ v & w, 
  domain(v=0:6, w=0:6))

contour_plot(
  sin(pi*t) ~ t & x, 
  domain(t = range(0,10), x = range(0,10)))
## Warning in contour_plot(sin(pi * t) ~ t & x, domain(t = range(0, 10), x =
## range(0, : No dependence of function on y variable. Contour labels may be
## misplaced.

cara membuat grafik fungsi 3 dimensi dengan countour yang interaktif.

interactive_plot(
   sin(2*pi*t/10)*exp(-.5*x) ~ t & x, 
   domain(t = 0:30, x = 0:10))