R 根据条件生成随机假地理数据

我在想，用一些随机但符合某些条件的假数据生成假地图的最佳方法是什么。例如，我想在“德伦”河以东有8个点，以西有12个点。我希望颜色的平均值是东方高于西方。除此之外，我希望点是随机的

这是我现在掌握的代码：

set.seed(7102015)

gen.schools <- function(n.schools){
  School.long <- rnorm(n = n.schools, mean = 21.7672, sd = 0.025)
  School.lat <- rnorm(n = n.schools, mean = 58.8471, sd = 0.025)
  School.VAM <- rnorm(n = n.schools, mean = 0, sd = 1)
  Schools <- data.frame(School.lat, School.long, School.VAM)
  return(Schools)
}

district.map <- gen.schools(n.schools = 20)

library(leaflet)
# Create a continuous palette function
pal <- colorNumeric(
  palette = "RdYlBu",
  domain = district.map$School.VAM
)

leaflet() %>% addTiles("http://opengeofiction.net/osm_tiles/{z}/{x}/{y}.png") %>%
  setView(lng = 21.7672, lat = 58.8471, 13) %>%
  addCircleMarkers(data = district.map, lat = ~School.lat, lng =~School.long, 
                   fillColor = ~pal(School.VAM),
                   stroke = FALSE, fillOpacity = 1) %>% 
  addLegend(position = "topright",
            pal = pal, values = district.map$School.VAM,
            title = "Performance Index",
            opacity = 1
  )

set.seed（7102015）
一般学校