library(leaflet)
leaflet() %>%
addTiles() %>%
addMarkers(lng=112.768,lat=31.852,popup="8888")
LTV <- read.csv("LTV.csv")
LTV.ts <- ts(LTV)
dygraph(LTV.ts,main="LTV forecast") %>%
dySeries("V1",label="LTV",strokeWidth = 2) %>%
dyOptions(colors = "black",fillGraph = FALSE,fillAlpha = 0.4) %>%
dyHighlight(highlightCircleSize = 5,
highlightSeriesBackgroundAlpha = 0.2,
hideOnMouseOut = FALSE) %>%
dyAxis("x", drawGrid = FALSE) %>%
dyAxis("y", label = "LTV(Life Time Value)") %>%
dyRangeSelector()
# DT包
lib