1

我正在生成一个具有多层的 kml 文件。在每一层中，我根据子分组对点进行颜色编码。我正在努力解决一些问题：

  1. 所有图层在 kml 中都被命名为“SpatialPointsDataFrame”，我无法弄清楚如何直接分配图层名称。
  2. 点上的标签尺寸非常小 - 有没有办法让它更大？
  3. 理想情况下，在每一层中，我将有 2 个基于子组的子层，以便可以选择或取消选择整个子组。是否可以控制层层次结构？

玩具示例：

library(dplyr)
library(sp)
library(plotKML)
# generate spatial data with 2 groups (A, B) and two subgroups (C, D) within each group
df <- data.frame(x = rnorm(10, 493388, 50), y = rnorm(10, 5701483, 50)) %>%
        mutate(Group = sample(c("A", "B"), 10, replace = TRUE),
                Running = 1:n()) %>%
        group_by(Group) %>%
        mutate(Subgroup = sample(c("C", "D"), n(), replace = TRUE)) %>%
        ungroup()

kml_open("try.kml")
for(i in unique(df$Group)){
    sub <- df %>% 
            filter(Group == i) 
            
    coordinates(sub) <- ~x+y
    proj4string(sub) <- CRS("+proj=utm +zone=11 +ellps=WGS84")
            
    kml_layer(sub, name = i, shape = "http://plotkml.r-forge.r-project.org/circle.png", 
            size = 1, colour=Subgroup, colour_scale = c("yellow", "red"),
            labels = Running)
                             }
                             
kml_close("try.kml")
4

0 回答 0