zoom - Leaflet in R: SetView based on range of latitude and longitude from dataset -


in ggmap, can set view of map based on longitude , latitude of input data, 2 columns of csv longitude , latitude, i.e.

sep <- read.csv("31r_sep_assets_csv.csv")  # map bbox <- make_bbox(sep$longitude, sep$latitude, f = 0.3) map <- get_map(bbox)

i searching similar function in leaflet, far, find setview() takes in actual value latitude , longitude, i.e.

m <- leaflet() %>% setview(lng = -71.0589, lat = 42.3601, zoom = 12) m %>% addtiles()

what function use?

here's code far

library(ggmap) library(ggplot2) library(historydata) library(leaflet) library(rgdal)  setwd("d:/gis/31r") sep <- read.csv("31r_sep_assets_csv.csv")  sub1 <- sep[grep("sep.12", names(sep))] sep$newcol <- 100*rowsums(sub1)/rowsums(sep[4:7])  # create new grouping variable percent_sep12_assets <- ifelse(sep[,8] <= 33, "less 33%", ifelse(sep[,8] >= 66, "more 66%", "between 33% , 66%"))   leaflet(data = sep[]) %>% addtiles() %>%   addmarkers(~longitude, ~latitude,  popup = ~as.character(paste(site, percent_sep12_assets , sep=", ")))

and output zoomed out way

enter image description here

dput(sep) structure(list(site = structure(1:5, .label = c("staten island\\31r001",  "staten island\\31r002", "staten island\\31r003", "staten island\\31r004",  "staten island\\31r005"), class = "factor"), latitude = c(40.508874,  40.577256, 40.520825, 40.552373, 40.529697), longitude = c(-74.244048,  -74.100135, -74.211845, -74.195516, -74.187532), windows.sep.11 = c(63l,  174l, 11l, 85l, 163l), mac.sep.11 = c(0l, 1l, 4l, 0l, 0l), windows.sep.12 = c(124l,  185l, 9l, 75l, 23l), mac.sep.12 = c(0l, 1l, 32l, 1l, 0l), newcol = c(66.3101604278075,  51.5235457063712, 73.2142857142857, 47.2049689440994, 12.3655913978495 )), .names = c("site", "latitude", "longitude", "windows.sep.11",  "mac.sep.11", "windows.sep.12", "mac.sep.12", "newcol"), row.names = c(na,  -5l), class = "data.frame")

update

tried

addtiles(do.call(fitbounds, args = c(list(map = leaflet()), as.list(setnames(make_bbox(sep$longitude, sep$latitude, f = 0.3), c("lng1", "lat1", "lng2", "lat2")))))

and map blank

then tried

leaflet(data = sep[]) %>% addtiles()  %>%   fitbounds(~min(sep$longitude), ~min(sep$latitude), ~max(sep$longitude), ~max(sep$latitude)) %>%   addmarkers(~longitude, ~latitude,  popup = ~as.character(paste(site, percent_sep12_assets , sep=", ")))

and map still zoomed out ...

workaround

i using setview uses average of longitude , latitude

leaflet(data = sep[]) %>%    setview(lng = mean(sep$longitude), lat = mean(sep$latitude), zoom = 12) %>% addtiles()  %>%   addmarkers(~longitude, ~latitude,  popup = ~as.character(paste(site, percent_sep12_assets , sep=", ")))

seems work far ....

use 

fitbounds(lng1 = min(table$lng),            lat1 = min(table$lat),            lng2 = max(table$lng),            lat2 = max(table$lat))

Comments

Post a Comment

Popular posts from this blog

javascript - Using jquery append to add option values into a select element not working -

i'm looking dynamically populate select element names of items stored array. for reason it's not working , i'm not sure why. html: <div class="col-md-4 col-md-offset-4"> <select class="select1"> </select> , <select class="select2"> </select> </div> note i'm using bootstrap layout. here's jquery i'm using try , populate ".select1" jquery: select: function() { $.each(state.greens, function(index, value) { $(".select1").append("<option value =' " + index + " '>" + state.greens[index].name + "</option>"); }); } note function 'select' stored within object called 'display'. state.greens name of array i'm trying access. so @ end of html page call display.select(); call function. no error messages showing in console. also, saw question: appending
Read more

Android soft keyboard reverts to default keyboard on orientation change -

i'm building android soft keyboard , can't seem fix bug - have arabic , qwerty keyboard , when rotate device on qwerty keyboard (or arabic shift), it's if program has "restarted" , becomes arabic keyboard without shift. the onsaveinstancestate(bundle savedinstancestate) not work because application not extend activity inputmethodservice . i put following in android manifest android:configchanges="keyboard|keyboardhidden|orientation" android:windowsoftinputmode="stateunchanged|adjustresize"> i tried using @override public void onconfigurationchanged(configuration newconfig) { super.onconfigurationchanged(newconfig); log.i(mydebug, "config changed " + currentkeyboard.equals(qwerty)); } however, currentkeyboard.equals(qwerty)) results false , made sure true before orientation change. any appreciated. i think applications fault. if application restarting on orientation change
Read more

Rendering JButton to get the JCheckBox behavior in a JTable by using images does not update my table -

i rendering jbutton image on simulate jcheckbox behavior. why don't let jtable render jcheckbox? because need bigger checkboxes , there's no way can resize them (as far know). so, have own table cell renderer , editor. both renders jbutton , checkbox images on them. trying change image checked image unchecked image (or vice versa) , update cell value (boolean true or false). however, reason, getcelleditorvalue() not update table. so, release mouse, value goes original one. any appreciated! lot! public class tableexample extends jframe { jscrollpane pane; jpanel panel; jtable table; object[][] data; mytablemodel tm; renderer buttoncolumn; public tableexample(object[][] data) throws ioexception { string[] columns = {"column#1", "column#2", "column#3", "column#4", "column#5", "column#6"}; this.data = data; this.setpreferredsize(new dimension(700, 500));
Read more