I need the following examples solved in library(grid) instead of lattice.

R studio visualization code.

library(latticeExtra)

# Program 1 - edcfplot displays of Cumulative Distribution Functions

data(singer, package = "lattice") ecdfplot(~height | voice.part, data = singer)

# Program 2 - segplot - drawing segments

data(USCancerRates) segplot(reorder(factor(county), rate.male) ~ LCL95.male + UCL95.male, data = subset(USCancerRates, state == "Washington"))

segplot(reorder(factor(county), rate.male) ~ LCL95.male + UCL95.male, data = subset(USCancerRates, state == "Washington"), draw.bands = FALSE, centers = rate.male)

segplot(reorder(factor(county), rate.male) ~ LCL95.male + UCL95.male, data = subset(USCancerRates, state == "Washington"), level = rate.female, col.regions = terrain.colors)

segplot(reorder(factor(county), rate.male) ~ LCL95.male + UCL95.male, data = subset(USCancerRates, state == "Washington"), draw.bands = FALSE, centers = rate.male, segments.fun = panel.arrows, ends = "both", angle = 90, length = 1, unit = "mm")

# Program 3 panel.xyarea - cutting graph

xyplot(sunspot.year, panel = panel.xyarea, origin = 0, aspect = "xy", cut = list(n = 4, overlap = 0))

-----------

library(lattice)

xyplot(mpg ~ disp | factor(gear), data=mtcars)

# Program 2 Control of panels leyout

# aspect - adjusting panels size

xyplot(mpg ~ disp | factor(gear), data=mtcars, layout=c(3, 1),aspect="fill")

xyplot(mpg ~ disp | factor(gear), data=mtcars, layout=c(3, 1),aspect=1)

# Program 3 Different charts in separate panels

plot1 <- xyplot(mpg ~ disp, data=mtcars, aspect=1, xlim=c(65, 480), ylim=c(9, 35), subset=gear == 5) plot2 <- xyplot(mpg ~ disp, data=mtcars, aspect=1, xlim=c(65, 480), ylim=c(9, 35), subset=gear == 4) plot3 <- xyplot(mpg ~ disp, data=mtcars, aspect=1, xlim=c(65, 480), ylim=c(9, 35), subset=gear == 3) print(plot1, position=c(0, 2/3, 1, 1), more=TRUE) print(plot2, position=c(0, 1/3, 1, 2/3), more=TRUE) print(plot3, position=c(0, 0, 1, 1/3))

#position - panel localization in graphical window - arguments (left, bottom,right, top).

# Program 4 Scaterplot with grouping

gear.f<-factor((mtcars$gear), labels=c("3gears","4gears","5gears"))

xyplot(mpg ~ disp, data=mtcars, group=gear.f,auto.key=list(border=TRUE))

xyplot(mpg ~ disp, data=mtcars, group=gear.f,auto.key=list(border=TRUE), par.settings=list(superpose.symbol=list(pch=c(2, 3, 16))))

# ustawienie auto.key=list(border=TRUE) wprowadza legend? do wykresu

# Program 5 Changing axes annotation

xyplot(mpg ~ disp | factor(gear), data=mtcars, layout=c(3, 1), aspect=1, scales=list(y=list(at=seq(10, 30, 10))), ylab="miles per gallon", xlab=expression(paste("displacement (", inch^3, ")")))

# Program 6 scaterplot with regression line

xyplot(mpg ~ disp | factor(gear), data=mtcars, layout=c(3, 1), aspect=2, panel=function(x, y) { panel.lmline(x, y) panel.xyplot(x, y) })