Practice_InteractiveMap

Map Example

library(leaflet)

Warning: package 'leaflet' was built under R version 4.3.3

ll_map <- leaflet()

ll_map <- addTiles(map = ll_map)

ll_map <- setView(map = ll_map, lat = 5.527448, lng = -87.057245,
    zoom = 13)

addPopups(map = ll_map, lat = 5.527448, lng = -87.057245, popup = "Isla del Coco")

Costa Rica Map

library(leaflet)

ll_map <- leaflet()

ll_map <- addTiles(map = ll_map)

ll_map <- setView(map = ll_map, lat = 8.948676311286302, lng = -82.80862276977867,
    zoom = 8)

addPopups(map = ll_map, lat = 8.948676311286302, lng = -82.80862276977867, popup = "Costa Rica")

Drygraphs Example

library(dygraphs)

Warning: package 'dygraphs' was built under R version 4.3.3

lungDeaths <- cbind(mdeaths, fdeaths)
dygraph(lungDeaths)

dygraph(lungDeaths) %>% dyRangeSelector()

dygraph(lungDeaths) %>%
  dySeries("mdeaths", label = "Male") %>%
  dySeries("fdeaths", label = "Female") %>%
  dyOptions(stackedGraph = TRUE) %>%
  dyRangeSelector(height = 20)

Plot example

plot(1)

Kable example

library(kableExtra)

Warning: package 'kableExtra' was built under R version 4.3.3

?kable_styling

starting httpd help server ... done

x_html <- knitr::kable(head(mtcars), "html")
kable_styling(x_html, "striped", position = "left", font_size = 7)

	mpg	cyl	disp	hp	drat	wt	qsec	vs	am	gear	carb
Mazda RX4	21.0	6	160	110	3.90	2.620	16.46	0	1	4	4
Mazda RX4 Wag	21.0	6	160	110	3.90	2.875	17.02	0	1	4	4
Datsun 710	22.8	4	108	93	3.85	2.320	18.61	1	1	4	1
Hornet 4 Drive	21.4	6	258	110	3.08	3.215	19.44	1	0	3	1
Hornet Sportabout	18.7	8	360	175	3.15	3.440	17.02	0	0	3	2
Valiant	18.1	6	225	105	2.76	3.460	20.22	1	0	3	1

x_latex <- knitr::kable(head(mtcars), "latex")
kable_styling(x_latex, latex_options = "striped", position = "float_left")