我極力把下面的代碼的圖形:圖形繪製錯誤
library(leaflet.minicharts)
library(leaflet)
data("eco2mix")
head(eco2mix)
View(eco2mix)
library(dplyr)
prod2016 <- eco2mix %>%
mutate(renewable = bioenergy + solar + wind + hydraulic,
non_renewable = total - bioenergy - solar - wind - hydraulic) %>%
filter(grepl("2016", month) & area != "France") %>%
select(-month) %>%
group_by(area, lat, lng) %>%
summarise_all(sum) %>%
ungroup()
tilesURL <- "http://server.arcgisonline.com/ArcGIS/rest/services/Canvas /World_Light_Gray_Base/MapServer/tile/{z}/{y}/{x}"
basemap <- leaflet(width = "100%", height = "400px") %>%
addTiles(tilesURL)
colors <- c("#4fc13c", "#cccccc")
basemap %>%
addMinicharts(
prod2016$lng, prod2016$lat,
type = "pie",
chartdata = prod2016[, c("renewable", "non_renewable")],
colorPalette = colors,
width = 60 * sqrt(prod2016$total)/
sqrt(max(prod2016$total)),
transitionTime = 0)
但我得到一個錯誤:
Error in addMinicharts(., prod2016$lng, prod2016$lat, type = "pie",
chartdata = prod2016[,: unused argument (chartdata = prod2016[,c("renewable", "non_renewable")])
它適合我。什麼是你的sessionInfo()? – MLavoie
我已經發布了我的會話作爲答案,字符太多:-) –
您可以更新您的dplyr和leaflet.minicharts並重新運行您的代碼。 – MLavoie