例如,在构造R代码以绘制一些东西时,通常需要添加以复杂​​的表达式编码的后续“图层”(标签,轴,标记)等。这里的示例来自“leaflet”包,并且通过管道运算符%>%添加了图层:

library("leaflet")
library("leaflet.minicharts")
 mymap <- leaflet() %>% addTiles() %>% addMinicharts(0, 0, chartdata = 1:3, layerId = "c1")

我现在想添加一些复杂的东西:
mymap %>% addCircleMarkers(0,0,radius=10,labelOptions=labelOptions(noHide=T,textOnly=TRUE,direction="bottom", offset=c(0,5)))

我想为这种构造分配一个简短的名称,比如说“mycircle”,然后在命令中使用它:
mymap %>% mycircle

怎么可能呢?通过分配
mycircle

最佳答案

尝试这个:

mymap <- leaflet() %>% addTiles() %>%
     addMinicharts(0, 0, chartdata = 1:3, layerId = "c1")
mycircle <- function(x) {
  addCircleMarkers(map=x, 0, 0, radius=10,
                   labelOptions=labelOptions(
                       noHide=T, textOnly=TRUE, direction="bottom", offset=c(0,5)))
}

mymap %>% mycircle

07-26 08:20