में बिंदु आइकन के रूप में एक छवि का उपयोग करके मैं कई स्कूलों के साथ एक सरल ggmap बनाने की कोशिश कर रहा हूं। मैं आसानी से उस बिंदु तक पहुंच सकता हूं जहां स्कूल मानचित्र पर बिंदु (नीचे कोड) के रूप में दिखाई देता है। लेकिन, मैं अंक के बजाय उपयोग करने के लिए एक स्कूल आइकन की एक छवि लाने के लिए चाहता हूँ।ggmap
जहां तक मैं कह सकता हूं, annotation_custom काम नहीं करेगा क्योंकि इसे कार्टेशियन निर्देशांक की आवश्यकता है। इन्सेट काम करना चाहिए, लेकिन यह एक स्कूल के लिए छवि लाएगा, उन सभी में से नहीं। फिर, बिंदु चरित्र को एक छवि में बदलने की कोशिश कर रहा है, न कि केवल एक छवि जोड़ें।
मुझे संदेह है कि उत्तर grimport, subplot और शायद geom_point से बात करने के लिए एक फ़ंक्शन के साथ है। लेकिन, मैं एक नुकसान में हूँ।
इस छवि के प्रकार है कि एक प्रतीक के रूप में अच्छी तरह से काम करेगा है: wikimedia graduation hat
इस सवाल का जवाब images for tick marks in ggplot2 छवियों में जोड़ने का एक अच्छा काम करता है, लेकिन, मैं एक के रूप में छवि का उपयोग करना चाहेंगे बिंदु चरित्र और विशेषताओं के आधार पर रंग, आकार, आदि को बदलने में सक्षम हो।
# Load needed packages
# install.packages(c("rgdal", "rgeos", "maptools", "ggmap", "sp", "plyr", "XML", "grImport"))
library(rgdal)
library(rgeos)
library(maptools)
library(ggmap)
library(sp)
library(plyr)
library(XML)
library(grImport)
# Define a value for the Seattle Public Schools (SPS) url:
SPSurl <- "http://www.seattleschools.org/modules/cms/pages.phtml? pageid=197023&sessionid=95b8499fc128fde5d7e1335751c73fee&t"
# All of the addresses for SPS, multiple tables:
SPSaddresses <- readHTMLTable(SPSurl)
# Just elementary schools
SPSelementary <- readHTMLTable(SPSurl, which=3, header=T)
# Just keep the names of the schools and addresses
SPSelementary <- SPSelementary[,c(1,3)]
# Change the address column name
colnames(SPSelementary)[2] <- "address"
# Convert all to character
SPSelementary <-
data.frame(lapply(SPSelementary,
as.character),
stringsAsFactors=FALSE)
# get rid of the phone numbers in the address
SPSelementary$address <- substr(SPSelementary$address,
1,
nchar(SPSelementary$address)-14)
# get rid of extra space at end of line
SPSelementary$address <- sub("[[:blank:]]+$",
"",
SPSelementary$address)
# get the longitude and latitude of the school addresses
SPSelementary_lonlat <- geocode(SPSelementary$address)
# combine addresses with longitude and latitude data
SPSelementary$id <- rownames(SPSelementary)
SPSelementary_lonlat$id <- rownames(SPSelementary_lonlat)
SPSelementary_ll <- merge(SPSelementary,
SPSelementary_lonlat,
by="id")
# Get a map of the area around the McDonald school
McDonald_map <- get_map("144 NE 54th Street Seattle WA 98105",
zoom=15,
maptype='roadmap')
McDonald_map_plot <-
ggmap(McDonald_map)
McDonald_map_plot
# Add the schools
McDonald_map_plot <- McDonald_map_plot +
geom_point(data=SPSelementary_ll,
mapping=aes(x=lon,
y=lat),
shape = 17, ### This be a triangle, want to change to school.
size = 4,
alpha=.75)
McDonald_map_plot
आपने मुझे इस दृष्टिकोण पर पंच पर हराया। चूंकि ओपी नक्शा प्रतीकों की तलाश में है, मैं सुझाव देता हूं कि [सिंबोला फ़ॉन्ट] (http://zhm.github.io/symbola/) देखें जिसमें कई भौगोलिक मार्कर शामिल हैं, जिनमें मोर्टारबोर्ड भी शामिल है, उदाहरण के विपरीत नहीं। वर्तमान में इसे अतिरिक्त के साथ आयात करने के लिए लड़ने के साथ लड़ रहे हैं। ध्यान देने योग्य बात यह है कि, अतिरिक्त के साथ, आप शायद डाउनलोड किए गए फ़ॉन्ट्स के ओटीएफ संस्करण की बजाय टीटीएफ संस्करण चाहते हैं। Symbola फ़ॉन्ट के लिए – Peter
+1। निश्चित रूप से इसे मेरे संग्रह में जोड़ना। – hrbrmstr