Tagged: 交互式图形

library(leaflet)nleaflet() %>%n addTiles() %>%n addMarkers(lng=112.768,lat=31.852,popup=”8888″)nnnLTV <- read.csv("LTV.csv")nLTV.ts <- ts(LTV)ndygraph(LTV.ts,main="LTV forecast") %>