r - Producing a map for each location row using ggmap -


i have dataframe:

df <- read.csv(text = "name,lat,long tom,42,-73 sally,41,-72 harry,41,-74")

that has lat long of 3 people. using ggmap i'd produce map per row, in case show location of each of 3 people.

i've used ggmap before, go-to code of:

ggmap(get_map(location = c(lon = lon, lat = lat,                             zoom = 12, color = "bw", source = "osm"))) +   geom_point(data=df, aes(x=longitude,y=latitude), color='red')

...doesn't work event pull map , centre it. i'd first centre map on person's location, drop point @ central location, 3 maps output.

thanks.

we can loop through data frame produce 1 map per row:

library(ggmap)  p <- vector("list", 3)  (i in seq_along(df)){   p[[i]] <- ggmap(get_map(location = c(lon = df$lon[i], lat = df$lat[i]),                       zoom = 12, color = "bw", source = "google")) +     geom_point(data=df[i,], aes(x=long, y=lat), color='red') }  > p[[1]]

plot1

> p[[2]]

plot2

> p[[3]]

plot3

notes:

  1. you had zoom = 12, ... source = "osm" inside location = c(...) argument. these should arguments get_map().
  2. for reason got error openstreetmap (http status '400 bad request'), used default google maps instead.

Comments

Post a Comment

Popular posts from this blog

resizing Telegram inline keyboard -

telegram's inline keyboard great feature lots of different use cases. inline buttons added list of items this: inline_keyboard = [[inlinekeyboardbutton(text="button", callback_data="button"), inlinekeyboardbutton(text="reset",callback_data="reset")]] inline_keyboard_markup = inlinekeyboardmarkup(inline_keyboard) update.message.reply_text("hi", reply_markup=inline_keyboard_markup) the above code adds 2 buttons each half width of chat screen. i know the normal keyboard button there resize_keyboard parameter somehow can used. my question is there way resize inline buttons ? example make full width or quarter width. unfortunately, can't now. :( you can suggest @botsupport , might add feature next version.
Read more

javascript - How to bind ViewModel Store to View? -

i'm pretty new ext js , trying embed multiselect inside panel . the viewmodel has stores property can see here: ext.define('test.view.controls.search.searchfiltermodel', { extend: 'ext.app.viewmodel', alias: 'viewmodel.filter', data: { title: '' }, stores: { test: { fields: [ 'id', 'name' ], proxy: { type: 'ajax', url: 'api/test', reader: 'array' }, autoload: true } } }); i bind in view this: viewmodel: { type: 'filter' }, layout: 'fit', border: 1, plain: true, scrollable: 'y', layout: 'fit', bind: { title: '{title}', }, items: { xtype: 'multiselect', scrollable: false, allowblank: true, ddreorder: true, bind: { store: '{test}' }, valuefield: 'id', displayfield: 'name' } ...
Read more

python - Alternative to referencing variable before assignment -

import time # define variables username = "username" password = "password" customer_info_file_path = "c:\\users\megam\pycharmprojects\general stuff\the square pie co\customer " \ "information\{}.txt ".format(name) username_entry = input("enter username\n>>") password_entry = input("enter password\n>>") if username_entry != username or password_entry != password: print("access denied\nyou have entered username or password incorrectly. please check password , " "account name , try again.\n") else: print("access granted") choice_menu = input("\na) view list of customers\nb) add customer\nc) delete customer\nd) log out\n>>") if choice_menu == "a": customer_info = open(customer_info_file_path, 'a', ) file = open(customer_info_file_path, 'r') output = file.read() ...
Read more